(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[   1598739,      32652]
NotebookOptionsPosition[   1574833,      31919]
NotebookOutlinePosition[   1575524,      31942]
CellTagsIndexPosition[   1575481,      31939]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Appendix of the paper \"Loyalty discounts and the discount attribution \
test,\" by Giacomo Calzolari and Vincenzo Denicol\[OGrave]\
\>", "Title",
 CellChangeTimes->{{3.71973060822268*^9, 3.7197306146654797`*^9}, {
   3.7322456846206603`*^9, 3.7322457554926605`*^9}, 3.7322457858346605`*^9, {
   3.732973887261488*^9, 3.732973892083488*^9}, 3.765018189438929*^9, {
   3.765855330304417*^9, 3.765855332960333*^9}, 3.767530580136758*^9, 
   3.767531259165545*^9}],

Cell[CellGroupData[{

Cell["Setup of the model", "Section",
 CellChangeTimes->{{3.73224580397766*^9, 3.7322458388276606`*^9}, {
   3.73224603277966*^9, 3.7322460567396603`*^9}, 3.7650182159170547`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Buyer", "'"}], "s", " ", "utility"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"v", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"q1", " ", "+", " ", "q2"}], ")"}], " ", "-", 
      RowBox[{
       RowBox[{"1", "/", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q1", "^", "2"}], " ", "+", " ", 
         RowBox[{"q2", "^", "2"}]}], ")"}]}], " ", "-", " ", 
      RowBox[{"\[Gamma]", "  ", "q1", "  ", "q2"}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ve1", "=", 
     RowBox[{"v", "/.", 
      RowBox[{"q2", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ve2", "=", 
     RowBox[{"v", "/.", 
      RowBox[{"q1", "\[Rule]", "0"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6430838325424433`*^9, 3.6430839031724434`*^9}, {
   3.6430888508859434`*^9, 3.643088853655944*^9}, {3.6430914144819436`*^9, 
   3.6430914941719437`*^9}, {3.643091560221944*^9, 3.6430915653619432`*^9}, {
   3.6430916331619434`*^9, 3.6430916468819437`*^9}, {3.643091685051944*^9, 
   3.6430917525619435`*^9}, {3.6430917968219433`*^9, 
   3.6430919083839436`*^9}, {3.64353514493536*^9, 3.6435351587056355`*^9}, 
   3.6609772896074085`*^9, {3.660977321278571*^9, 3.6609773565861654`*^9}, {
   3.6609774625639906`*^9, 3.6609774807231283`*^9}, {3.660977589162599*^9, 
   3.660977621661601*^9}, {3.660977861598258*^9, 3.6609779123098993`*^9}, {
   3.660978175796667*^9, 3.6609782413818645`*^9}, {3.6609831638312426`*^9, 
   3.6609831935685606`*^9}, {3.660993006842454*^9, 3.6609930396874056`*^9}, {
   3.661841060289663*^9, 3.661841338398471*^9}, {3.6620345916328564`*^9, 
   3.662034611425027*^9}, {3.6658051515536356`*^9, 3.6658051573204913`*^9}, {
   3.665892182883977*^9, 3.665892184233878*^9}, {3.694500337216502*^9, 
   3.6945003422865024`*^9}, {3.715574974757633*^9, 3.7155749936582336`*^9}, {
   3.7155752142106333`*^9, 3.7155752156458335`*^9}, 3.7167013656371765`*^9, {
   3.7167049715691767`*^9, 3.716705010258577*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Firms", "'"}], " ", "costs", " ", "and", " ", 
    RowBox[{"profits", ":", " ", 
     RowBox[{
     "first", " ", "we", " ", "will", " ", "study", " ", "the", " ", "case", 
      " ", "where", " ", "the", " ", "only", " ", "asymmetry", " ", "is", " ",
       "on", " ", "capacity", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"i", ".", "e", ".", " ", "c"}], "=", "0"}], ")"}], " ", "and",
       " ", "then", " ", "we", " ", "will", " ", "introduce", " ", "back", 
      " ", "also", " ", "cost", " ", "asymmetry", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", ">", "0"}], ")"}], "."}]}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"c1", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"c2", "=", "c"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P1", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p1", "-", "c1"}], ")"}], " ", "q1"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P2", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p2", "-", "c2"}], " ", ")"}], " ", "q2"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.716701415056777*^9, 3.7167014246245766`*^9}, {
  3.718773680959347*^9, 3.71877368689695*^9}, {3.718773872415654*^9, 
  3.7187738766808977`*^9}, {3.71973062156068*^9, 3.71973062483668*^9}, {
  3.7202494320940237`*^9, 3.7202494820445232`*^9}, {3.7322458513886604`*^9, 
  3.73224589085266*^9}, {3.7645193739777317`*^9, 3.7645193754248514`*^9}, {
  3.764589573751876*^9, 3.764589574095544*^9}, {3.76499430957165*^9, 
  3.7649943653803124`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Equilibrium with exclusivity", "Section",
 CellChangeTimes->{{3.7322460658106604`*^9, 3.7322460820496607`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Reserve", " ", "utility", " ", "when", " ", "firms", " ", "2", " ", 
    "prices", " ", "competitvely"}], ",", " ", 
   RowBox[{
    RowBox[{
    "assuming", " ", "binding", " ", "capacity", " ", "constraint", " ", 
     "q2"}], "\[LessEqual]", "k"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.71973094356868*^9, 3.71973095802988*^9}, {
  3.7322459010926604`*^9, 3.73224596315666*^9}, {3.764519435549117*^9, 
  3.764519449880433*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ve2", "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"ve2", "-", 
     RowBox[{"c2", " ", "q2"}]}], "/.", 
    RowBox[{"q2", "\[Rule]", "k"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.71973087792388*^9, 3.71973096787348*^9}, {
  3.7202494444941483`*^9, 3.7202494635243382`*^9}, {3.73224594148466*^9, 
  3.7322459418366604`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.71973093721948*^9, 3.71973096976108*^9, 3.7202493171248713`*^9, 
   3.720249496034663*^9, 3.7235545871025515`*^9, 3.7242472549574003`*^9, 
   3.7242472952056837`*^9, 3.7243118668596177`*^9, 3.724398039380813*^9, 
   3.7244066534041853`*^9, 3.725864543546733*^9, 3.726202146003965*^9, 
   3.726227562139764*^9, 3.726552011936591*^9, 3.726914460801995*^9, 
   3.72701507641513*^9, 3.727075435065806*^9, 3.727155531161439*^9, 
   3.7271656314278393`*^9, 3.7272465859232454`*^9, 3.7293419772216063`*^9, 
   3.7294922611450253`*^9, 3.7318218305086603`*^9, 3.7319025743176603`*^9, {
   3.7322459538906603`*^9, 3.7322459686366606`*^9}, 3.7323339095476604`*^9, 
   3.7328595780059156`*^9, 3.732887116985627*^9, 3.7344380963438854`*^9, 
   3.7344413038188534`*^9, 3.7645194232220635`*^9, 3.7645194601770873`*^9, 
   3.764589600311444*^9, 3.764592859546343*^9, 3.764610245089218*^9, 
   3.76461037434764*^9, 3.7649942893506913`*^9, 3.765442783613619*^9, 
   3.7657734314505386`*^9, 3.765817595980613*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Utility", " ", "in", " ", "exclusivity", " ", "with", " ", "firm", " ", 
    "1"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"qe1", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"ve1", "-", 
            RowBox[{"p1", " ", "q1"}]}], ",", "q1"}], "]"}], "\[Equal]", 
         "0"}], ",", "q1"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Ve1", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ve1", "-", 
       RowBox[{"p1", " ", "q1"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", "qe1"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.71973100484548*^9, 3.71973106134868*^9}, {
  3.7202495166248693`*^9, 3.7202495195348983`*^9}, {3.7202497034947405`*^9, 
  3.720249704644752*^9}, {3.7322459746056604`*^9, 3.7322459856696606`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "p1"}]], "Output",
 CellChangeTimes->{{3.71973102437668*^9, 3.71973106175428*^9}, {
   3.720249325695958*^9, 3.72024935187622*^9}, 3.720249708614792*^9, 
   3.721480113784835*^9, 3.723554594294673*^9, 3.724247257934749*^9, 
   3.724247295219722*^9, 3.7243118668886633`*^9, 3.724398039380813*^9, 
   3.724406653444292*^9, 3.725864543562333*^9, 3.7262021460195646`*^9, 
   3.7262275621553636`*^9, 3.726552011936591*^9, 3.7269144608175945`*^9, 
   3.7270150764467497`*^9, 3.727075435081406*^9, 3.727155531173439*^9, 
   3.7271656314434395`*^9, 3.7272465859465537`*^9, 3.7293419772406564`*^9, 
   3.7294922611762247`*^9, 3.7318218316396604`*^9, 3.7319025754866605`*^9, 
   3.73224598643766*^9, 3.7323339095616603`*^9, 3.732859578022916*^9, 
   3.732887117064971*^9, 3.7344380964562206`*^9, 3.7344413038489337`*^9, 
   3.76451946365304*^9, 3.7645896021818457`*^9, 3.7645928595872326`*^9, 
   3.764610245132103*^9, 3.764610374390559*^9, 3.7649942893716707`*^9, 
   3.765442783672511*^9, 3.7657734314694843`*^9, 3.7658175962529263`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "p1"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{{3.71973102437668*^9, 3.71973106175428*^9}, {
   3.720249325695958*^9, 3.72024935187622*^9}, 3.720249708614792*^9, 
   3.721480113784835*^9, 3.723554594294673*^9, 3.724247257934749*^9, 
   3.724247295219722*^9, 3.7243118668886633`*^9, 3.724398039380813*^9, 
   3.724406653444292*^9, 3.725864543562333*^9, 3.7262021460195646`*^9, 
   3.7262275621553636`*^9, 3.726552011936591*^9, 3.7269144608175945`*^9, 
   3.7270150764467497`*^9, 3.727075435081406*^9, 3.727155531173439*^9, 
   3.7271656314434395`*^9, 3.7272465859465537`*^9, 3.7293419772406564`*^9, 
   3.7294922611762247`*^9, 3.7318218316396604`*^9, 3.7319025754866605`*^9, 
   3.73224598643766*^9, 3.7323339095616603`*^9, 3.732859578022916*^9, 
   3.732887117064971*^9, 3.7344380964562206`*^9, 3.7344413038489337`*^9, 
   3.76451946365304*^9, 3.7645896021818457`*^9, 3.7645928595872326`*^9, 
   3.764610245132103*^9, 3.764610374390559*^9, 3.7649942893716707`*^9, 
   3.765442783672511*^9, 3.7657734314694843`*^9, 3.7658175962599983`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Monopoly", " ", "price", " ", "in", " ", "exclusivity", " ", "firm", " ", 
    "1"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"P1", "/.", 
     RowBox[{"q1", "\[Rule]", "qe1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"p1mon", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.723554781021204*^9, 3.723554824671243*^9}, {
  3.7235548655529633`*^9, 3.7235548724633408`*^9}, {3.7322460059006605`*^9, 
  3.7322460152136602`*^9}}],

Cell[BoxData[
 FractionBox["1", "2"]], "Output",
 CellChangeTimes->{{3.72355481646141*^9, 3.723554824946981*^9}, 
   3.723554872784219*^9, 3.7242472605491095`*^9, 3.724247295234762*^9, 
   3.7243118669338164`*^9, 3.724398039396413*^9, 3.7244066534964314`*^9, 
   3.725864543577933*^9, 3.726202146035165*^9, 3.7262275621865635`*^9, 
   3.7265520119677916`*^9, 3.7269144608331947`*^9, 3.727015076489863*^9, 
   3.727075435097006*^9, 3.727155531194439*^9, 3.727165631459039*^9, 
   3.7272465860078325`*^9, 3.7293419772697372`*^9, 3.729492261207424*^9, 
   3.7318218414616604`*^9, 3.7319025770756607`*^9, 3.7322460159176607`*^9, 
   3.7323339095866604`*^9, 3.7328595780479155`*^9, 3.732887117201841*^9, 
   3.7344380965654745`*^9, 3.7344413038810186`*^9, 3.764519479585457*^9, 
   3.7645896066170683`*^9, 3.764592859642086*^9, 3.764610245189967*^9, 
   3.764610374435443*^9, 3.764994289386633*^9, 3.765442783731331*^9, 
   3.765773431489457*^9, 3.7658175965531273`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Optimal", " ", "exclusive", " ", "price", " ", "when", " ", "firm", " ", 
    "1", " ", "is", " ", "constrained", " ", "by", " ", 
    RowBox[{"rival", "'"}], "s", " ", "exclusivity"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"p1econstr", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"Ve2", "==", "Ve1"}], ",", "p1"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"c", "\[Rule]", "0"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.71973107732308*^9, 3.71973111551188*^9}, {
  3.7202497486251926`*^9, 3.7202497707884145`*^9}, {3.7237335428464923`*^9, 
  3.7237335447154546`*^9}, {3.73224618274866*^9, 3.7322462200126605`*^9}, {
  3.764589615603544*^9, 3.764589622186941*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", "k"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.71973109764988*^9, 3.71973111608908*^9}, 
   3.7202493596962986`*^9, 3.720249714544851*^9, {3.720249755435261*^9, 
   3.7202497803285103`*^9}, {3.721480110976835*^9, 3.721480115766035*^9}, 
   3.7235546149907093`*^9, {3.7242472653995285`*^9, 3.724247295295493*^9}, 
   3.724311867061119*^9, 3.7243980394432135`*^9, 3.7244066536287856`*^9, 
   3.725864543624733*^9, 3.726202146113165*^9, 3.7262275622645636`*^9, 
   3.726552012014591*^9, 3.7269144608955946`*^9, 3.727015076605955*^9, 
   3.7270754351594057`*^9, 3.727155531253439*^9, 3.7271656315214396`*^9, 
   3.727246586117823*^9, 3.729341977359974*^9, 3.7294922613010225`*^9, 
   3.7318218336006603`*^9, 3.7319025786906605`*^9, {3.7322462149676604`*^9, 
   3.73224622019466*^9}, 3.7323339096606607`*^9, 3.7328595781099157`*^9, 
   3.732887117344221*^9, 3.7344380967248983`*^9, 3.734441303963239*^9, 
   3.764519490860611*^9, {3.764589609112656*^9, 3.7645896225611024`*^9}, 
   3.76459285970994*^9, 3.764610245254775*^9, 3.76461037449926*^9, 
   3.764994289445462*^9, 3.7654427838360248`*^9, 3.7657734315722084`*^9, 
   3.7658175969480996`*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "k"}], ")"}]}], " ", "k"}]]}]], "Output",
 CellChangeTimes->{{3.71973109764988*^9, 3.71973111608908*^9}, 
   3.7202493596962986`*^9, 3.720249714544851*^9, {3.720249755435261*^9, 
   3.7202497803285103`*^9}, {3.721480110976835*^9, 3.721480115766035*^9}, 
   3.7235546149907093`*^9, {3.7242472653995285`*^9, 3.724247295295493*^9}, 
   3.724311867061119*^9, 3.7243980394432135`*^9, 3.7244066536287856`*^9, 
   3.725864543624733*^9, 3.726202146113165*^9, 3.7262275622645636`*^9, 
   3.726552012014591*^9, 3.7269144608955946`*^9, 3.727015076605955*^9, 
   3.7270754351594057`*^9, 3.727155531253439*^9, 3.7271656315214396`*^9, 
   3.727246586117823*^9, 3.729341977359974*^9, 3.7294922613010225`*^9, 
   3.7318218336006603`*^9, 3.7319025786906605`*^9, {3.7322462149676604`*^9, 
   3.73224622019466*^9}, 3.7323339096606607`*^9, 3.7328595781099157`*^9, 
   3.732887117344221*^9, 3.7344380967248983`*^9, 3.734441303963239*^9, 
   3.764519490860611*^9, {3.764589609112656*^9, 3.7645896225611024`*^9}, 
   3.76459285970994*^9, 3.764610245254775*^9, 3.76461037449926*^9, 
   3.764994289445462*^9, 3.7654427838360248`*^9, 3.7657734315722084`*^9, 
   3.765817597080721*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Where", " ", "the", " ", "constrained", " ", "exclusive", " ", "price", 
    " ", 
    RowBox[{"prevails", ":", " ", 
     RowBox[{
     "for", " ", "k", " ", "larger", " ", "than", " ", "the", " ", 
      "following", " ", "threshold", " ", "the", " ", "exclusive", " ", 
      "price", " ", "is", " ", "the", " ", "constrained", " ", 
      RowBox[{"one", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"p1mon", ";"}], "\[IndentingNewLine]", 
   RowBox[{"p1econstr", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"%", "-", "%%"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7197312368330803`*^9, 3.71973128302468*^9}, 
   3.720249745445161*^9, 3.7202497759684663`*^9, {3.721480120118435*^9, 
   3.7214801580238347`*^9}, {3.721480878000035*^9, 3.721480880620835*^9}, {
   3.7235547144873204`*^9, 3.7235547301910777`*^9}, 3.7235548354468985`*^9, {
   3.7235548770565557`*^9, 3.7235548906376767`*^9}, 3.723554984691799*^9, {
   3.72373325835467*^9, 3.7237332700577717`*^9}, {3.723733309352271*^9, 
   3.723733313268687*^9}, {3.723817358892923*^9, 3.7238173605224013`*^9}, {
   3.7322462506056604`*^9, 3.7322463442696605`*^9}, {3.7322464640936604`*^9, 
   3.7322464674456606`*^9}, {3.7322465068296604`*^9, 
   3.7322465611656604`*^9}, {3.764519575741855*^9, 3.764519583060793*^9}, {
   3.764519650429033*^9, 3.764519672966897*^9}, 3.76458964251484*^9, {
   3.7649945942068453`*^9, 3.7649946156315436`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {648., {184., 199.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$754$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$754$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[(1 - ((-$CellContext`k) (-2 + 
           2 $CellContext`c$$ + $CellContext`k))^Rational[1, 2]) - Rational[
        1, 2], {$CellContext`k, 0, 1}], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{709., {244., 251.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7322463253246603`*^9, 3.7322463450156603`*^9}, 
   3.7322464706626606`*^9, {3.7322465131266603`*^9, 3.7322465242946606`*^9}, 
   3.7323339096776605`*^9, 3.7328595799459157`*^9, 3.7328871175076303`*^9, 
   3.7344380975485897`*^9, 3.7344413039993715`*^9, 3.764519517364171*^9, 
   3.764519583943157*^9, 3.7645896430304103`*^9, 3.764592859838561*^9, 
   3.764610245311655*^9, 3.7646103745581117`*^9, 3.7649942894843674`*^9, 
   3.7654427859960175`*^9, 3.765773431728791*^9, 3.7658175977831984`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"p1econstr", "\[Equal]", "p1mon"}], ",", "k"}], "]"}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "relevant", " ", "root", " ", "is", " ", "the", " ", "small", 
    " ", 
    RowBox[{"one", ":"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kpe1constr", "=", 
   RowBox[{"%", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.721480176515835*^9, 3.7214801850802345`*^9}, {
   3.7214803180066347`*^9, 3.721480470743435*^9}, {3.721480601665835*^9, 
   3.721480656309435*^9}, {3.7214809002882347`*^9, 3.7214809518570347`*^9}, {
   3.723554942011342*^9, 3.72355497179049*^9}, {3.723732775304057*^9, 
   3.7237327807595377`*^9}, {3.7237328317481723`*^9, 3.723732834246791*^9}, {
   3.7238174230672264`*^9, 3.723817424146182*^9}, {3.7322466273646603`*^9, 
   3.7322466328376603`*^9}, {3.764519685846712*^9, 3.764519750900915*^9}, 
   3.7645896559013767`*^9, {3.76499444789853*^9, 3.764994457497845*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", 
     RowBox[{"1", "-", "c", "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       SqrtBox[
        RowBox[{"3", "+", 
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "c"}], ")"}], " ", "c"}]}]]}]}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"2", " ", "c"}], "+", 
        SqrtBox[
         RowBox[{"3", "+", 
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "c"}], ")"}], " ", "c"}]}]]}], 
       ")"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.721480185392235*^9, {3.721480319941035*^9, 3.721480471180235*^9}, 
   3.7214806576042347`*^9, {3.721480911364235*^9, 3.7214809527150345`*^9}, {
   3.7235549490981407`*^9, 3.723554972474307*^9}, 3.7237327818373957`*^9, 
   3.7237328348002462`*^9, 3.7238174255549994`*^9, 3.724247296361546*^9, 
   3.7243118672696724`*^9, 3.7243980395836134`*^9, 3.724406653856391*^9, 
   3.725864544482733*^9, 3.726202146331565*^9, 3.7262275647459636`*^9, 
   3.726552012154991*^9, 3.726914462613595*^9, 3.727015076821222*^9, 
   3.727075435315406*^9, 3.7271555314104395`*^9, 3.7271656316618395`*^9, 
   3.727246586360555*^9, 3.729341977983134*^9, 3.7294922631573863`*^9, 
   3.7318218502266607`*^9, 3.7319025828826604`*^9, 3.7322465821046605`*^9, 
   3.7322466331886606`*^9, 3.7323339097806606`*^9, 3.732859580077916*^9, 
   3.732887117791171*^9, 3.7344380978574066`*^9, 3.7344413040996027`*^9, 
   3.7645197321323004`*^9, 3.764589656542534*^9, 3.76459285993934*^9, 
   3.764610245422403*^9, 3.764610374654857*^9, 3.7649942896040616`*^9, 
   3.7654427862399373`*^9, 3.7657734318404913`*^9, 3.7658175981707706`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Summarizing", ",", " ", 
    RowBox[{
     RowBox[{
     "in", " ", "exclusivity", " ", "the", " ", "buyer", " ", "gets", " ", 
      "one", " ", "of", " ", "the", " ", "following", " ", "payoffs", " ", 
      "respectively", " ", "when", " ", "k"}], "<", 
     RowBox[{
      RowBox[{"(", ">", ")"}], 
      RowBox[{"kpe1constr", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Ve1mon", "=", 
    RowBox[{"Ve1", "/.", 
     RowBox[{"p1", "\[Rule]", "p1mon"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Ve1constr", "=", 
    RowBox[{"Ve1", "/.", 
     RowBox[{"p1", "\[Rule]", "p1econstr"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.7649973683148675`*^9, 3.7649974883746557`*^9}, {
  3.7649975802009597`*^9, 3.764997614968951*^9}}],

Cell[BoxData[
 FractionBox["1", "8"]], "Output",
 CellChangeTimes->{{3.764997370796194*^9, 3.7649973937697268`*^9}, {
   3.7649974266886497`*^9, 3.7649974499903584`*^9}, 3.764997568228971*^9, 
   3.765442786301772*^9, 3.765773431854453*^9, 3.765817598290479*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.764997370796194*^9, 3.7649973937697268`*^9}, {
   3.7649974266886497`*^9, 3.7649974499903584`*^9}, 3.764997568228971*^9, 
   3.765442786301772*^9, 3.765773431854453*^9, 3.7658175982944546`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Non-Exclusive equilibrium and figure 1", "Section",
 CellChangeTimes->{{3.7322460658106604`*^9, 3.7322460820496607`*^9}, {
   3.7328870346143274`*^9, 3.732887038616195*^9}, {3.7657734341493626`*^9, 
   3.765773498171097*^9}, 3.7675306498542037`*^9, 3.767530819856989*^9}],

Cell[CellGroupData[{

Cell["Pure strategies equilibrium", "Subsection",
 CellChangeTimes->{{3.7322468572446604`*^9, 3.7322468651396604`*^9}, {
  3.764994677164895*^9, 3.764994698616443*^9}, {3.764996708353627*^9, 
  3.7649967125563817`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "We", " ", "first", " ", "determine", " ", "the", " ", "equilibrium", " ", 
    "in", " ", "pure", " ", "strategies"}], ",", " ", 
   RowBox[{
    RowBox[{"i", ".", "e", ".", " ", "for"}], " ", "k", " ", "suffiently", 
    " ", 
    RowBox[{"large", ".", "\[IndentingNewLine]", "When"}], " ", "this", " ", 
    "is", " ", "the", " ", "case"}], ",", " ", 
   RowBox[{"firms", " ", "prices", " ", "at", " ", "\"\<Bertrand\>\"", " ", 
    RowBox[{"prices", ".", "\[IndentingNewLine]", "This"}], " ", "is", " ", 
    "the", " ", "only", " ", "regime", " ", "in", " ", "pure", " ", 
    RowBox[{"strategies", ".", " ", "When"}], " ", "k", " ", "is", " ", "low",
     " ", "so", " ", "that", " ", "firm", " ", "2", " ", "would", " ", "be", 
    " ", "constrained"}], ",", " ", 
   RowBox[{
   "then", " ", "we", " ", "have", " ", "the", " ", "mixed", " ", "stragies", 
    " ", "equilibrium", " ", "characterized", " ", 
    RowBox[{"below", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7322467941256604`*^9, 3.73224684148466*^9}, {
  3.7645897115719414`*^9, 3.7645897218300323`*^9}, {3.7649969247476835`*^9, 
  3.764996999820837*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qNE", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"v", "-", 
            RowBox[{"p1", " ", "q1"}], "-", 
            RowBox[{"p2", " ", "q2"}]}], ",", "q1"}], "]"}], "\[Equal]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"v", "-", 
            RowBox[{"p1", " ", "q1"}], "-", 
            RowBox[{"p2", " ", "q2"}]}], ",", "q2"}], "]"}], "\[Equal]", 
         "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7197313908206797`*^9, 3.71973145370428*^9}, {
  3.71973164758108*^9, 3.71973165981148*^9}, {3.7235550475850573`*^9, 
  3.72355504961646*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"q1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
      RowBox[{"p2", " ", "\[Gamma]"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
   RowBox[{"q2", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", "p2", "+", "\[Gamma]", "-", 
      RowBox[{"p1", " ", "\[Gamma]"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.71973144069388*^9, 3.71973145599748*^9}, 
   3.71973166052908*^9, 3.71973295270828*^9, 3.720249376336465*^9, 
   3.720249789498602*^9, 3.7214807164664345`*^9, 3.7235550508417177`*^9, 
   3.7242472965995646`*^9, 3.72431186750334*^9, 3.724398039848813*^9, 
   3.724406654106056*^9, 3.725864544654333*^9, 3.726202146612365*^9, 
   3.7262275649799633`*^9, 3.726552012295391*^9, 3.726914462816395*^9, 
   3.7270150770899024`*^9, 3.727075435455806*^9, 3.7271555316224394`*^9, 
   3.7271656318646393`*^9, 3.7272465868280153`*^9, 3.7293419783551226`*^9, 
   3.7294922636097775`*^9, 3.73182186461666*^9, 3.7319025859736605`*^9, 
   3.7322467205676603`*^9, 3.73233390990466*^9, 3.732859580318916*^9, 
   3.7328874041371465`*^9, 3.7344380981902914`*^9, 3.734441304276138*^9, 
   3.7645197638900394`*^9, 3.7645896621399126`*^9, 3.7645928836638627`*^9, 
   3.76461024547821*^9, 3.764610388514805*^9, 3.764994632295946*^9, 
   3.765442790153652*^9, 3.7657734471615524`*^9, 3.765817598628669*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"\"\<Bertrand\>\"", " ", "equilibrium"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"P2", "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P1", "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"pNE", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"%%", ",", "p2"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2"}], "}"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"VCRNE", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"q1", " ", "p1"}], "-", 
        RowBox[{"q2", " ", "p2"}]}], "/.", "qNE"}], "/.", "pNE"}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.71973146456188*^9, 3.71973152898988*^9}, {
  3.7235550584118605`*^9, 3.723555067053859*^9}, {3.7322467731656604`*^9, 
  3.7322467853886604`*^9}, {3.764997038242012*^9, 3.764997039031925*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"p1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], "+", "\[Gamma]", "-", 
      RowBox[{"c", " ", "\[Gamma]"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"2", " ", "c"}], "+", "\[Gamma]", "+", 
      SuperscriptBox["\[Gamma]", "2"]}], 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.71973151385788*^9, 3.71973153171988*^9}, 
   3.71973166595788*^9, 3.7197319121570797`*^9, 3.7202493829805326`*^9, 
   3.7202497984306912`*^9, 3.7214807177144346`*^9, {3.7235550551190915`*^9, 
   3.72355506744287*^9}, 3.7242472966759005`*^9, 3.7243118675825133`*^9, 
   3.724398039895613*^9, 3.7244066541852694`*^9, 3.725864544701133*^9, 
   3.726202146659165*^9, 3.726227565026764*^9, 3.726552012357791*^9, 
   3.7269144628631945`*^9, 3.7270150771717424`*^9, 3.727075435502606*^9, 
   3.727155531677439*^9, 3.727165631927039*^9, 3.7272465869112425`*^9, 
   3.7293419784393463`*^9, 3.729492263656577*^9, 3.7318218668096604`*^9, 
   3.7319025872976604`*^9, 3.7322467304206605`*^9, 3.7323339099526606`*^9, 
   3.732859580369916*^9, 3.7328874044185104`*^9, 3.734438098353726*^9, 
   3.7344413043573184`*^9, 3.7645197698615494`*^9, 3.764589666036742*^9, 
   3.764592883748674*^9, 3.7646102455350723`*^9, 3.7646103886005344`*^9, 
   3.764994634782237*^9, 3.764997039872616*^9, 3.765442790231668*^9, 
   3.765773447210413*^9, 3.765817598842989*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "4"}], " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "c"}], ")"}], " ", "c"}]}], ")"}]}], "+", 
   RowBox[{"3", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "c"}], ")"}], " ", "c"}]}], ")"}], " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "-", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", 
    SuperscriptBox["\[Gamma]", "3"]}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.71973151385788*^9, 3.71973153171988*^9}, 
   3.71973166595788*^9, 3.7197319121570797`*^9, 3.7202493829805326`*^9, 
   3.7202497984306912`*^9, 3.7214807177144346`*^9, {3.7235550551190915`*^9, 
   3.72355506744287*^9}, 3.7242472966759005`*^9, 3.7243118675825133`*^9, 
   3.724398039895613*^9, 3.7244066541852694`*^9, 3.725864544701133*^9, 
   3.726202146659165*^9, 3.726227565026764*^9, 3.726552012357791*^9, 
   3.7269144628631945`*^9, 3.7270150771717424`*^9, 3.727075435502606*^9, 
   3.727155531677439*^9, 3.727165631927039*^9, 3.7272465869112425`*^9, 
   3.7293419784393463`*^9, 3.729492263656577*^9, 3.7318218668096604`*^9, 
   3.7319025872976604`*^9, 3.7322467304206605`*^9, 3.7323339099526606`*^9, 
   3.732859580369916*^9, 3.7328874044185104`*^9, 3.734438098353726*^9, 
   3.7344413043573184`*^9, 3.7645197698615494`*^9, 3.764589666036742*^9, 
   3.764592883748674*^9, 3.7646102455350723`*^9, 3.7646103886005344`*^9, 
   3.764994634782237*^9, 3.764997039872616*^9, 3.765442790231668*^9, 
   3.765773447210413*^9, 3.765817598964737*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Firm", " ", "2", " ", "is", " ", "constrained", " ", "when", " ", "k", 
    " ", "is", " ", "smaller", " ", "than", " ", "the", " ", 
    RowBox[{"following", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"qNE", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], "/.", "pNE"}], "/.", 
    RowBox[{"c", "\[Rule]", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.720251140666134*^9, 3.7202511434561615`*^9}, {
   3.7214797289622345`*^9, 3.721479729442235*^9}, {3.7237304287352057`*^9, 
   3.723730442485817*^9}, {3.7238174871501317`*^9, 3.7238174930180693`*^9}, 
   3.723883339888621*^9, {3.7322469137516603`*^9, 3.7322469425026608`*^9}, {
   3.7322470194626603`*^9, 3.7322470772456603`*^9}, {3.7645200094485335`*^9, 
   3.7645200443173246`*^9}, {3.764589764079755*^9, 3.764589796840158*^9}, {
   3.7646082568897467`*^9, 3.764608269085183*^9}, 3.7649970542262087`*^9}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", "+", "\[Gamma]", "-", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.7197329177642803`*^9, 3.720250155583603*^9, 3.7202502563386183`*^9, 
   3.720251146854196*^9, 3.7214797367622347`*^9, 3.721481018352635*^9, 
   3.7235558221755056`*^9, 3.7238174937324963`*^9, 3.7242472969428625`*^9, 
   3.724311867931432*^9, 3.724398040051613*^9, 3.7244066546224318`*^9, 
   3.725864544872733*^9, 3.726202146830765*^9, 3.7262275651983633`*^9, 
   3.7265520125293913`*^9, 3.7269144630191946`*^9, 3.7270150775361156`*^9, 
   3.727075435658606*^9, 3.727155531889439*^9, 3.7271656320830393`*^9, 
   3.7272465872844186`*^9, 3.7293419787040854`*^9, 3.729492263796974*^9, 
   3.7318218901116605`*^9, 3.7319026301706605`*^9, 3.7322469435306606`*^9, {
   3.73224703533366*^9, 3.7322470595516605`*^9}, 3.7323339100936604`*^9, 
   3.732859580515916*^9, 3.7328874047498584`*^9, 3.734438098977417*^9, 
   3.7344413045989285`*^9, 3.7645200099313154`*^9, {3.764520040909135*^9, 
   3.764520045183545*^9}, {3.7645897552670307`*^9, 3.764589766479034*^9}, 
   3.7645897976135807`*^9, 3.7645928838194466`*^9, 3.7646082695000744`*^9, 
   3.7646102456627035`*^9, 3.764610388659377*^9, 3.764994768389883*^9, 
   3.7649970542272067`*^9, 3.765442790345751*^9, 3.7657734472782288`*^9, 
   3.7658175991491747`*^9}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", "+", "\[Gamma]", "-", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.7197329177642803`*^9, 3.720250155583603*^9, 3.7202502563386183`*^9, 
   3.720251146854196*^9, 3.7214797367622347`*^9, 3.721481018352635*^9, 
   3.7235558221755056`*^9, 3.7238174937324963`*^9, 3.7242472969428625`*^9, 
   3.724311867931432*^9, 3.724398040051613*^9, 3.7244066546224318`*^9, 
   3.725864544872733*^9, 3.726202146830765*^9, 3.7262275651983633`*^9, 
   3.7265520125293913`*^9, 3.7269144630191946`*^9, 3.7270150775361156`*^9, 
   3.727075435658606*^9, 3.727155531889439*^9, 3.7271656320830393`*^9, 
   3.7272465872844186`*^9, 3.7293419787040854`*^9, 3.729492263796974*^9, 
   3.7318218901116605`*^9, 3.7319026301706605`*^9, 3.7322469435306606`*^9, {
   3.73224703533366*^9, 3.7322470595516605`*^9}, 3.7323339100936604`*^9, 
   3.732859580515916*^9, 3.7328874047498584`*^9, 3.734438098977417*^9, 
   3.7344413045989285`*^9, 3.7645200099313154`*^9, {3.764520040909135*^9, 
   3.764520045183545*^9}, {3.7645897552670307`*^9, 3.764589766479034*^9}, 
   3.7645897976135807`*^9, 3.7645928838194466`*^9, 3.7646082695000744`*^9, 
   3.7646102456627035`*^9, 3.764610388659377*^9, 3.764994768389883*^9, 
   3.7649970542272067`*^9, 3.765442790345751*^9, 3.7657734472782288`*^9}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", "+", "\[Gamma]", "-", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.7197329177642803`*^9, 3.720250155583603*^9, 3.7202502563386183`*^9, 
   3.720251146854196*^9, 3.7214797367622347`*^9, 3.721481018352635*^9, 
   3.7235558221755056`*^9, 3.7238174937324963`*^9, 3.7242472969428625`*^9, 
   3.724311867931432*^9, 3.724398040051613*^9, 3.7244066546224318`*^9, 
   3.725864544872733*^9, 3.726202146830765*^9, 3.7262275651983633`*^9, 
   3.7265520125293913`*^9, 3.7269144630191946`*^9, 3.7270150775361156`*^9, 
   3.727075435658606*^9, 3.727155531889439*^9, 3.7271656320830393`*^9, 
   3.7272465872844186`*^9, 3.7293419787040854`*^9, 3.729492263796974*^9, 
   3.7318218901116605`*^9, 3.7319026301706605`*^9, 3.7322469435306606`*^9, {
   3.73224703533366*^9, 3.7322470595516605`*^9}, 3.7323339100936604`*^9, 
   3.732859580515916*^9, 3.7328874047498584`*^9, 3.734438098977417*^9, 
   3.7344413045989285`*^9, 3.7645200099313154`*^9, {3.764520040909135*^9, 
   3.764520045183545*^9}, {3.7645897552670307`*^9, 3.764589766479034*^9}, 
   3.7645897976135807`*^9, 3.7645928838194466`*^9, 3.7646082695000744`*^9, 
   3.7646102456627035`*^9, 3.764610388659377*^9, 3.764994768389883*^9, 
   3.7649970542272067`*^9, 3.765442790345751*^9}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", "+", "\[Gamma]", "-", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.7197329177642803`*^9, 3.720250155583603*^9, 3.7202502563386183`*^9, 
   3.720251146854196*^9, 3.7214797367622347`*^9, 3.721481018352635*^9, 
   3.7235558221755056`*^9, 3.7238174937324963`*^9, 3.7242472969428625`*^9, 
   3.724311867931432*^9, 3.724398040051613*^9, 3.7244066546224318`*^9, 
   3.725864544872733*^9, 3.726202146830765*^9, 3.7262275651983633`*^9, 
   3.7265520125293913`*^9, 3.7269144630191946`*^9, 3.7270150775361156`*^9, 
   3.727075435658606*^9, 3.727155531889439*^9, 3.7271656320830393`*^9, 
   3.7272465872844186`*^9, 3.7293419787040854`*^9, 3.729492263796974*^9, 
   3.7318218901116605`*^9, 3.7319026301706605`*^9, 3.7322469435306606`*^9, {
   3.73224703533366*^9, 3.7322470595516605`*^9}, 3.7323339100936604`*^9, 
   3.732859580515916*^9, 3.7328874047498584`*^9, 3.734438098977417*^9, 
   3.7344413045989285`*^9, 3.7645200099313154`*^9, {3.764520040909135*^9, 
   3.764520045183545*^9}, {3.7645897552670307`*^9, 3.764589766479034*^9}, 
   3.7645897976135807`*^9, 3.7645928838194466`*^9, 3.7646082695000744`*^9, 
   3.7646102456627035`*^9, 3.764610388659377*^9, 3.764994768389883*^9, 
   3.7649970542272067`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"For", " ", "future", " ", 
    RowBox[{"reference", ":", " ", 
     RowBox[{"efficient", " ", "quantitites"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"qeff", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"v", "-", 
            RowBox[{
             RowBox[{"(", "c", ")"}], " ", "q2"}]}], ",", "q1"}], "]"}], 
         "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"v", "-", 
            RowBox[{
             RowBox[{"(", "c", ")"}], " ", "q2"}]}], ",", "q2"}], "]"}], 
         "\[Equal]", "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7322471663986607`*^9, 3.7322471724286604`*^9}, {
  3.764997068081189*^9, 3.764997073466781*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"q1", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]", "-", 
       RowBox[{"c", " ", "\[Gamma]"}]}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
    RowBox[{"q2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "c", "+", "\[Gamma]"}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7649970781771746`*^9, 3.76544279041022*^9, 
  3.765773447298209*^9, 3.7658175994704323`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Mixed-strategies equilibrium and figure 1\
\>", "Subsection",
 CellChangeTimes->{
  3.7649951730415115`*^9, {3.7649966981040525`*^9, 3.76499669970078*^9}, {
   3.7657734924015293`*^9, 3.7657734960477724`*^9}, {3.767530672628781*^9, 
   3.767530674932801*^9}, {3.76753079648746*^9, 3.7675308031835413`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Analysis", " ", "of", " ", "the", " ", "best", " ", "responses", " ", 
   "that", " ", "shows", " ", "the", " ", "issue", " ", "of", " ", "pure", 
   " ", "strategy", " ", "equilibrium", " ", "existence"}], "*)"}]], "Input",
 CellChangeTimes->{{3.71973208584748*^9, 3.71973208856188*^9}, {
   3.720250429008072*^9, 3.720250459259677*^9}, {3.7322474854216604`*^9, 
   3.73224750366166*^9}, 3.73224754526066*^9, {3.7649951925044804`*^9, 
   3.7649952015562787`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Best", " ", "response", " ", 
    RowBox[{"(", "BR", ")"}], " ", "of", " ", "firm", " ", "2", " ", "when", 
    " ", "it", " ", "is", " ", "not", " ", "constrained", " ", 
    RowBox[{"(", 
     RowBox[{"price", " ", "of", " ", "1", " ", "is", " ", "low"}], ")"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"P2", "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"BR2p1low", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "p2"}], "]"}], "\[Equal]", "0"}], ",", "p2"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.729493804789194*^9, 3.729493845548011*^9}, 
   3.7294938812889247`*^9, {3.7318228621246605`*^9, 3.7318228934456606`*^9}, {
   3.73190270230766*^9, 3.7319027096266603`*^9}, {3.7322475693886604`*^9, 
   3.7322475861406603`*^9}, {3.7322476403416605`*^9, 3.7322476585336604`*^9}, 
   3.73224774778166*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "c", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", "\[Gamma]"}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.729493805829774*^9, 3.7294938460316014`*^9}, 
   3.72949388362228*^9, 3.73182196948466*^9, 3.7319026668116603`*^9, 
   3.7322476645656605`*^9, 3.7322477485566607`*^9, 3.73233391027466*^9, 
   3.732859580712916*^9, 3.7328874055019445`*^9, 3.734438100058259*^9, 
   3.734441305006011*^9, 3.764520412943362*^9, 3.7645898750802937`*^9, 
   3.7645928839581146`*^9, 3.764610246051679*^9, 3.7646103888748016`*^9, 
   3.7649952055255938`*^9, 3.76544279051834*^9, 3.765773447329094*^9, 
   3.765817600110566*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"k", "\[Equal]", 
    RowBox[{"qNE", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "/.", 
   RowBox[{"p2", "->", "BR2p1low"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"p1switch", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{"%", ",", "p1"}], "]"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7294938647904406`*^9, 3.7294939125083246`*^9}, {
   3.7322476734296603`*^9, 3.7322476899496603`*^9}, 3.7322477397176604`*^9}],

Cell[BoxData[
 RowBox[{"1", "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "1"}], "+", "c", "+", 
    RowBox[{"2", " ", "k"}]}], "\[Gamma]"], "-", 
  RowBox[{"2", " ", "k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{{3.7322476837506604`*^9, 3.7322476907916603`*^9}, 
   3.7322477403826604`*^9, 3.7323339103166604`*^9, 3.7328595807559156`*^9, 
   3.732887405626007*^9, 3.7344381002016373`*^9, 3.734441305083218*^9, 
   3.7645204181515083`*^9, 3.7645898778928914`*^9, 3.764592883998999*^9, 
   3.764610246205268*^9, 3.7646103889137325`*^9, 3.764995210670828*^9, 
   3.765442790575185*^9, 3.7657734473779383`*^9, 3.7658176002232647`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "BR", " ", "of", " ", "2", " ", "when", " ", "p1", " ", "is", " ", "high", 
    " ", "so", " ", "that", " ", "k", " ", "constraint", " ", "binds"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"qNE", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], "\[Equal]", "k"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"BR2p1high", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{"%", ",", "p2"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7294939247484894`*^9, 3.729493959932813*^9}, {
  3.7318229058216605`*^9, 3.7318229145496607`*^9}, {3.73224769818966*^9, 
  3.73224773696566*^9}}],

Cell[BoxData[
 RowBox[{"1", "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", "\[Gamma]"}], "+", 
  RowBox[{"k", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7294939448947024`*^9, 3.7294939603384056`*^9}, 
   3.7318229178886604`*^9, 3.7319026961006603`*^9, {3.7322477328626604`*^9, 
   3.73224774345866*^9}, 3.73233391033366*^9, 3.7328595807749157`*^9, 
   3.7328874057003016`*^9, 3.734438100312935*^9, 3.7344413051183414`*^9, 
   3.7645204425690217`*^9, 3.764589880946452*^9, 3.76459288401692*^9, 
   3.7646102462590904`*^9, 3.7646103889286575`*^9, 3.7649952160314865`*^9, 
   3.7654427906340866`*^9, 3.765773447395887*^9, 3.7658176003220844`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"A", " ", "check"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"BR2p1high", "==", "BR2p1low"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{"%", ",", "p1"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"%", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "-", "p1switch"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.729493963009954*^9, 3.7294939868904953`*^9}, {
  3.7322477769886603`*^9, 3.7322478049496603`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "c", "+", 
       RowBox[{"2", " ", "k"}]}], "\[Gamma]"], "-", 
     RowBox[{"2", " ", "k", " ", "\[Gamma]"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7294939881072717`*^9, 3.73224780523466*^9, 
  3.73233391034566*^9, 3.7328595807889156`*^9, 3.732887405768139*^9, 
  3.734438100424229*^9, 3.7344413051443815`*^9, 3.764520446174574*^9, 
  3.764589883374096*^9, 3.7645928840329103`*^9, 3.764610246300023*^9, 
  3.7646103889406633`*^9, 3.764995220474598*^9, 3.7654427906879034`*^9, 
  3.765773447407855*^9, 3.7658176005244923`*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7294939881072717`*^9, 3.73224780523466*^9, 
  3.73233391034566*^9, 3.7328595807889156`*^9, 3.732887405768139*^9, 
  3.734438100424229*^9, 3.7344413051443815`*^9, 3.764520446174574*^9, 
  3.764589883374096*^9, 3.7645928840329103`*^9, 3.764610246300023*^9, 
  3.7646103889406633`*^9, 3.764995220474598*^9, 3.7654427906879034`*^9, 
  3.765773447407855*^9, 3.765817600531477*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"Now", " ", "firm", " ", "1"}], ":", " ", 
    RowBox[{
    "since", " ", "this", " ", "firm", " ", "will", " ", "randomize"}]}], ",",
    " ", 
   RowBox[{
   "it", " ", "must", " ", "be", " ", "indifferent", " ", "between", " ", 
    "playing", " ", "the", " ", "rationed", " ", "BR", " ", "or", " ", "the", 
    " ", "not", " ", "rationed", " ", "one"}], ",", " ", 
   RowBox[{
   "at", " ", "the", " ", "price", " ", "charged", " ", "by", " ", "firm", 
    " ", "2"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7322478417726603`*^9, 3.7322478463326607`*^9}, {
  3.7322479559646606`*^9, 3.7322480020536604`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"P1", "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"BR1", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p2"}], 
     "]"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.729494479240835*^9, 3.7294945328538046`*^9}, 
   3.7322478263096604`*^9, {3.7322481679096603`*^9, 3.7322481744696603`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"2", " ", "p1"}], "+", "\[Gamma]"}], "\[Gamma]"]], "Output",
 CellChangeTimes->{{3.7294944835865517`*^9, 3.729494533836586*^9}, 
   3.7318230252636604`*^9, 3.7319027302366605`*^9, 3.7322478269236603`*^9, 
   3.7323339103676605`*^9, 3.732859580810916*^9, 3.7328874058439693`*^9, 
   3.7344381005445485`*^9, 3.7344413051884937`*^9, 3.764520461687421*^9, 
   3.764589886302575*^9, 3.7645928840608025`*^9, 3.7646102463598566`*^9, 
   3.764610388957589*^9, 3.7649952240111775`*^9, 3.765442790754707*^9, 
   3.7657734474307947`*^9, 3.7658176011248612`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "For", " ", "future", " ", "reference", " ", "we", " ", "need", " ", 
    RowBox[{"this", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"BR1invert", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"BR1", "\[Equal]", "p2"}], ",", " ", "p1"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7322481765866604`*^9, 3.7322482172696605`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.7322482070406604`*^9, 3.7322482177616606`*^9}, 
   3.7323339103886604`*^9, 3.732859580832916*^9, 3.7328874059276304`*^9, 
   3.734438100657851*^9, 3.73444130522864*^9, 3.764520465395298*^9, 
   3.7645898884070616`*^9, 3.7645928840827436`*^9, 3.764610246404703*^9, 
   3.7646103889735374`*^9, 3.764995225964941*^9, 3.7654427908135815`*^9, 
   3.7657734474498034`*^9, 3.76581760140012*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Now", " ", "the", " ", "BR", " ", "when", " ", "firm", " ", "2", " ", "is",
    " ", "rationed"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7322482245326605`*^9, 3.7322482332526608`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"v", "-", 
    RowBox[{"p1", " ", "q1"}], "-", 
    RowBox[{"q2", " ", "p2"}]}], "/.", 
   RowBox[{"q2", "\[Rule]", "k"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"q1rationed", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], ",", "q1"}], 
     "]"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.729494548150511*^9, 3.7294946004963045`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "p1", "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{{3.729494582595049*^9, 3.7294946016350827`*^9}, 
   3.7318230320796604`*^9, 3.7319027361886606`*^9, 3.7322478917286606`*^9, 
   3.73233391040666*^9, 3.732859580851916*^9, 3.7328874059878016`*^9, 
   3.734438100897533*^9, 3.734441305269745*^9, 3.7645204680393467`*^9, 
   3.7645898909275737`*^9, 3.76459288410668*^9, 3.764610246470552*^9, 
   3.7646103889895296`*^9, 3.7649952574088125`*^9, 3.7654427908733892`*^9, 
   3.7657734474716845`*^9, 3.7658176017601876`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "In", " ", "case", " ", "rationed", " ", "the", " ", "profit", " ", 
      "and", " ", "best"}], "-", 
     RowBox[{"response", " ", "of", " ", "1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"note", " ", "since", " ", "2", " ", "is", " ", "rationed"}], 
        ",", " ", 
        RowBox[{
        "they", " ", "do", " ", "not", " ", "depend", " ", "on", " ", 
         "p2"}]}], ")"}]}]}], ":"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"P1", "/.", 
    RowBox[{"{", 
     RowBox[{"q1", "->", "q1rationed"}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"BR1rationed", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"P1rationed", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"P1", "/.", 
       RowBox[{"{", 
        RowBox[{"q1", "->", "q1rationed"}], "}"}]}], "/.", 
      RowBox[{"p1", "->", "BR1rationed"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.729494626916597*^9, 3.729494653429487*^9}, 
   3.7322478935016603`*^9, {3.7322479402616606`*^9, 3.7322479408776608`*^9}, {
   3.764520546570148*^9, 3.7645205513419137`*^9}, {3.764995561435353*^9, 
   3.764995601836274*^9}}],

Cell[BoxData[
 RowBox[{"p1", " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", "p1", "-", 
    RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7294946447404547`*^9, 3.729494653632283*^9}, 
   3.7318230338836603`*^9, 3.73190274949166*^9, 3.7322478940556602`*^9, 
   3.7322479415636606`*^9, 3.7323339104206605`*^9, 3.7328595808669157`*^9, 
   3.732887406045738*^9, 3.734438101010791*^9, 3.734441305301797*^9, 
   3.7645204735415735`*^9, 3.7645898926194863`*^9, 3.7645928841256285`*^9, 
   3.764610246514409*^9, 3.764610389000465*^9, 3.764995261584628*^9, 
   3.7649955621823244`*^9, 3.764995604809271*^9, 3.7654427909253016`*^9, 
   3.7657734474866447`*^9, 3.765817602020564*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7294946447404547`*^9, 3.729494653632283*^9}, 
   3.7318230338836603`*^9, 3.73190274949166*^9, 3.7322478940556602`*^9, 
   3.7322479415636606`*^9, 3.7323339104206605`*^9, 3.7328595808669157`*^9, 
   3.732887406045738*^9, 3.734438101010791*^9, 3.734441305301797*^9, 
   3.7645204735415735`*^9, 3.7645898926194863`*^9, 3.7645928841256285`*^9, 
   3.764610246514409*^9, 3.764610389000465*^9, 3.764995261584628*^9, 
   3.7649955621823244`*^9, 3.764995604809271*^9, 3.7654427909253016`*^9, 
   3.7657734474866447`*^9, 3.765817602028609*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{{3.7294946447404547`*^9, 3.729494653632283*^9}, 
   3.7318230338836603`*^9, 3.73190274949166*^9, 3.7322478940556602`*^9, 
   3.7322479415636606`*^9, 3.7323339104206605`*^9, 3.7328595808669157`*^9, 
   3.732887406045738*^9, 3.734438101010791*^9, 3.734441305301797*^9, 
   3.7645204735415735`*^9, 3.7645898926194863`*^9, 3.7645928841256285`*^9, 
   3.764610246514409*^9, 3.764610389000465*^9, 3.764995261584628*^9, 
   3.7649955621823244`*^9, 3.764995604809271*^9, 3.7654427909253016`*^9, 
   3.7657734474866447`*^9, 3.7658176020334587`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"In", " ", "the", " ", "case", " ", "not"}], "-", 
    RowBox[{
    "rationed", " ", "the", " ", "profit", " ", "of", " ", "1", " ", "as", 
     " ", "a", " ", "function", " ", "of", " ", "p2", " ", 
     RowBox[{"is", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"P1", "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
      "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"P1Bertr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"P1", "/.", "qNE"}], "/.", 
      RowBox[{"p1", "\[Rule]", "%"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7294947399246244`*^9, 3.7294947481612663`*^9}, {
  3.72949478524236*^9, 3.7294948139900074`*^9}, {3.7322479252926607`*^9, 
  3.7322479283726606`*^9}, {3.7645205041599607`*^9, 3.7645205354675336`*^9}, {
  3.764995279720129*^9, 3.7649952837982197`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{
  3.729494749549639*^9, {3.729494793996792*^9, 3.729494801011057*^9}, 
   3.729494894591059*^9, 3.7318230432136602`*^9, 3.7319028048756604`*^9, 
   3.7322479314486604`*^9, 3.7323339104566603`*^9, 3.732859580903916*^9, 
   3.73288740658282*^9, 3.7344381011952806`*^9, 3.7344413053739896`*^9, {
   3.7645204795054846`*^9, 3.764520504618207*^9}, 3.764589895404924*^9, 
   3.7645928841655607`*^9, 3.7646102465692596`*^9, 3.764610389019414*^9, 
   3.764995286511942*^9, 3.7654427909860897`*^9, 3.7657734475075903`*^9, 
   3.765817602299747*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
    "2"], 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.729494749549639*^9, {3.729494793996792*^9, 3.729494801011057*^9}, 
   3.729494894591059*^9, 3.7318230432136602`*^9, 3.7319028048756604`*^9, 
   3.7322479314486604`*^9, 3.7323339104566603`*^9, 3.732859580903916*^9, 
   3.73288740658282*^9, 3.7344381011952806`*^9, 3.7344413053739896`*^9, {
   3.7645204795054846`*^9, 3.764520504618207*^9}, 3.764589895404924*^9, 
   3.7645928841655607`*^9, 3.7646102465692596`*^9, 3.764610389019414*^9, 
   3.764995286511942*^9, 3.7654427909860897`*^9, 3.7657734475075903`*^9, 
   3.7658176024632807`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "indifference", " ", "conditions", " ", "pins", " ", "down", 
    " ", "the", " ", "p2", " ", "that", " ", "makes", " ", "firm", " ", "1", 
    " ", "indifferent"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"P1Bertr", "==", "P1rationed"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{"%", ",", "p2"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"%", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"c", "\[Rule]", "0"}], ",", 
      RowBox[{"d", "\[Rule]", "0.2"}], ",", 
      RowBox[{"\[Gamma]", "\[Rule]", "0.5"}], ",", 
      RowBox[{"k", "\[Rule]", "0.2"}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"p2switch", "=", 
    RowBox[{"%%", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7294948599765244`*^9, 3.7294949508997765`*^9}, {
  3.73224801947766*^9, 3.7322480349976606`*^9}, {3.764995295972659*^9, 
  3.7649952975544243`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]", "-", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "\[Gamma]"]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]", "+", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "\[Gamma]"]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.729494892095107*^9, 3.7294949514301662`*^9}, 
   3.7318230516996603`*^9, 3.7319028088766603`*^9, 3.73224804559566*^9, 
   3.7323339106936607`*^9, 3.732859581084916*^9, 3.7328874068697405`*^9, 
   3.734438101563261*^9, 3.734441305652772*^9, 3.7645206051368074`*^9, 
   3.7645898985653296`*^9, 3.7645928842881937`*^9, 3.76461024669596*^9, 
   3.764610389116156*^9, 3.7649953038944654`*^9, 3.7654427911536393`*^9, 
   3.7657734476352777`*^9, 3.7658176029128666`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p2", "\[Rule]", 
     RowBox[{"-", "2.5588457268119895`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p2", "\[Rule]", "0.5588457268119895`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.729494892095107*^9, 3.7294949514301662`*^9}, 
   3.7318230516996603`*^9, 3.7319028088766603`*^9, 3.73224804559566*^9, 
   3.7323339106936607`*^9, 3.732859581084916*^9, 3.7328874068697405`*^9, 
   3.734438101563261*^9, 3.734441305652772*^9, 3.7645206051368074`*^9, 
   3.7645898985653296`*^9, 3.7645928842881937`*^9, 3.76461024669596*^9, 
   3.764610389116156*^9, 3.7649953038944654`*^9, 3.7654427911536393`*^9, 
   3.7657734476352777`*^9, 3.765817602915066*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "\[Gamma]", "+", 
   SqrtBox[
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "\[Gamma]"]], "Output",
 CellChangeTimes->{{3.729494892095107*^9, 3.7294949514301662`*^9}, 
   3.7318230516996603`*^9, 3.7319028088766603`*^9, 3.73224804559566*^9, 
   3.7323339106936607`*^9, 3.732859581084916*^9, 3.7328874068697405`*^9, 
   3.734438101563261*^9, 3.734441305652772*^9, 3.7645206051368074`*^9, 
   3.7645898985653296`*^9, 3.7645928842881937`*^9, 3.76461024669596*^9, 
   3.764610389116156*^9, 3.7649953038944654`*^9, 3.7654427911536393`*^9, 
   3.7657734476352777`*^9, 3.765817602917058*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BR1complete", "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"BR1rationed", ",", 
       RowBox[{"p2", "<=", "p2switch"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"BR1invert", ",", 
       RowBox[{"p2", ">", "p2switch"}]}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.729495336150572*^9, 3.7294954161624346`*^9}, {
   3.729495522497791*^9, 3.729495528650072*^9}, 3.729495768432664*^9, 
   3.7322482416056604`*^9, 3.7322484969096603`*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}], 
        RowBox[{"p2", "\[LessEqual]", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Gamma]", "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "\[Gamma]"]}]},
       {
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], 
          ")"}]}], 
        RowBox[{"p2", ">", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Gamma]", "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "\[Gamma]"]}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.7294953963302164`*^9, 3.7294954163340316`*^9}, 
   3.729495533503579*^9, 3.729495769041052*^9, 3.7318231129766607`*^9, 
   3.7319028175756607`*^9, 3.7322482422686605`*^9, 3.73224849703666*^9, 
   3.7323339107116604`*^9, 3.7328595811359158`*^9, 3.732887406919973*^9, 
   3.7344381016765575`*^9, 3.7344413056878233`*^9, 3.764520641905345*^9, 
   3.7645899040136313`*^9, 3.7645928843171177`*^9, 3.764610246744829*^9, 
   3.764610389133112*^9, 3.764995308938963*^9, 3.7654427913202195`*^9, 
   3.765773447665366*^9, 3.7658176032133455`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Now", " ", "we", " ", "identify", " ", "the", " ", "BR", " ", "of", " ", 
   "firms", " ", "2"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7322482543366604`*^9, 3.7322482630126605`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"BR2p1highinvert", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"p2", "==", "BR2p1high"}], ",", "p1"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BR2p1lowinvert", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"p2", "==", "BR2p1low"}], ",", "p1"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"BR2p1highinvert", "==", "BR2p1lowinvert"}], ",", "p2"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"BR2complete", "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"BR2p1lowinvert", ",", 
       RowBox[{"p2", "\[LessEqual]", 
        RowBox[{"%", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", " ", 
      RowBox[{"BR2p1highinvert", ",", 
       RowBox[{"p2", ">", 
        RowBox[{"%", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "}"}],
    "]"}]}]}], "Input",
 CellChangeTimes->{{3.729495560845254*^9, 3.729495645749221*^9}, {
  3.7322482688376603`*^9, 3.7322482745336604`*^9}, {3.7322483123096604`*^9, 
  3.7322483608776608`*^9}, {3.7322484222286606`*^9, 3.73224845909566*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"c", "+", "k", "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["\[Gamma]", "2"]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.729495556664534*^9, 3.7294956078309507`*^9}, 
   3.729495646700803*^9, 3.7322482962326603`*^9, 3.7322483617166605`*^9, {
   3.7322484493506603`*^9, 3.73224845991166*^9}, 3.7323339107546606`*^9, 
   3.732859581180916*^9, 3.7328874070094547`*^9, 3.7344381019873867`*^9, 
   3.734441305761017*^9, 3.7645206812994933`*^9, 3.764589910379781*^9, 
   3.764592884360999*^9, 3.7646102468186593`*^9, 3.7646103891640525`*^9, 
   3.7649953125732126`*^9, 3.7654427914364357`*^9, 3.765773447742996*^9, 
   3.765817603561426*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        FractionBox[
         RowBox[{
          RowBox[{"-", "1"}], "-", "c", "+", 
          RowBox[{"2", " ", "p2"}], "+", "\[Gamma]"}], "\[Gamma]"], 
        RowBox[{"p2", "\[LessEqual]", 
         RowBox[{"c", "+", "k", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Gamma]", "2"]}]}]}]},
       {
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "+", "k", "+", "p2"}], "\[Gamma]"], "-", 
         RowBox[{"k", " ", "\[Gamma]"}]}], 
        RowBox[{"p2", ">", 
         RowBox[{"c", "+", "k", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Gamma]", "2"]}]}]}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.729495556664534*^9, 3.7294956078309507`*^9}, 
   3.729495646700803*^9, 3.7322482962326603`*^9, 3.7322483617166605`*^9, {
   3.7322484493506603`*^9, 3.73224845991166*^9}, 3.7323339107546606`*^9, 
   3.732859581180916*^9, 3.7328874070094547`*^9, 3.7344381019873867`*^9, 
   3.734441305761017*^9, 3.7645206812994933`*^9, 3.764589910379781*^9, 
   3.764592884360999*^9, 3.7646102468186593`*^9, 3.7646103891640525`*^9, 
   3.7649953125732126`*^9, 3.7654427914364357`*^9, 3.765773447742996*^9, 
   3.7658176035704584`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Now", " ", "we", " ", "plot", " ", "the", " ", "two", " ", "BRs", " ", 
    "showing", " ", "the", " ", "missing", " ", "equilibrium", " ", "in", " ",
     "pure", " ", "strategies"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"BR1complete", ",", "BR2complete"}], "}"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Thick", ",", "Black"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thin", ",", "Red"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<p2\>\"", ",", "\"\<p1\>\""}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<BR1\>\"", ",", "\"\<BR2\>\""}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"k", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"c", ",", "0"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7294958094376755`*^9, 3.7294958354533753`*^9}, {
   3.729496084458789*^9, 3.729496086580348*^9}, {3.7322484729826603`*^9, 
   3.7322485851666603`*^9}, 3.7322486196706605`*^9, {3.7322506643756604`*^9, 
   3.7322507065346603`*^9}, 3.764520704495984*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, $CellContext`k$$ = 
    0.2, $CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k$$], 0.2}, 0, 1}, {{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`c$$], 0}, 0, 1}}, Typeset`size$$ = {
    534., {145., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`k$2181$$ = 
    0, $CellContext`\[Gamma]$2182$$ = 0, $CellContext`c$2183$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0, $CellContext`k$$ = 
        0.2, $CellContext`\[Gamma]$$ = 0.5}, "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$2181$$, 0], 
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$2182$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$2183$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Piecewise[{{
           Rational[1, 2] (
             1 - $CellContext`k$$ $CellContext`\[Gamma]$$), $CellContext`p2 <= \
$CellContext`\[Gamma]$$^(-1) (-1 + $CellContext`\[Gamma]$$ + ((-(-1 + \
$CellContext`k$$ $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])}, {
           Rational[1, 2] (
             1 + (-1 + $CellContext`p2) $CellContext`\[Gamma]$$), \
$CellContext`p2 > $CellContext`\[Gamma]$$^(-1) (-1 + $CellContext`\[Gamma]$$ + \
((-(-1 + $CellContext`k$$ $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\
\[Gamma]$$^2))^Rational[1, 2])}}, 0], 
         Piecewise[{{$CellContext`\[Gamma]$$^(-1) (-1 - $CellContext`c$$ + 
             
             2 $CellContext`p2 + $CellContext`\[Gamma]$$), $CellContext`p2 <= \
$CellContext`c$$ + $CellContext`k$$ - $CellContext`k$$ \
$CellContext`\[Gamma]$$^2}, {
           1 + (-1 + $CellContext`k$$ + \
$CellContext`p2)/$CellContext`\[Gamma]$$ - $CellContext`k$$ $CellContext`\
\[Gamma]$$, $CellContext`p2 > $CellContext`c$$ + $CellContext`k$$ - \
$CellContext`k$$ $CellContext`\[Gamma]$$^2}}, 0]}, {$CellContext`p2, 0, 1}, 
        PlotRange -> {0, 1}, PlotStyle -> {{Thick, Black}, {Thin, Red}}, 
        AxesLabel -> {"p2", "p1"}, PlotLegends -> {"BR1", "BR2"}], 
      "Specifications" :> {{{$CellContext`k$$, 0.2}, 0, 
         1}, {{$CellContext`\[Gamma]$$, 0.5}, 0, 1}, {{$CellContext`c$$, 0}, 
         0, 1}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{595., {237., 244.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7294958377309313`*^9, 3.7294960878439236`*^9, 3.7318231792846603`*^9, 
   3.7319028314736605`*^9, 3.7322485060716605`*^9, {3.7322485528156605`*^9, 
   3.7322485855466604`*^9}, 3.7322486198416605`*^9, 3.7322506651626606`*^9, 
   3.7322507070026608`*^9, 3.7323339107736607`*^9, 3.732859581200916*^9, 
   3.7328874070639963`*^9, 3.7344381021177683`*^9, 3.7344413058432364`*^9, 
   3.7645207117939014`*^9, 3.7645899152954893`*^9, 3.7645928843879614`*^9, 
   3.764610246912343*^9, 3.7646103891880016`*^9, 3.764995316734106*^9, 
   3.7654427915534244`*^9, 3.765773447786893*^9, 3.7658176038506002`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Simple", " ", "inspection", " ", "shows", " ", "that", " ", "the", " ", 
   "equilibrium", " ", "in", " ", "pure", " ", "never", " ", "exists", " ", 
   "for", " ", "sufficiently", " ", "low", " ", "k", " ", 
   RowBox[{"(", 
    RowBox[{
    "we", " ", "next", " ", "characterize", " ", "the", " ", "threshold"}], 
    ")"}], " ", "and", " ", "there", " ", "are", " ", "no", " ", "multiple", 
   " ", 
   RowBox[{"equilibria", "."}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7322507290996604`*^9, 3.7322508176446605`*^9}, {
  3.7645210708830976`*^9, 3.7645210712928505`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"parameters", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"c", "\[Rule]", "0"}], ",", 
     RowBox[{"k", "\[Rule]", "0.6"}], ",", 
     RowBox[{"\[Gamma]", "\[Rule]", "0.7"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"BR1complete", ",", "BR2complete"}], "}"}], "/.", "parameters"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plota", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{"%", ",", 
      RowBox[{"{", 
       RowBox[{"p2", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "Black", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(p\), \(2\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(p\), \(1\)]\)\>\""}], "}"}]}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(BR\), \(1\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(BR\), \(2\)]\)\>\""}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], "}"}]}]}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.25`", ",", "0.8`"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"Ticks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1.05`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1.1`"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesStyle", "\[Rule]", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "0.02`"}], "}"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"parameters", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"c", "\[Rule]", "0"}], ",", 
     RowBox[{"k", "\[Rule]", "0.2"}], ",", 
     RowBox[{"\[Gamma]", "\[Rule]", "0.7"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"BR1complete", ",", "BR2complete"}], "}"}], "/.", "parameters"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plotb", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{"%", ",", 
      RowBox[{"{", 
       RowBox[{"p2", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "Black", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(p\), \(2\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(p\), \(1\)]\)\>\""}], "}"}]}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(BR\), \(1\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(BR\), \(2\)]\)\>\""}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], "}"}]}]}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.25`", ",", "0.8`"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"Ticks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1.05`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1.1`"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesStyle", "\[Rule]", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "0.02`"}], "}"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Figure1", "=", 
   RowBox[{"Grid", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"plota", ",", "plotb"}], "}"}], "}"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<Figure1.pdf\>\"", ",", "Figure1"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.7645929267656283`*^9, 3.764593013165635*^9}, {
  3.7645930454154143`*^9, 3.7645931431311674`*^9}, {3.7645932023548303`*^9, 
  3.764593219969778*^9}, {3.764593275460442*^9, 3.764593350660364*^9}, {
  3.764593392583246*^9, 3.76459342598798*^9}, {3.7645934601795254`*^9, 
  3.764593533989193*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[
      GraphicsBox[{{{{}, {}, 
          {GrayLevel[0], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7ZX64uKBl6F2Ew591Yjpv2S/QNS/rUuyxR7Gb+TY
rN4pOQXOj4hcuP7DxyVwPvf/xhh3ufVwvmrguxeHu7fA+eXnLO1nfNkJ54tv
EbzHyLgfzt/2yPnMeZtDcP5OFymFTS8Q/D3LPhRPmXIYzt93/fbc1lcI/n6O
48fLHI7A+Q4L98TkZyP4Byw3fUyfhuAzsOnaPFmN4DteWt6WcBDBT7J4ulru
DILfNE/p4p1rCP6mFbVre64j+ADIXayx
            "]], LineBox[CompressedData["
1:eJwVy3881HcAx3E5FRVRt9wq1aHfNA81/VqPd20WpZoft+xW+dWSktZdpulR
GblRCYvUsFZRTYbKXVn0+5i+ozt3OM65j67Lz+PTjyMkt+2P1+P514sb9r3/
LnMzM7P1//W/ZSrnVKFBigSft3qjiEFpV2Rk0IAU4YtrmqJOMMiPWFW+06wS
9aq7YprCQBSu+nY/uxLFbuf3vc1g4B1ml338s0qE6/w1w5cYyPgiTnFKJRq/
rC63us9A4x31Ecu1CuJJpYfnDzDon7dmclHU3ziQnTwYFv4PzIcKbWfMZZD6
wTL2Kb8GHqaQ2wHFNeDxLUtZa2pRk7jsWdUiGdjVg5mVM55hdnrPUEGfHMeO
3X8fYy1DzzuibXBTIMWVNXOkT4b87nLGJlWJOWdSQ8oEcri1Oo+LP6tE5Oa3
qQHRctg4XKN6fT0Gp7GTbnfJkbJHEn7RuRHOHP7JC/w6DKwt1EfEqeB0z9J3
VFGHaHepeNqTJsRoD73x8lSAFEtP1XHVyM3zC7R6oMD7vfU5Cw+3AG+c0lOX
K7F43fjR8HINPO5Jrny4poTXZe7um/ZamLncOqrn1uOQQ7Dj8+0Es+z3u0sy
6uFi+HqianMbyk45lm9gNWDq5FeW0uE2zM9fN27rkQZYPMgpccp9ju4Vc5Zs
6m1A5LLyZisfHY4J9nDu7m5E4Yawi/cHdDiztLCxhzSiv2e6bXvWCwwK/hSM
91VBEuDFyvTUw53HkWU/VSHOW/S7uF2Ph7e+sOKsbgK3dWNTnuglmOzd9vzr
TVi1PDHzY/d2FMwb6LBzasb2WbKhMcp2qJd4nhVnNKOfOa07EN8Boh6xkFmr
cd4iKNrfuRPLWT/4KePUmKqVXDaXdsJG8lKQQ9UYezSet1LQhTsTHvFaIlpg
VhBUopvSjVLNNvZYdQuE2SWnpzzuxnH/0KyrPA3uLU62tNvfgzq/YMPEWg3s
NgpdEmwMENbOnL1tTSs0rnJlbIUBHQZPtuOdVty4AGd9UC+Kk13aFQu02FHi
Yecw2gtj0aQUr/Na/CS6FK+53gfrQ4HGpXYERZ0OOTabKGIrQldOSCBI/k0U
ot1CQZJ22JonEnzn3zu32I9ifQC/Y0hEMLOi4sbmQAp2t+/ZrhMEJ9O2VaWE
URTZr31d/QtBhMevryfEUuiEswqSLhE4JrK9x1+l8FnYwhn7iGB0xRFr1R8U
t4yNdOQxQXPvC8XVQgrOQ0WVUUqQHli6Y/1NipdbmWh9NYFpkf9BUQVFXOJf
8idyAk1d2gWWkkJMziUntBGU/fxup7KBYnphRvBhHUHm6uCFeU0U8TFpHkI9
gc+VJeLPtRRbrJP0oZ0Ed3+sfRrfRdG1KmbtulcEWa6fpvkZKL4aJ7Rf+YZA
oMvlcSnF7bqoPjcjwYJN+8hDI0VCxK7cOYMEFmPq89Pf/fcvDT3IGSZok6ze
GzJM4WvavtF2hKBib94nbh8o7jDfcC1HCc7NnthvMlE4ZPEGTSaCfwGoski2

            "]]}, 
          {GrayLevel[0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAANDMzMzMzwz8AAAAAAAAAAMJqnRtZ
7MQ/V1aZO7Gxoz/1Jj0PrW3HP70ny8STKbg/AvmrEBslyj8E7A8Lu9fDPzb/
YLZTrsw/TyIVCaYWyz/MhDTOxirPP/5P3biJGNE/H5Dr+anu0D/Fm8U3CvPU
P+v3397VMNI/nlZboYeL2D+2Z4/CSjbSP74DLL4em9g/gNc+pr870j/asPza
tarYPxa3nW2pRtI/GQueFOTJ2D9Cdlv8fFzSP5e/4IdACNk/mvTWGSSI0j+S
KGZu+YTZP0jxzVRy39I/hPpwO2t+2j8TYX045+TSP6OnQVgCjto/3tAsHFzq
0j/CVBJ1mZ3aP3Swi+NF9dI/Aa+zrse82j+fb0lyGQvTP3xj9iEk+9o/9u3E
j8A20z91zHsI3XfbP8FddHM1PNM/lHlMJXSH2z+MzSNXqkHTP7QmHUILl9s/
Iq2CHpRM0z/ygL57ObbbP01sQK1nYtM/bTUB75X02z8Y3O+Q3GfTP43i0Qst
BNw/4kufdFFt0z+pj6IoxBPcP3gr/js7eNM/6OlDYvIy3D9Dm60fsH3TPwiX
FH+JQtw/DgtdAyWD0z8nROWbIFLcP6Tqu8oOjtM/Zp6G1U5x3D9vEfuNR5DT
P2FWzd6nd9w/OxDuJQ==
            "]], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAA8ahOfrqa0z8Km8nhC47cPwDxdtQg
ntM/IEtMOOeS3D/KnQotfKPTP/dBH0mOmtw/lEqehdeo0z/OOPJZNaLcP173
Md4yrtM/pi/Fatyp3D/xUFmP6bjTP1Mda4wqudw/Prf2U8Tj0z8K1AITY/bc
P9mDMd15OdQ/ekEyINRw3T8OHafv5OTUP1gckTq2Zd4/jGm1ZqAk1j/PxFJy
PBfgP/ZAq+Rof9c/rV4COvAO4T90MsS0FsPYP1BUXTwj9uE/367Ei9Eh2j8v
rV2xqPDiP/tq1Jspets/+g6yc57m4z8rQQf+ZrvcP4rMsXATzOQ/R6IhZ7EX
3j9V7Vbg2sTlP3cdXyLhXN8/5WmniiGt5j8s7FUL103gP2HvS4LYkOc/Ew/w
CMT64D8Y2JXs4YfoPwS/m68jnOE/lhyLkWpu6T9rNLvZCUviP03EJalFaOo/
q0lioL724j/ydBQOkV3rP/XrGhDmluM/XIGurVtC7D+1U0cDlETkPwDx7b94
Ou0/f0iFn7Tm5D9qvNgMFSLuPyHdStijheU/v5AXpyEF7z86N4SUGTLmP1DI
+7OA++8/XB7P+QHT5j/TrcV9r3DwP/XKjeJwgec/HCng2kft8D+YBF50UiTo
P0dSUNWfYfE/ppvEILBy6D+amZmZmZnxP7d3A6Q=
            "]]}, {}}, {{}, {}, {}, {}}}, InsetBox[
         TemplateBox[{
          "\"\\!\\(\\*SubscriptBox[\\(BR\\), \\(1\\)]\\)\"",
           "\"\\!\\(\\*SubscriptBox[\\(BR\\), \\(2\\)]\\)\""},
          "LineLegend",
          DisplayFunction->(StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Courier"}, Background -> Automatic, StripOnInput -> 
            False]& ),
          Editable->True,
          InterpretationFunction:>(RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"GrayLevel", "[", "0", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2}], "}"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Courier\""}], "}"}]}], 
               ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Courier\""}], 
                   "}"}]}]}], "]"}]& )], Scaled[{0.25, 0.8}], ImageScaled[{0.5, 0.5}],
         BaseStyle->{FontSize -> Larger},
         FormatType->StandardForm]},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(2\\)]\\)\"", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(1\\)]\\)\"", TraditionalForm]},
       AxesOrigin->{0, 0},
       AxesStyle->Arrowheads[{0., 0.02}],
       Method->{},
       PlotRange->{{0, 1.05}, {0, 1.1}},
       PlotRangeClipping->True,
       PlotRangePadding->{Automatic, Automatic},
       Ticks->{{{0, 
           FormBox["0", TraditionalForm]}, {1, 
           FormBox["1", TraditionalForm]}}, {{-1, 
           FormBox[
            RowBox[{"-", "1"}], TraditionalForm]}, {1, 
           FormBox["1", TraditionalForm]}}}],
      InterpretTemplate[Legended[
        Graphics[{{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            GrayLevel[0], 
            Line[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7ZX64uKBl6F2Ew591Yjpv2S/QNS/rUuyxR7Gb+TY
rN4pOQXOj4hcuP7DxyVwPvf/xhh3ufVwvmrguxeHu7fA+eXnLO1nfNkJ54tv
EbzHyLgfzt/2yPnMeZtDcP5OFymFTS8Q/D3LPhRPmXIYzt93/fbc1lcI/n6O
48fLHI7A+Q4L98TkZyP4Byw3fUyfhuAzsOnaPFmN4DteWt6WcBDBT7J4ulru
DILfNE/p4p1rCP6mFbVre64j+ADIXayx
             "]], 
            Line[CompressedData["
1:eJwVy3881HcAx3E5FRVRt9wq1aHfNA81/VqPd20WpZoft+xW+dWSktZdpulR
GblRCYvUsFZRTYbKXVn0+5i+ozt3OM65j67Lz+PTjyMkt+2P1+P514sb9r3/
LnMzM7P1//W/ZSrnVKFBigSft3qjiEFpV2Rk0IAU4YtrmqJOMMiPWFW+06wS
9aq7YprCQBSu+nY/uxLFbuf3vc1g4B1ml338s0qE6/w1w5cYyPgiTnFKJRq/
rC63us9A4x31Ecu1CuJJpYfnDzDon7dmclHU3ziQnTwYFv4PzIcKbWfMZZD6
wTL2Kb8GHqaQ2wHFNeDxLUtZa2pRk7jsWdUiGdjVg5mVM55hdnrPUEGfHMeO
3X8fYy1DzzuibXBTIMWVNXOkT4b87nLGJlWJOWdSQ8oEcri1Oo+LP6tE5Oa3
qQHRctg4XKN6fT0Gp7GTbnfJkbJHEn7RuRHOHP7JC/w6DKwt1EfEqeB0z9J3
VFGHaHepeNqTJsRoD73x8lSAFEtP1XHVyM3zC7R6oMD7vfU5Cw+3AG+c0lOX
K7F43fjR8HINPO5Jrny4poTXZe7um/ZamLncOqrn1uOQQ7Dj8+0Es+z3u0sy
6uFi+HqianMbyk45lm9gNWDq5FeW0uE2zM9fN27rkQZYPMgpccp9ju4Vc5Zs
6m1A5LLyZisfHY4J9nDu7m5E4Yawi/cHdDiztLCxhzSiv2e6bXvWCwwK/hSM
91VBEuDFyvTUw53HkWU/VSHOW/S7uF2Ph7e+sOKsbgK3dWNTnuglmOzd9vzr
TVi1PDHzY/d2FMwb6LBzasb2WbKhMcp2qJd4nhVnNKOfOa07EN8Boh6xkFmr
cd4iKNrfuRPLWT/4KePUmKqVXDaXdsJG8lKQQ9UYezSet1LQhTsTHvFaIlpg
VhBUopvSjVLNNvZYdQuE2SWnpzzuxnH/0KyrPA3uLU62tNvfgzq/YMPEWg3s
NgpdEmwMENbOnL1tTSs0rnJlbIUBHQZPtuOdVty4AGd9UC+Kk13aFQu02FHi
Yecw2gtj0aQUr/Na/CS6FK+53gfrQ4HGpXYERZ0OOTabKGIrQldOSCBI/k0U
ot1CQZJ22JonEnzn3zu32I9ifQC/Y0hEMLOi4sbmQAp2t+/ZrhMEJ9O2VaWE
URTZr31d/QtBhMevryfEUuiEswqSLhE4JrK9x1+l8FnYwhn7iGB0xRFr1R8U
t4yNdOQxQXPvC8XVQgrOQ0WVUUqQHli6Y/1NipdbmWh9NYFpkf9BUQVFXOJf
8idyAk1d2gWWkkJMziUntBGU/fxup7KBYnphRvBhHUHm6uCFeU0U8TFpHkI9
gc+VJeLPtRRbrJP0oZ0Ed3+sfRrfRdG1KmbtulcEWa6fpvkZKL4aJ7Rf+YZA
oMvlcSnF7bqoPjcjwYJN+8hDI0VCxK7cOYMEFmPq89Pf/fcvDT3IGSZok6ze
GzJM4WvavtF2hKBib94nbh8o7jDfcC1HCc7NnthvMlE4ZPEGTSaCfwGoski2

             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            GrayLevel[0], 
            Dashing[{Small, Small}], 
            Line[CompressedData["
1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAANDMzMzMzwz8AAAAAAAAAAMJqnRtZ
7MQ/V1aZO7Gxoz/1Jj0PrW3HP70ny8STKbg/AvmrEBslyj8E7A8Lu9fDPzb/
YLZTrsw/TyIVCaYWyz/MhDTOxirPP/5P3biJGNE/H5Dr+anu0D/Fm8U3CvPU
P+v3397VMNI/nlZboYeL2D+2Z4/CSjbSP74DLL4em9g/gNc+pr870j/asPza
tarYPxa3nW2pRtI/GQueFOTJ2D9Cdlv8fFzSP5e/4IdACNk/mvTWGSSI0j+S
KGZu+YTZP0jxzVRy39I/hPpwO2t+2j8TYX045+TSP6OnQVgCjto/3tAsHFzq
0j/CVBJ1mZ3aP3Swi+NF9dI/Aa+zrse82j+fb0lyGQvTP3xj9iEk+9o/9u3E
j8A20z91zHsI3XfbP8FddHM1PNM/lHlMJXSH2z+MzSNXqkHTP7QmHUILl9s/
Iq2CHpRM0z/ygL57ObbbP01sQK1nYtM/bTUB75X02z8Y3O+Q3GfTP43i0Qst
BNw/4kufdFFt0z+pj6IoxBPcP3gr/js7eNM/6OlDYvIy3D9Dm60fsH3TPwiX
FH+JQtw/DgtdAyWD0z8nROWbIFLcP6Tqu8oOjtM/Zp6G1U5x3D9vEfuNR5DT
P2FWzd6nd9w/OxDuJQ==
             "]], 
            Line[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAA8ahOfrqa0z8Km8nhC47cPwDxdtQg
ntM/IEtMOOeS3D/KnQotfKPTP/dBH0mOmtw/lEqehdeo0z/OOPJZNaLcP173
Md4yrtM/pi/Fatyp3D/xUFmP6bjTP1Mda4wqudw/Prf2U8Tj0z8K1AITY/bc
P9mDMd15OdQ/ekEyINRw3T8OHafv5OTUP1gckTq2Zd4/jGm1ZqAk1j/PxFJy
PBfgP/ZAq+Rof9c/rV4COvAO4T90MsS0FsPYP1BUXTwj9uE/367Ei9Eh2j8v
rV2xqPDiP/tq1Jspets/+g6yc57m4z8rQQf+ZrvcP4rMsXATzOQ/R6IhZ7EX
3j9V7Vbg2sTlP3cdXyLhXN8/5WmniiGt5j8s7FUL103gP2HvS4LYkOc/Ew/w
CMT64D8Y2JXs4YfoPwS/m68jnOE/lhyLkWpu6T9rNLvZCUviP03EJalFaOo/
q0lioL724j/ydBQOkV3rP/XrGhDmluM/XIGurVtC7D+1U0cDlETkPwDx7b94
Ou0/f0iFn7Tm5D9qvNgMFSLuPyHdStijheU/v5AXpyEF7z86N4SUGTLmP1DI
+7OA++8/XB7P+QHT5j/TrcV9r3DwP/XKjeJwgec/HCng2kft8D+YBF50UiTo
P0dSUNWfYfE/ppvEILBy6D+amZmZmZnxP7d3A6Q=
             "]]}, {}}, {{}, {}, {}, {}}}, {
         AspectRatio -> GoldenRatio^(-1), Axes -> True, 
          AxesLabel -> {
           "\!\(\*SubscriptBox[\(p\), \(2\)]\)", 
            "\!\(\*SubscriptBox[\(p\), \(1\)]\)"}, AxesOrigin -> {0, 0}, 
          AxesStyle -> Arrowheads[{0., 0.02}], Method -> {}, 
          PlotRange -> {{0, 1.05}, {0, 1.1}}, PlotRangeClipping -> True, 
          PlotRangePadding -> {Automatic, Automatic}, 
          Ticks -> {{0, 1}, {-1, 1}}}], {
         Placed[
          LineLegend[{
            Directive[
             GrayLevel[0]], 
            Directive[
             GrayLevel[0], 
             Dashing[{Small, Small}]]}, {
           "\!\(\*SubscriptBox[\(BR\), \(1\)]\)", 
            "\!\(\*SubscriptBox[\(BR\), \(2\)]\)"}, 
           LabelStyle -> {FontFamily -> "Courier"}, LegendLayout -> "Column", 
           LabelStyle -> {FontFamily -> "Courier"}], {0.25, 0.8}, 
          Identity]}]& ],
      AutoDelete->True,
      Editable->True,
      SelectWithContents->False,
      Selectable->True], 
     TagBox[
      GraphicsBox[{{{{}, {}, 
          {GrayLevel[0], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQ7ZX64uKBl6F2ra8Dd8i13rZfIOrf1iXZYg/jN3Js
Vu+UnALnR0QuXP/h4xI4n/t/Y4y73Ho4XzXw3YvD3Vvg/PJzlvYzvuyE81+r
GXKskdkF54tvEbzHyLgfzt/2yPnMeZtDcP6hrLnSkW+OwPlf1Wz51+Yeh/OZ
fq4WkFY9Beeb/U/YFrzuDJx/psXk3DGt83C+/ITXP1e+u4Bwz/f7964aXILz
l7zafYqv7zKczye7/P2TJ1fg/J7MrWkLVK7B+d8cVj/JqL8O55cYHdkidvgG
nH9/3ZHui4q34Py3PWcm/z2L4P/OujJbs+o2nN+ukPil4hSCL3ztrc8JqTtw
/k0Dk5/vnRD8+d1VS8WzEXymnXOrtesR/NRnBwLtJyP4YrWXbDznIvgnhJ+o
By9H8BXv58hGrEHwq1Z9FYrdiODXfzU3+70ZwQcA17svvQ==
            "]], LineBox[CompressedData["
1:eJwVkn1Q03UAh3lVBCEG67Y8QYfviuSBgkDdR5ITYUAMl+TxJpQHWlGbL0Sn
IcSCEg4LRAI0FeKCyYvAwpdlaBynXBwvP17G+LEvzjHeNr9QQ5EjFv3xueee
P57/PoLkz6NPWFlYWPit7H9aFlzamvaQhcle98/aGgaNtfJtqjYWc/VvBo2v
+F5ulCi0g8XtG2fZv+QM3pkordrVy8IjZ59rRQODyIKdwlk9Cyeh4mJAKwPp
cERphssoJlUtsekdDO5Jir3zT46izNTMmdMxCLklSLnD08DCs+mCTtCPdLdE
j2dxBO68NG9FUT88DR84DEWM4e4ljweh1gNwfWPWrn1xDNuqglYdPT8Amz/K
GzZVPMP0/o1e4cYBfLL3wfAaoRZfS07y76cMQh6afOPhSy1+9JEPzpBBzM+s
c9aXPMeC5LZkddQQFEdCrIuDdfAW87vLng4h87Ds5xa9Dm1NB9fwA1UQjIap
KmXj6CxL4R2rVSHAL6f4LW89ara+nOBsGkace/drS0YPtVfwlZaiYcx3Fmi/
yJoAUS/ZdDuqUWqTcCZ68yT8rM+KmEw1XDWKW1btk3BSjEvKqRq2F7LE/pIp
tNo/Eo+kjsCiJqFB6zKNZjaWa6segbSsocDl8TS+iU4qqRaz+H1Xnh0nbQa9
okSDQxcLTpjUM9vJAGnX+g2x746C3d3DZCgNmDAEcz1aR9F4HZt1CUbU53nq
+7ZrEN/gy3FbNsJUtzY/pFSDi7KbWWztCzimx5h8OAR1k27lTuEUGcokf/ts
grxrsuOaSAqSG+9slUPwcbRxS72I4tCRYxOvZQTrlcrGiBgK7nTUlanvCL4v
jO3IT6ao4x2Ye/IDQarvT3P2GRRaqXtN7k2y8hPu4dXVFMIdI3zbRwTL+887
Dv1K0WQapEuPCYaNz/uq5RT8tr4OUzvB5Zjm+EN3KMaPdp7RPSEw74w+LVNS
ZObc6/mzh4DtLbxuzVC0kKt52WMEd7999REzQLFOXpT4lZagODBxR6WKIutc
oa9URyD8xavlPQ1FpGOuLmmS4P6XXU+zpiimAs4dCJolKNm9r1BkoHh/lZTn
/zeBRFshFlCK33o/e7HHRLA9/FPSZqLITj1RsXGBwMayv+ryq5XeJ+k0f5Fg
TBF46vgiRZQ5Lsx5iUB5qvLtPf9StHZ+KLBbJri6wWHebKZwKxEvmM0E/wFC
v8v/
            "]]}, 
          {GrayLevel[0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAA9dJNYhBYyT8AAAAAAAAAAAL5qxAb
Jco/wGVD/6pOgj82/2C2U67MPxBG27uAEaM/zIQ0zsYqzz+wIJPGLaOwPx+Q
6/mp7tA/SLhjxC5YuD/r99/e1TDSP/gtj5cpib8/pOq7yg6O0z/A3vL/W6rD
Pw4dp+/k5NQ/OEpuaeR9xz+MabVmoCTWP8Qkl71pD8s/9kCr5Gh/1z88jFXc
OO7OP3QyxLQWw9g/ZrHgcoJF0T/frsSL0SHaPyJj4VyNOtM/+2rUmyl62z+4
JorheCbVPytBB/5mu9w/2KGJ22Lx1j9HoiFnsRfeP27j07rx4tg/dx1fIuFc
3z+O3HQPf7PaPyzsVQvXTeA/hue9/ux63D8TD/AIxPrgP/a4UdP/aN4/BL+b
ryOc4T/4IJ6OCBvgP2s0u9kJS+I/sMg4puMU4T+rSWKgvvbiP1R5JwsvCuI/
9esaEOaW4z++hcGq+e7iP7VTRwOUROQ/YvUAvRbn4z9/SIWftObkP8zA6wmz
zuQ/Id1K2KOF5T8hlSqkv7HlPzo3hJQZMuY/s8wOsR6o5j9cHs/5AdPmPwhg
nvj8jec/9cqN4nCB5z+ZVtOyLYfoP5gEXnRSJOg/8Kizp91v6T8T3rWiAsTo
PzIE6On9U+o/BX2BVDlx6T+wwsGecEvrPwCpXq/iEuo/8txGjmIy7D9ymq+N
EsLqP3BacfCmLO0/vSuICBFu6z/c4O+fWyLuPxFKciyCDuw/CsMZio8H7z/c
LdDTebzsPzuEdPMKAPA/sJ4/JORe7T/S1DG/DXTwP12vNhEd/u0/4CmZscjl
8D+AhaGB3KruP4swU90sYfE/YuXQItv57j+amZmZmZnxPzhWUKk=
            "]]}, {}}, {{}, {}, {}, {}}}, InsetBox[
         TemplateBox[{
          "\"\\!\\(\\*SubscriptBox[\\(BR\\), \\(1\\)]\\)\"",
           "\"\\!\\(\\*SubscriptBox[\\(BR\\), \\(2\\)]\\)\""},
          "LineLegend",
          DisplayFunction->(StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Courier"}, Background -> Automatic, StripOnInput -> 
            False]& ),
          Editable->True,
          InterpretationFunction:>(RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{"GrayLevel", "[", "0", "]"}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"GrayLevel", "[", "0", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2}], "}"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Courier\""}], "}"}]}], 
               ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Courier\""}], 
                   "}"}]}]}], "]"}]& )], Scaled[{0.25, 0.8}], ImageScaled[{0.5, 0.5}],
         BaseStyle->{FontSize -> Larger},
         FormatType->StandardForm]},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(2\\)]\\)\"", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(1\\)]\\)\"", TraditionalForm]},
       AxesOrigin->{0, 0},
       AxesStyle->Arrowheads[{0., 0.02}],
       Method->{},
       PlotRange->{{0, 1.05}, {0, 1.1}},
       PlotRangeClipping->True,
       PlotRangePadding->{Automatic, Automatic},
       Ticks->{{{0, 
           FormBox["0", TraditionalForm]}, {1, 
           FormBox["1", TraditionalForm]}}, {{-1, 
           FormBox[
            RowBox[{"-", "1"}], TraditionalForm]}, {1, 
           FormBox["1", TraditionalForm]}}}],
      InterpretTemplate[Legended[
        Graphics[{{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            GrayLevel[0], 
            Line[CompressedData["
1:eJxTTMoPSmViYGBQAWIQ7ZX64uKBl6F2ra8Dd8i13rZfIOrf1iXZYg/jN3Js
Vu+UnALnR0QuXP/h4xI4n/t/Y4y73Ho4XzXw3YvD3Vvg/PJzlvYzvuyE81+r
GXKskdkF54tvEbzHyLgfzt/2yPnMeZtDcP6hrLnSkW+OwPlf1Wz51+Yeh/OZ
fq4WkFY9Beeb/U/YFrzuDJx/psXk3DGt83C+/ITXP1e+u4Bwz/f7964aXILz
l7zafYqv7zKczye7/P2TJ1fg/J7MrWkLVK7B+d8cVj/JqL8O55cYHdkidvgG
nH9/3ZHui4q34Py3PWcm/z2L4P/OujJbs+o2nN+ukPil4hSCL3ztrc8JqTtw
/k0Dk5/vnRD8+d1VS8WzEXymnXOrtesR/NRnBwLtJyP4YrWXbDznIvgnhJ+o
By9H8BXv58hGrEHwq1Z9FYrdiODXfzU3+70ZwQcA17svvQ==
             "]], 
            Line[CompressedData["
1:eJwVkn1Q03UAh3lVBCEG67Y8QYfviuSBgkDdR5ITYUAMl+TxJpQHWlGbL0Sn
IcSCEg4LRAI0FeKCyYvAwpdlaBynXBwvP17G+LEvzjHeNr9QQ5EjFv3xueee
P57/PoLkz6NPWFlYWPit7H9aFlzamvaQhcle98/aGgaNtfJtqjYWc/VvBo2v
+F5ulCi0g8XtG2fZv+QM3pkordrVy8IjZ59rRQODyIKdwlk9Cyeh4mJAKwPp
cERphssoJlUtsekdDO5Jir3zT46izNTMmdMxCLklSLnD08DCs+mCTtCPdLdE
j2dxBO68NG9FUT88DR84DEWM4e4ljweh1gNwfWPWrn1xDNuqglYdPT8Amz/K
GzZVPMP0/o1e4cYBfLL3wfAaoRZfS07y76cMQh6afOPhSy1+9JEPzpBBzM+s
c9aXPMeC5LZkddQQFEdCrIuDdfAW87vLng4h87Ds5xa9Dm1NB9fwA1UQjIap
KmXj6CxL4R2rVSHAL6f4LW89ara+nOBsGkace/drS0YPtVfwlZaiYcx3Fmi/
yJoAUS/ZdDuqUWqTcCZ68yT8rM+KmEw1XDWKW1btk3BSjEvKqRq2F7LE/pIp
tNo/Eo+kjsCiJqFB6zKNZjaWa6segbSsocDl8TS+iU4qqRaz+H1Xnh0nbQa9
okSDQxcLTpjUM9vJAGnX+g2x746C3d3DZCgNmDAEcz1aR9F4HZt1CUbU53nq
+7ZrEN/gy3FbNsJUtzY/pFSDi7KbWWztCzimx5h8OAR1k27lTuEUGcokf/ts
grxrsuOaSAqSG+9slUPwcbRxS72I4tCRYxOvZQTrlcrGiBgK7nTUlanvCL4v
jO3IT6ao4x2Ye/IDQarvT3P2GRRaqXtN7k2y8hPu4dXVFMIdI3zbRwTL+887
Dv1K0WQapEuPCYaNz/uq5RT8tr4OUzvB5Zjm+EN3KMaPdp7RPSEw74w+LVNS
ZObc6/mzh4DtLbxuzVC0kKt52WMEd7999REzQLFOXpT4lZagODBxR6WKIutc
oa9URyD8xavlPQ1FpGOuLmmS4P6XXU+zpiimAs4dCJolKNm9r1BkoHh/lZTn
/zeBRFshFlCK33o/e7HHRLA9/FPSZqLITj1RsXGBwMayv+ryq5XeJ+k0f5Fg
TBF46vgiRZQ5Lsx5iUB5qvLtPf9StHZ+KLBbJri6wWHebKZwKxEvmM0E/wFC
v8v/
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            GrayLevel[0], 
            Dashing[{Small, Small}], 
            Line[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAA9dJNYhBYyT8AAAAAAAAAAAL5qxAb
Jco/wGVD/6pOgj82/2C2U67MPxBG27uAEaM/zIQ0zsYqzz+wIJPGLaOwPx+Q
6/mp7tA/SLhjxC5YuD/r99/e1TDSP/gtj5cpib8/pOq7yg6O0z/A3vL/W6rD
Pw4dp+/k5NQ/OEpuaeR9xz+MabVmoCTWP8Qkl71pD8s/9kCr5Gh/1z88jFXc
OO7OP3QyxLQWw9g/ZrHgcoJF0T/frsSL0SHaPyJj4VyNOtM/+2rUmyl62z+4
JorheCbVPytBB/5mu9w/2KGJ22Lx1j9HoiFnsRfeP27j07rx4tg/dx1fIuFc
3z+O3HQPf7PaPyzsVQvXTeA/hue9/ux63D8TD/AIxPrgP/a4UdP/aN4/BL+b
ryOc4T/4IJ6OCBvgP2s0u9kJS+I/sMg4puMU4T+rSWKgvvbiP1R5JwsvCuI/
9esaEOaW4z++hcGq+e7iP7VTRwOUROQ/YvUAvRbn4z9/SIWftObkP8zA6wmz
zuQ/Id1K2KOF5T8hlSqkv7HlPzo3hJQZMuY/s8wOsR6o5j9cHs/5AdPmPwhg
nvj8jec/9cqN4nCB5z+ZVtOyLYfoP5gEXnRSJOg/8Kizp91v6T8T3rWiAsTo
PzIE6On9U+o/BX2BVDlx6T+wwsGecEvrPwCpXq/iEuo/8txGjmIy7D9ymq+N
EsLqP3BacfCmLO0/vSuICBFu6z/c4O+fWyLuPxFKciyCDuw/CsMZio8H7z/c
LdDTebzsPzuEdPMKAPA/sJ4/JORe7T/S1DG/DXTwP12vNhEd/u0/4CmZscjl
8D+AhaGB3KruP4swU90sYfE/YuXQItv57j+amZmZmZnxPzhWUKk=
             "]]}, {}}, {{}, {}, {}, {}}}, {
         AspectRatio -> GoldenRatio^(-1), Axes -> True, 
          AxesLabel -> {
           "\!\(\*SubscriptBox[\(p\), \(2\)]\)", 
            "\!\(\*SubscriptBox[\(p\), \(1\)]\)"}, AxesOrigin -> {0, 0}, 
          AxesStyle -> Arrowheads[{0., 0.02}], Method -> {}, 
          PlotRange -> {{0, 1.05}, {0, 1.1}}, PlotRangeClipping -> True, 
          PlotRangePadding -> {Automatic, Automatic}, 
          Ticks -> {{0, 1}, {-1, 1}}}], {
         Placed[
          LineLegend[{
            Directive[
             GrayLevel[0]], 
            Directive[
             GrayLevel[0], 
             Dashing[{Small, Small}]]}, {
           "\!\(\*SubscriptBox[\(BR\), \(1\)]\)", 
            "\!\(\*SubscriptBox[\(BR\), \(2\)]\)"}, 
           LabelStyle -> {FontFamily -> "Courier"}, LegendLayout -> "Column", 
           LabelStyle -> {FontFamily -> "Courier"}], {0.25, 0.8}, 
          Identity]}]& ],
      AutoDelete->True,
      Editable->True,
      SelectWithContents->False,
      Selectable->True]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.764592956499135*^9, 3.764592970473776*^9}, 
   3.7645930135087624`*^9, {3.7645930530879393`*^9, 3.764593143623889*^9}, {
   3.7645932207107553`*^9, 3.764593224787854*^9}, {3.7645932763739376`*^9, 
   3.7645933208729677`*^9}, {3.7645933511081324`*^9, 
   3.7645933660432267`*^9}, {3.7645933969366083`*^9, 3.764593404424589*^9}, 
   3.7645935346594315`*^9, 3.7646102470440187`*^9, 3.764610389312667*^9, 
   3.765442792076928*^9, 3.7657734481808214`*^9, 3.7658176046733913`*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "The", " ", "threhold", " ", "k", " ", "below", " ", "which", " ", "the", 
   " ", "equilibrium", " ", "must", " ", "be", " ", "in", " ", "mixed", " ", 
   "strategies"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7294964412339354`*^9, 3.729496443854685*^9}, {
  3.72949650444732*^9, 3.7294965453073344`*^9}, {3.7322508320926604`*^9, 
  3.7322508486766605`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p2switch", "==", 
   RowBox[{"pNE", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"%", ",", "k"}], "]"}], ",", 
     RowBox[{"c", "<", "1"}]}], "]"}], ",", 
   RowBox[{"\[Gamma]", "<", "2"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"%", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"c", "\[Rule]", "0"}], ",", 
    RowBox[{"\[Gamma]", "\[Rule]", "0.5"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kswitch", "=", 
   RowBox[{"%%", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"%", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"c", "\[Rule]", "0"}], ",", 
    RowBox[{"d", "\[Rule]", "0.2"}], ",", 
    RowBox[{"\[Gamma]", "\[Rule]", "0.5"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<tmp.tex\>\"", ",", "kswitch"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7294965746027718`*^9, 3.729496649838326*^9}, {
  3.73225099888566*^9, 3.73225100884566*^9}, {3.764521081760367*^9, 
  3.7645211275475016`*^9}, {3.764567249120919*^9, 3.764567254887502*^9}, {
  3.764567845764944*^9, 3.764567852837037*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", 
     FractionBox[
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Gamma]", "-", 
              RowBox[{"c", " ", "\[Gamma]"}], "+", 
              SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"]}]]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"-", "4"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], "]"}]}]]}], "\[Gamma]"]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", 
     FractionBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Gamma]", "-", 
              RowBox[{"c", " ", "\[Gamma]"}], "+", 
              SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"]}]]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"-", "4"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], "]"}]}]]}], "\[Gamma]"]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7294965875645227`*^9, {3.7294966221378584`*^9, 3.7294966502595177`*^9}, 
   3.7318232663556604`*^9, 3.73190320415666*^9, 3.7319047327846603`*^9, 
   3.7322510115596604`*^9, 3.7323339128746605`*^9, 3.732859583304916*^9, 
   3.7328874101517067`*^9, 3.734438105372428*^9, 3.7344413092011604`*^9, {
   3.764521084126295*^9, 3.7645211284555054`*^9}, 3.764567255784137*^9, 
   3.7645673348257847`*^9, 3.764567847238041*^9, 3.764593677615203*^9, 
   3.764593970417385*^9, 3.7645940018952284`*^9, 3.764610250479806*^9, 
   3.764610423996932*^9, 3.764995341117836*^9, 3.765442796630536*^9, 
   3.765773452937068*^9, 3.765817610117796*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", "3.539600717839002`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", "0.4603992821609979`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7294965875645227`*^9, {3.7294966221378584`*^9, 3.7294966502595177`*^9}, 
   3.7318232663556604`*^9, 3.73190320415666*^9, 3.7319047327846603`*^9, 
   3.7322510115596604`*^9, 3.7323339128746605`*^9, 3.732859583304916*^9, 
   3.7328874101517067`*^9, 3.734438105372428*^9, 3.7344413092011604`*^9, {
   3.764521084126295*^9, 3.7645211284555054`*^9}, 3.764567255784137*^9, 
   3.7645673348257847`*^9, 3.764567847238041*^9, 3.764593677615203*^9, 
   3.764593970417385*^9, 3.7645940018952284`*^9, 3.764610250479806*^9, 
   3.764610423996932*^9, 3.764995341117836*^9, 3.765442796630536*^9, 
   3.765773452937068*^9, 3.7658176101207867`*^9}],

Cell[BoxData["0.4603992821609979`"], "Output",
 CellChangeTimes->{
  3.7294965875645227`*^9, {3.7294966221378584`*^9, 3.7294966502595177`*^9}, 
   3.7318232663556604`*^9, 3.73190320415666*^9, 3.7319047327846603`*^9, 
   3.7322510115596604`*^9, 3.7323339128746605`*^9, 3.732859583304916*^9, 
   3.7328874101517067`*^9, 3.734438105372428*^9, 3.7344413092011604`*^9, {
   3.764521084126295*^9, 3.7645211284555054`*^9}, 3.764567255784137*^9, 
   3.7645673348257847`*^9, 3.764567847238041*^9, 3.764593677615203*^9, 
   3.764593970417385*^9, 3.7645940018952284`*^9, 3.764610250479806*^9, 
   3.764610423996932*^9, 3.764995341117836*^9, 3.765442796630536*^9, 
   3.765773452937068*^9, 3.7658176101227818`*^9}],

Cell[BoxData["\<\"tmp.tex\"\>"], "Output",
 CellChangeTimes->{
  3.7294965875645227`*^9, {3.7294966221378584`*^9, 3.7294966502595177`*^9}, 
   3.7318232663556604`*^9, 3.73190320415666*^9, 3.7319047327846603`*^9, 
   3.7322510115596604`*^9, 3.7323339128746605`*^9, 3.732859583304916*^9, 
   3.7328874101517067`*^9, 3.734438105372428*^9, 3.7344413092011604`*^9, {
   3.764521084126295*^9, 3.7645211284555054`*^9}, 3.764567255784137*^9, 
   3.7645673348257847`*^9, 3.764567847238041*^9, 3.764593677615203*^9, 
   3.764593970417385*^9, 3.7645940018952284`*^9, 3.764610250479806*^9, 
   3.764610423996932*^9, 3.764995341117836*^9, 3.765442796630536*^9, 
   3.765773452937068*^9, 3.765817610278366*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Now", " ", "we", " ", "complete", " ", "the", " ", "characterization", " ",
    "of", " ", "the", " ", "equilibrium", " ", "in", " ", "mixed", " ", 
   "strategies"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7322510244056606`*^9, 3.7322510350446606`*^9}, {
  3.7649956933384686`*^9, 3.764995701152544*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "First", " ", "we", " ", "determine", " ", "the", " ", "two", " ", "prices",
    " ", "used", " ", "by", " ", "firm", " ", "1", " ", "to", " ", 
   RowBox[{"randomize", ":", " ", 
    RowBox[{
    "it", " ", "must", " ", "be", " ", "indifferent", " ", "at", " ", "the", 
     " ", "candidate", " ", "equilibrium", " ", "price", " ", "of", " ", 
     "firm", " ", "2", " ", "and", " ", "it", " ", "must", " ", "choose", " ",
      "a", " ", "best", " ", "response", " ", "price", " ", "in", " ", "both",
      " ", "cases"}], ":"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7294966639560547`*^9, 3.7294966718691025`*^9}, {
  3.7294968954038067`*^9, 3.7294969188913546`*^9}, {3.7294969517513227`*^9, 
  3.7294969644650784`*^9}, {3.7322510476046605`*^9, 3.7322511288206606`*^9}, {
  3.764521462325231*^9, 3.7645214625056705`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{"BR1invert", "\[IndentingNewLine]", 
 RowBox[{"p1NoRat", "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"BR1invert", "/.", 
    RowBox[{"p2", "\[Rule]", "p2switch"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7294970821862154`*^9, 3.7294970856493487`*^9}, {
   3.7294971193849*^9, 3.729497137173558*^9}, {3.7318239693576603`*^9, 
   3.7318239737736607`*^9}, {3.7318242458216605`*^9, 3.7318242551656604`*^9}, 
   3.73182449503666*^9, {3.7322511628216605`*^9, 3.7322511775336604`*^9}, 
   3.7322513166936607`*^9, 3.764593700924884*^9, {3.7649959384386764`*^9, 
   3.7649959492866373`*^9}, {3.764996007920769*^9, 3.764996008309716*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{
  3.7294970861329393`*^9, 3.7294971393907156`*^9, 3.73182329939966*^9, 
   3.73182397443766*^9, 3.7318242563216605`*^9, 3.7318244956446605`*^9, 
   3.7319032170606604`*^9, 3.7322511319226604`*^9, {3.7322511655126605`*^9, 
   3.7322511780886602`*^9}, 3.73225131686666*^9, {3.7322515453766603`*^9, 
   3.7322515609126606`*^9}, 3.7323339129436607`*^9, 3.732859583355916*^9, 
   3.732887410266002*^9, 3.734438105621042*^9, 3.7344413093034315`*^9, 
   3.7645214832150555`*^9, {3.7645936931496706`*^9, 3.7645937014504795`*^9}, 
   3.76461025071718*^9, 3.7646104242133226`*^9, 3.7649957703543386`*^9, 
   3.7649959610062637`*^9, 3.7649960087834263`*^9, 3.765442796926295*^9, 
   3.7657734532402563`*^9, 3.7658176105726233`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.7294970861329393`*^9, 3.7294971393907156`*^9, 3.73182329939966*^9, 
   3.73182397443766*^9, 3.7318242563216605`*^9, 3.7318244956446605`*^9, 
   3.7319032170606604`*^9, 3.7322511319226604`*^9, {3.7322511655126605`*^9, 
   3.7322511780886602`*^9}, 3.73225131686666*^9, {3.7322515453766603`*^9, 
   3.7322515609126606`*^9}, 3.7323339129436607`*^9, 3.732859583355916*^9, 
   3.732887410266002*^9, 3.734438105621042*^9, 3.7344413093034315`*^9, 
   3.7645214832150555`*^9, {3.7645936931496706`*^9, 3.7645937014504795`*^9}, 
   3.76461025071718*^9, 3.7646104242133226`*^9, 3.7649957703543386`*^9, 
   3.7649959610062637`*^9, 3.7649960087834263`*^9, 3.765442796926295*^9, 
   3.7657734532402563`*^9, 3.765817610676302*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Firm", " ", 
     RowBox[{"2", "'"}], "s", " ", "expected", " ", "profit"}], ",", " ", 
    RowBox[{
    "depending", " ", "on", " ", "generic", " ", "probability", " ", "x"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"P2", "/.", "qNE"}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1NoRat"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P2", "/.", 
     RowBox[{"q2", "\[Rule]", "k"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"P2mix", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"x", " ", 
       RowBox[{"(", "%", ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}], 
       RowBox[{"(", "%%", ")"}]}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.72949697479908*^9, 3.7294970803278513`*^9}, {
  3.729497147395362*^9, 3.72949716049651*^9}, {3.7294978146997375`*^9, 
  3.7294978172268887`*^9}, {3.7318239840706606`*^9, 3.7318239956376605`*^9}, {
  3.7318241011106606`*^9, 3.7318241039016604`*^9}, {3.73182418314966*^9, 
  3.73182418770866*^9}, {3.7318242651576605`*^9, 3.7318242667966604`*^9}, {
  3.7322511584856606`*^9, 3.7322512242296605`*^9}, {3.7645215720073504`*^9, 
  3.7645215793649397`*^9}, {3.7645937161601515`*^9, 3.764593721401141*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "c"}], "+", "p2"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"k", " ", "x"}], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "x"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "p2", "+", "\[Gamma]", "-", 
        RowBox[{
         FractionBox["1", "2"], " ", "\[Gamma]", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}]}], ")"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7294970547081437`*^9, {3.7294971501741085`*^9, 3.7294971615104904`*^9}, 
   3.72949782132961*^9, 3.7318237421986604`*^9, 3.7318239968756604`*^9, 
   3.73182403280766*^9, 3.7318241061526604`*^9, 3.7318241883046603`*^9, 
   3.73182426802966*^9, 3.73190321840666*^9, 3.7322512012366605`*^9, 
   3.7322515641256604`*^9, 3.73233391419466*^9, 3.732859584582916*^9, 
   3.7328874120414286`*^9, 3.7344381074048166`*^9, 3.7344413111322947`*^9, 
   3.7645215832882204`*^9, 3.7645937239154177`*^9, 3.7646102519239817`*^9, 
   3.764610425410157*^9, 3.764995978866508*^9, 3.765442798403384*^9, 
   3.765773454787121*^9, 3.7658176125344*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "The", " ", "optimal", " ", "price", " ", "p2", " ", "tha", " ", 
     "maximizes", " ", "P2mi", " ", "must", " ", "be", " ", "equal", " ", 
     "to", " ", "the", " ", "one", " ", "that", " ", "makes", " ", "firm", 
     " ", "1", " ", "indifferent", " ", "as", " ", "that", " ", "we", " ", 
     "determined", " ", "above"}], ",", " ", 
    RowBox[{
     RowBox[{"i", ".", "e", ".", " ", "p2switch", ".", " ", "This"}], " ", 
     "condition", " ", "can", " ", "be", " ", "used", " ", "to", " ", "pin", 
     " ", "down", " ", "the", " ", "probability", " ", "of", " ", "the", " ", 
     "mixed", " ", 
     RowBox[{"strategy", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"P2mix", ",", "p2"}], "]"}], "\[Equal]", "0"}], ",", "p2"}], 
      "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"p2switch", "==", 
       RowBox[{"%", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ",", "x"}], "]"}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{"xequ2constr", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"%", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", "\[Gamma]"}]}], "<", "0"}]}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"c", "\[Rule]", "0"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.729497170324321*^9, 3.7294972324101286`*^9}, {
   3.7294978631512065`*^9, 3.7294978665061417`*^9}, {3.73225122659766*^9, 
   3.7322512980456605`*^9}, 3.7322513286456604`*^9, {3.73225139418966*^9, 
   3.7322513961816607`*^9}, {3.7322515022776604`*^9, 3.73225151547766*^9}, {
   3.7323340276706605`*^9, 3.73233402773466*^9}, {3.7645216155272336`*^9, 
   3.7645216157267585`*^9}, {3.7645937571246943`*^9, 3.764593797866706*^9}, {
   3.764996043992193*^9, 3.7649961811632276`*^9}, {3.764996736711804*^9, 
   3.764996739995019*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", "-", 
   RowBox[{"2", " ", "\[Gamma]"}], "+", 
   RowBox[{"2", " ", "c", " ", "\[Gamma]"}], "-", 
   RowBox[{"2", " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "+", 
   RowBox[{
    SuperscriptBox["\[Gamma]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], "+", 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}], 
  RowBox[{"4", "-", 
   RowBox[{"2", " ", "\[Gamma]"}], "+", 
   RowBox[{"2", " ", "c", " ", "\[Gamma]"}], "-", 
   RowBox[{"2", " ", "k", " ", "\[Gamma]"}], "-", 
   RowBox[{"2", " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "+", 
   RowBox[{"2", " ", "k", " ", 
    SuperscriptBox["\[Gamma]", "3"]}], "+", 
   RowBox[{
    SuperscriptBox["\[Gamma]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], "+", 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}]]], "Output",
 CellChangeTimes->{{3.764996137277598*^9, 3.7649961816877985`*^9}, 
   3.7649967425960093`*^9, 3.765442800522301*^9, 3.7657734570012283`*^9, 
   3.7658176147195244`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", "-", 
   RowBox[{"2", " ", "\[Gamma]"}], "-", 
   RowBox[{"2", " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "+", 
   RowBox[{
    SuperscriptBox["\[Gamma]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], "+", 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}], 
  RowBox[{"4", "-", 
   RowBox[{"2", " ", "\[Gamma]"}], "-", 
   RowBox[{"2", " ", "k", " ", "\[Gamma]"}], "-", 
   RowBox[{"2", " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "+", 
   RowBox[{"2", " ", "k", " ", 
    SuperscriptBox["\[Gamma]", "3"]}], "+", 
   RowBox[{
    SuperscriptBox["\[Gamma]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], "+", 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}]]], "Output",
 CellChangeTimes->{{3.764996137277598*^9, 3.7649961816877985`*^9}, 
   3.7649967425960093`*^9, 3.765442800522301*^9, 3.7657734570012283`*^9, 
   3.7658176158315105`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"xequ2constr", ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{"%", ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "2"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Black"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "0"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7294972537947173`*^9, 3.7294972942375402`*^9}, {
   3.7322513593426604`*^9, 3.7322513649106607`*^9}, 3.7322514262626605`*^9, 
   3.7645217128459682`*^9, {3.764593880301314*^9, 3.764593884912984*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`c$$], 0}, 0, 1}}, Typeset`size$$ = {
    450., {137., 145.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$16044$$ = 
    0, $CellContext`c$16045$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$16044$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$16045$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[(4 - 2 $CellContext`\[Gamma]$$ + (
           2 $CellContext`c$$) $CellContext`\[Gamma]$$ - 
         2 $CellContext`\[Gamma]$$^2 + ($CellContext`\[Gamma]$$^2 (
            1 - $CellContext`k $CellContext`\[Gamma]$$)) (
            1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] + (
           4 (-1 + $CellContext`k $CellContext`\[Gamma]$$)) (
            1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2])/(4 - 
        2 $CellContext`\[Gamma]$$ + (
          2 $CellContext`c$$) $CellContext`\[Gamma]$$ - (
         2 $CellContext`k) $CellContext`\[Gamma]$$ - 
        2 $CellContext`\[Gamma]$$^2 + (
          2 $CellContext`k) $CellContext`\[Gamma]$$^3 + \
($CellContext`\[Gamma]$$^2 (1 - $CellContext`k $CellContext`\[Gamma]$$)) (
           1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] + (
          4 (-1 + $CellContext`k $CellContext`\[Gamma]$$)) (
           1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2]), {$CellContext`k, 0,
          1}, PlotRange -> {-1, 2}, PlotStyle -> {Thick, Black}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`c$$, 0}, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {212., 219.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.729497266847067*^9, 3.729497294455936*^9}, 
   3.729497871170452*^9, 3.7318237758686604`*^9, 3.73225136525366*^9, 
   3.73225142685966*^9, {3.7322515087396603`*^9, 3.7322515220936604`*^9}, 
   3.7322515711776605`*^9, 3.7323339172836604`*^9, 3.7328595875809155`*^9, 
   3.732887417542941*^9, 3.734438111761364*^9, 3.7344413154577885`*^9, 
   3.76452171476147*^9, {3.7645938703818684`*^9, 3.7645938853618655`*^9}, 
   3.764610252919284*^9, 3.7646104264094777`*^9, 3.7654428016444044`*^9, 
   3.7657734581061535`*^9, 3.7658176158734355`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Now", " ", "we", " ", "check", " ", "that", " ", "the", " ", "critical", 
    " ", "threshold", " ", "of", " ", "k", " ", "for", " ", "the", " ", 
    "mixed", " ", "strategy", " ", "equilibrium", " ", "is", " ", "the", " ", 
    "same", " ", "as", " ", "the", " ", "one", " ", "identified", " ", 
    "above"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"xequ2constr", "\[Equal]", "0"}], ",", "k"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"kswitch", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"%", ",", "%%"}], "}"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"c", "\[Rule]", "0"}], ",", 
      RowBox[{"\[Gamma]", "\[Rule]", "0.5"}]}], "}"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7294973520146294`*^9, 3.729497387845941*^9}, {
   3.7294975436439466`*^9, 3.729497549259839*^9}, {3.7322514306056604`*^9, 
   3.7322514924216604`*^9}, {3.7323415175346603`*^9, 3.7323415371676607`*^9}, 
   3.764521767579118*^9, {3.7645939235536766`*^9, 3.764593930104164*^9}, {
   3.764594012262575*^9, 3.7645940124480143`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"k", "\[Rule]", 
    FractionBox[
     RowBox[{"4", "-", 
      RowBox[{"4", " ", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Gamma]", "2"]}]]}], "+", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{"2", " ", "c"}], "+", 
         RowBox[{"\[Gamma]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Gamma]", "2"]}]]}], ")"}]}]}], ")"}]}]}], 
     RowBox[{"\[Gamma]", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Gamma]", "2"]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4"}], "+", 
        SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7294973612646523`*^9, 3.7294973920326605`*^9, {3.7294975443303337`*^9, 
   3.7294975495562334`*^9}, 3.7294978812810574`*^9, 3.7318238085556602`*^9, 
   3.73190475364266*^9, {3.7322514820286603`*^9, 3.7322514925786605`*^9}, 
   3.7322515734366603`*^9, 3.7323339176866603`*^9, 3.7323415385156603`*^9, 
   3.7324179273186607`*^9, 3.7324191043556604`*^9, 3.732859587976916*^9, 
   3.7328874190238457`*^9, 3.7344381123429427`*^9, 3.7344413159791746`*^9, {
   3.7645217593210726`*^9, 3.764521768488237*^9}, 3.764593897260971*^9, 
   3.764593931469514*^9, {3.7645939919089265`*^9, 3.7645940130523987`*^9}, 
   3.7646102534319134`*^9, 3.7646104270058966`*^9, 3.7654428017950196`*^9, 
   3.765773458262824*^9, 3.7658176160050764`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.4603992821609979`", ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"k", "\[Rule]", "0.4603992821609979`"}], "}"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7294973612646523`*^9, 3.7294973920326605`*^9, {3.7294975443303337`*^9, 
   3.7294975495562334`*^9}, 3.7294978812810574`*^9, 3.7318238085556602`*^9, 
   3.73190475364266*^9, {3.7322514820286603`*^9, 3.7322514925786605`*^9}, 
   3.7322515734366603`*^9, 3.7323339176866603`*^9, 3.7323415385156603`*^9, 
   3.7324179273186607`*^9, 3.7324191043556604`*^9, 3.732859587976916*^9, 
   3.7328874190238457`*^9, 3.7344381123429427`*^9, 3.7344413159791746`*^9, {
   3.7645217593210726`*^9, 3.764521768488237*^9}, 3.764593897260971*^9, 
   3.764593931469514*^9, {3.7645939919089265`*^9, 3.7645940130523987`*^9}, 
   3.7646102534319134`*^9, 3.7646104270058966`*^9, 3.7654428017950196`*^9, 
   3.765773458262824*^9, 3.765817616006074*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "check", " ", "that", " ", "quantities", " ", "are", " ", 
    "never", " ", "negative", " ", "for", " ", "any", " ", "realized", " ", 
    "price", " ", "p1"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"qNE", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "\[Rule]", "p1NoRat"}], ",", 
       RowBox[{"p2", "\[Rule]", "p2switch"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"qNE", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "\[Rule]", "BR1rationed"}], ",", 
       RowBox[{"p2", "\[Rule]", "p2switch"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Line", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"kswitch", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"kswitch", ",", "1"}], "}"}]}], "}"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%%%", ",", "%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", "1"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Red"}], "}"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PlotStyle", "->", 
           RowBox[{"{", "Black", "}"}]}], ",", "%"}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<q1NE\>\"", ",", "\"\<q2NE\>\""}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7323413554816604`*^9, 3.7323413771996603`*^9}, 
   3.7645217890089393`*^9, {3.76499623215878*^9, 3.7649962327711334`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}, {{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    543., {136., 144.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`c$16322$$ = 
    0, $CellContext`\[Gamma]$16323$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$16322$$, 0], 
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$16323$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{(Rational[-1, 
            2]/(-1 + $CellContext`\[Gamma]$$^2)) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
          Rational[
           1, 2], (-1 + $CellContext`\[Gamma]$$^2)^(-1) (-1 + $CellContext`\
\[Gamma]$$ + (Rational[-1, 2] $CellContext`\[Gamma]$$) (
            1 - $CellContext`k $CellContext`\[Gamma]$$) + $CellContext`\
\[Gamma]$$^(-1) (-1 + $CellContext`\[Gamma]$$ + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
             Rational[1, 2]))}, {$CellContext`k, 0, 1}, 
        PlotRange -> {-0.1, 1}, PlotStyle -> {Green, Red}, 
        Epilog -> {PlotStyle -> {Black}, 
          
          Line[{{$CellContext`\[Gamma]$$^(-1) (
              1 + (2/(-1 + $CellContext`\[Gamma]$$^2)) (((-(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c$$ \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)^2)^Rational[1, 2]/
                Abs[-4 + $CellContext`\[Gamma]$$^2])), 
             0}, {$CellContext`\[Gamma]$$^(-1) (
              1 + (2/(-1 + $CellContext`\[Gamma]$$^2)) (((-(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c$$ \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)^2)^Rational[1, 2]/
                Abs[-4 + $CellContext`\[Gamma]$$^2])), 1}}]}, 
        PlotLegends -> {"q1NE", "q2NE"}], 
      "Specifications" :> {{$CellContext`c$$, 0, 
         1}, {{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{604., {211., 218.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.73234137893766*^9, 3.7328595880009155`*^9, 
  3.732887419856973*^9, 3.734438112469244*^9, 3.7344413160834527`*^9, 
  3.7645217971524396`*^9, 3.764610253524666*^9, 3.7646104270378046`*^9, 
  3.76544280182492*^9, 3.7657734582847986`*^9, 3.7658176160200367`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Summarizing", " ", "the", " ", 
      RowBox[{"equilibrium", ":", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"with", " ", "proba", " ", "1"}], "-", 
        RowBox[{
        "xequ2constr", " ", "firm", " ", "1", " ", "plays", " ", "p1"}]}]}]}],
      "\[Rule]", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "c", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "p2switch"}], ")"}], " ", "\[Gamma]"}]}], 
       ")"}]}]}], "=", "p1NoRat"}], ",", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
      "with", " ", "proba", " ", "xequ2constr", " ", "firm", " ", "1", " ", 
       "plays", " ", "the", " ", "price", " ", "that", " ", "induces", " ", 
       "the", " ", "fact", " ", "that", " ", "firm", " ", "2", " ", "is", " ", 
       RowBox[{"constrained", ":", " ", "p1"}]}], "->", "BR1rationed"}], "=", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "c", "-", 
        RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
    "Firm", " ", "2", " ", "plays", " ", "the", " ", "best", " ", "response", 
     " ", "to", " ", "all", " ", "this", " ", "that", " ", "is", " ", 
     "p2switch"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.729498022095951*^9, 3.729498058461252*^9}, {
  3.729498182251073*^9, 3.7294982121208982`*^9}, {3.7318242851336603`*^9, 
  3.73182428818966*^9}, {3.7318245673256607`*^9, 3.7318245883886604`*^9}, {
  3.7322515932376604`*^9, 3.7322517059246607`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Incentives to deviate to Exclusivity when admissible\
\>", "Subsection",
 CellChangeTimes->{3.7649951730415115`*^9, 3.764996482634573*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
    "We", " ", "show", " ", "that", " ", "whenever", " ", "firm", " ", "1", 
     " ", "makes", " ", "an", " ", "exclusive", " ", "offer", " ", "at", " ", 
     "the", " ", "lowest", " ", "of", " ", "the", " ", "two", " ", "prices", 
     " ", "used", " ", "in", " ", "the", " ", "mixed", " ", "strategy", " ", 
     "of", " ", "the", " ", "non"}], "-", 
    RowBox[{"exclusive", " ", "equilibrium"}]}], ",", " ", 
   RowBox[{
   "then", " ", "the", " ", "buyer", " ", "alway", " ", "accepts", " ", "it", 
    " ", 
    RowBox[{"(", 
     RowBox[{
     "the", " ", "same", " ", "in", " ", "the", " ", "case", " ", "of", " ", 
      "pure", " ", "strategies", " ", "is", " ", "immediate", " ", "and", " ",
       "discussed", " ", "in", " ", "the", " ", "main", " ", "text"}], 
     ")"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7318283571266603`*^9, 3.7318283826606607`*^9}, {
   3.7319038265706606`*^9, 3.7319038287066603`*^9}, {3.73225190203666*^9, 
   3.7322519593246603`*^9}, {3.73234126495866*^9, 3.7323413147506604`*^9}, 
   3.7645219068951125`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"q1e", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"ve1", "-", 
           RowBox[{"p1", "*", "q1"}]}], ",", "q1"}], "]"}], "\[Equal]", "0"}],
        ",", "q1"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Ue1dev", "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ve1", "-", 
      RowBox[{"p1", "*", "q1"}]}], "/.", 
     RowBox[{"q1", "\[Rule]", "q1e"}]}], "/.", 
    RowBox[{"p1", "\[Rule]", "p1NoRat"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7318283889096603`*^9, 3.73182841599666*^9}, {
   3.7318287011246605`*^9, 3.7318288343976603`*^9}, {3.7318289337326603`*^9, 
   3.7318289743966603`*^9}, {3.7318291063896604`*^9, 
   3.7318291089346604`*^9}, {3.73190333830766*^9, 3.7319033419796605`*^9}, {
   3.7322519728936605`*^9, 3.73225197518966*^9}, 3.7322521149746604`*^9, {
   3.7323339555456605`*^9, 3.7323339578416605`*^9}, {3.7323411742966604`*^9, 
   3.7323411848656607`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "8"], " ", 
  RowBox[{"(", 
   RowBox[{"5", "-", 
    RowBox[{"4", " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "-", 
    RowBox[{"\[Gamma]", " ", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "+", 
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.7318284038206606`*^9, 3.7318284163276606`*^9}, {
   3.7318287135846605`*^9, 3.7318287482566605`*^9}, 3.73182894556266*^9, 
   3.7318289771416607`*^9, 3.73182911220166*^9, 3.73190338831966*^9, 
   3.73225201795866*^9, 3.7322521558766603`*^9, 3.7323339407836604`*^9, 
   3.7323339990806603`*^9, 3.7323411851256604`*^9, 3.732859588292916*^9, 
   3.732887422490821*^9, 3.734438113085885*^9, 3.7344413164764967`*^9, 
   3.7645219218959193`*^9, 3.764594070335252*^9, 3.764610253705224*^9, 
   3.7646104273469863`*^9, 3.7649965177765665`*^9, 3.765442802015506*^9, 
   3.765773458459341*^9, 3.7658176161776147`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"q2e", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"ve2", "-", 
           RowBox[{"p2", "*", "q2"}]}], ",", "q2"}], "]"}], "\[Equal]", "0"}],
        ",", "q2"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"ve2", "-", 
     RowBox[{"p2", "*", "q2"}]}], "/.", 
    RowBox[{"q2", "\[Rule]", "q2e"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"p2", "\[Rule]", "p2switch"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Ue2dev", "=", 
  RowBox[{"FullSimplify", "[", " ", "%", "]"}]}]}], "Input",
 CellChangeTimes->{{3.7318289887656603`*^9, 3.73182904100566*^9}, 
   3.7322519895986605`*^9, {3.7322520743496604`*^9, 3.73225209002966*^9}}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SqrtBox[
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], ")"}], "2"], 
  RowBox[{"2", " ", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 CellChangeTimes->{{3.73182902380766*^9, 3.7318290411396604`*^9}, 
   3.7319033889246607`*^9, 3.7322520180166607`*^9, {3.7322520782576604`*^9, 
   3.7322520902006607`*^9}, 3.7322521560256605`*^9, 3.7323339992516603`*^9, 
   3.7323411879216604`*^9, 3.732859588417916*^9, 3.7328874235476685`*^9, 
   3.7344381133466225`*^9, 3.7344413167221518`*^9, 3.76452192557975*^9, 
   3.7645940732804146`*^9, 3.764610253769012*^9, 3.7646104274068184`*^9, 
   3.7649965201821613`*^9, 3.765442802085346*^9, 3.7657734585291796`*^9, 
   3.7658176162334356`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Clearly", " ", "the", " ", "deviation", " ", "is", " ", "profitable", 
     " ", 
     RowBox[{"(", 
      RowBox[{
      "firm", " ", "1", " ", "was", " ", "indifferent", " ", "between", " ", 
       "the", " ", "two", " ", "prices"}], ")"}], " ", "and", " ", "it", " ", 
     "always", " ", "accepted", " ", "by", " ", "the", " ", "buyer"}], ",", 
    " ", 
    RowBox[{"as", " ", "seen", " ", "here"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Line", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"kswitch", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"kswitch", ",", "1"}], "}"}]}], "}"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Ue1dev", ",", "Ue2dev"}], "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".1"}], ",", "1"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Red"}], "}"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PlotStyle", "->", 
           RowBox[{"{", "Black", "}"}]}], ",", "%%"}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<Ue1dev\>\"", ",", "\"\<Ue2dev\>\""}], "}"}]}]}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7318290827986603`*^9, 3.7318291820786605`*^9}, {
   3.7318292923816605`*^9, 3.7318292966136603`*^9}, {3.7319034004756603`*^9, 
   3.7319034024756603`*^9}, {3.7319038472116604`*^9, 3.73190392188566*^9}, {
   3.73225200855066*^9, 3.7322520553826604`*^9}, {3.73225273951066*^9, 
   3.7322528204386606`*^9}, {3.7323412034566603`*^9, 3.73234124688066*^9}, 
   3.7645219349866347`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}, {{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    555., {136., 144.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`c$16754$$ = 
    0, $CellContext`\[Gamma]$16755$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$16754$$, 0], 
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$16755$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[1, 8] (5 - 
          4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
           Rational[
            1, 2] - $CellContext`\[Gamma]$$ ($CellContext`\[Gamma]$$ + \
($CellContext`k (-2 + $CellContext`k $CellContext`\[Gamma]$$)) (-1 + \
$CellContext`\[Gamma]$$^2))), (
          Rational[
           1, 2] $CellContext`\[Gamma]$$^(-2)) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
            Rational[1, 2])^2}, {$CellContext`k, 0, 1}, 
        PlotRange -> {-0.1, 1}, PlotStyle -> {Green, Red}, 
        Epilog -> {PlotStyle -> {Black}, 
          
          Line[{{$CellContext`\[Gamma]$$^(-1) (
              1 + (2/(-1 + $CellContext`\[Gamma]$$^2)) (((-(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c$$ \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)^2)^Rational[1, 2]/
                Abs[-4 + $CellContext`\[Gamma]$$^2])), 
             0}, {$CellContext`\[Gamma]$$^(-1) (
              1 + (2/(-1 + $CellContext`\[Gamma]$$^2)) (((-(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c$$ \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)^2)^Rational[1, 2]/
                Abs[-4 + $CellContext`\[Gamma]$$^2])), 1}}]}, 
        PlotLegends -> {"Ue1dev", "Ue2dev"}], 
      "Specifications" :> {{$CellContext`c$$, 0, 
         1}, {{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{616., {211., 218.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7318291514976606`*^9, 3.7318291834756603`*^9, {3.7318292927566605`*^9, 
   3.73182929702966*^9}, 3.7318310156176605`*^9, 3.7319034194106607`*^9, {
   3.7319038731036606`*^9, 3.73190392224866*^9}, {3.7322520578506603`*^9, 
   3.73225209238566*^9}, 3.7322521560556602`*^9, 3.7323340495736604`*^9, 
   3.7323411931406603`*^9, 3.7328595884399157`*^9, 3.7328874261978235`*^9, 
   3.7344381134678984`*^9, 3.734441316753235*^9, 3.76452193581488*^9, 
   3.7645940814665556`*^9, 3.7646102537909684`*^9, 3.7646104274367385`*^9, 
   3.7654428021132355`*^9, 3.7657734585570374`*^9, 3.7658176162493935`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.724326268815879*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Effects of exclusivity", "Subsection",
 CellChangeTimes->{
  3.7649951730415115`*^9, 3.764996482634573*^9, {3.764996581308565*^9, 
   3.7649965861515913`*^9}, {3.765773457075999*^9, 3.7657734615979214`*^9}, {
   3.767530677985879*^9, 3.7675306795657115`*^9}, 3.7675308129714904`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "first", " ", "define", " ", "the", " ", "surplus", " ", "in", 
    " ", "the", " ", "mixed", " ", "strategy", " ", "equilibrium"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{"p2", " ", "q2"}]}], "/.", "qNE"}], "/.", 
      RowBox[{"p2", "\[Rule]", "p2switch"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "/.", 
     RowBox[{"p1", "\[Rule]", "p1NoRat"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%%", "/.", 
     RowBox[{"p1", "\[Rule]", "BR1rationed"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"VCRmix", "=", 
     RowBox[{"Simplify", "[", " ", 
      RowBox[{
       RowBox[{"xequ2constr", " ", "%"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "xequ2constr"}], ")"}], "%%"}]}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7318298834936604`*^9, 3.7318299290616603`*^9}, 
   3.7318299822776604`*^9, 3.7318316851336603`*^9, 3.7319044959796605`*^9, {
   3.7323427373916607`*^9, 3.7323427572986603`*^9}, {3.764522098439431*^9, 
   3.764522123081946*^9}, {3.7645221720581045`*^9, 3.7645221725928445`*^9}, {
   3.764594297770194*^9, 3.764594305108575*^9}, {3.7649966119197097`*^9, 
   3.7649966121250963`*^9}, {3.7649966594305887`*^9, 3.7649966894522457`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Summarizing", ",", " ", 
    RowBox[{
     RowBox[{
     "in", " ", "exclusivity", " ", "the", " ", "buyer", " ", "gets", " ", 
      "one", " ", "of", " ", "the", " ", "following", " ", "payoffs", " ", 
      "respectively", " ", "when", " ", "k"}], "<", 
     RowBox[{
      RowBox[{"(", ">", ")"}], 
      RowBox[{"kpe1constr", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "Ve1mon", "\[IndentingNewLine]", "Ve1constr", "\[IndentingNewLine]", 
   "Ve2"}]}]], "Input",
 CellChangeTimes->{{3.7649973683148675`*^9, 3.7649974883746557`*^9}, {
  3.7649975802009597`*^9, 3.764997614968951*^9}, {3.7649976801565332`*^9, 
  3.764997688204982*^9}}],

Cell[BoxData[
 FractionBox["1", "8"]], "Output",
 CellChangeTimes->{{3.764997370796194*^9, 3.7649973937697268`*^9}, {
   3.7649974266886497`*^9, 3.7649974499903584`*^9}, 3.764997568228971*^9, 
   3.7649976884642835`*^9, 3.765442803377513*^9, 3.7657734598106833`*^9, 
   3.7658176175569353`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.764997370796194*^9, 3.7649973937697268`*^9}, {
   3.7649974266886497`*^9, 3.7649974499903584`*^9}, 3.764997568228971*^9, 
   3.7649976884642835`*^9, 3.765442803377513*^9, 3.7657734598106833`*^9, 
   3.7658176175579324`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.764997370796194*^9, 3.7649973937697268`*^9}, {
   3.7649974266886497`*^9, 3.7649974499903584`*^9}, 3.764997568228971*^9, 
   3.7649976884642835`*^9, 3.765442803377513*^9, 3.7657734598106833`*^9, 
   3.7658176175589294`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "First", " ", "we", " ", "identify", " ", "the", " ", "regions", " ", 
    "for", " ", "the", " ", "exclusive", " ", "and", " ", "CR", " ", 
    RowBox[{"equilibria", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"k", "<", "kpe1constr"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"k", "<", "kswitch"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"RegionPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", "%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\[Gamma]", ",", "K"}], "}"}]}], ",", 
       RowBox[{"BoundaryStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7649979336632185`*^9, 3.764997967294242*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {221., 229.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17669$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17669$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      RegionPlot[{$CellContext`k < $CellContext`\[Gamma]^(-1) (
           1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
             Abs[-4 + $CellContext`\[Gamma]^2])), $CellContext`k < 
         1 - $CellContext`c$$ + 
          Rational[-1, 2] (3 + (4 (-2 + $CellContext`c$$)) $CellContext`c$$)^
            Rational[1, 2]}, {$CellContext`\[Gamma], 0, 1}, {$CellContext`k, 
         0, 1}, FrameLabel -> {$CellContext`\[Gamma], K}, BoundaryStyle -> 
        Black], "Specifications" :> {{$CellContext`c$$, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {278., 285.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.764997936216449*^9, 3.764997967785934*^9, 
  3.7654428034104934`*^9, 3.7657734598377037`*^9, 3.765817617570899*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"There", " ", "are", " ", "3", " ", 
    RowBox[{"regions", ":", "\[IndentingNewLine]", 
     RowBox[{"a", "-", " ", 
      RowBox[{
      "In", " ", "the", " ", "bottom", " ", "part", " ", "we", " ", "have", 
       " ", "monopoly", " ", "price", " ", "with", " ", "E", " ", "and", " ", 
       "mixed", " ", "strategies", " ", "with", " ", "CR"}]}]}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"b", "-", " ", 
    RowBox[{
    "In", " ", "the", " ", "middle", " ", "part", " ", "we", " ", "have", " ",
      "constrained", " ", "price", " ", "with", " ", "E", " ", "and", " ", 
     "mixed", " ", "strategies", " ", "with", " ", "CR"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"c", "-", " ", 
    RowBox[{
    "In", " ", "the", " ", "upper", " ", "part", " ", "we", " ", "have", " ", 
     "constrained", " ", "price", " ", "with", " ", "E", " ", "and", " ", 
     "pure", " ", "strategies", " ", "with", " ", 
     RowBox[{"CR", "."}]}]}]}], "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.764997973327093*^9, 3.764998094991568*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Let", "'"}], "s", " ", "first", " ", "study", " ", "case", " ", 
     "a"}], "-", 
    RowBox[{
     RowBox[{".", " ", "The"}], " ", "region", " ", "is", " ", "the", " ", 
     RowBox[{"following", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"k", "<", "kpe1constr"}], "&&", 
     RowBox[{"k", "<", "kswitch"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"RegionPlot", "[", 
      RowBox[{
       RowBox[{"{", "%", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\[Gamma]", ",", "K"}], "}"}]}], ",", 
       RowBox[{"BoundaryStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.764998127275216*^9, 3.7649982033057723`*^9}, {
  3.7649982511976233`*^9, 3.7649982657187862`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {221., 229.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17686$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17686$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> RegionPlot[{
         And[$CellContext`k < 
          1 - $CellContext`c$$ + 
           Rational[-1, 2] (3 + (4 (-2 + $CellContext`c$$)) $CellContext`c$$)^
             Rational[1, 2], $CellContext`k < $CellContext`\[Gamma]^(-1) (
            1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
              Abs[-4 + $CellContext`\[Gamma]^2]))]}, {$CellContext`\[Gamma], 
         0, 1}, {$CellContext`k, 0, 1}, 
        FrameLabel -> {$CellContext`\[Gamma], K}, BoundaryStyle -> Black], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {278., 285.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7649981674776573`*^9, 3.7649982046841016`*^9}, 
   3.764998254192618*^9, 3.765442803443371*^9, 3.765773459864541*^9, 
   3.7658176175888414`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Effect", " ", "on", " ", 
    RowBox[{"welfare", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"k", "<", "kpe1constr"}], "&&", 
     RowBox[{"k", "<", "kswitch"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"VCRmix", ">", "Ve1mon"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"RegionPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", "%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\[Gamma]", ",", "K"}], "}"}]}], ",", 
       RowBox[{"BoundaryStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7649982764460754`*^9, 3.7649982863116913`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {221., 229.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17703$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17703$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      RegionPlot[{((
            Rational[
             1, 2] $CellContext`\[Gamma]^(-2))/(-1 + \
$CellContext`\[Gamma]^2)) ((($CellContext`k $CellContext`\[Gamma]) (-1 + \
$CellContext`\[Gamma]^2)^2) ((-8 + 3 $CellContext`\[Gamma]^2 + 
              8 ((-(-1 + $CellContext`k $CellContext`\[Gamma])^2) (-1 + \
$CellContext`\[Gamma]^2))^
                Rational[
                 1, 2] + ($CellContext`k^2 $CellContext`\[Gamma]^2) (-4 + 
                3 $CellContext`\[Gamma]^2) + $CellContext`k (
                8 $CellContext`\[Gamma] - 
                6 $CellContext`\[Gamma]^3))/(((-2) $CellContext`\[Gamma]^2) \
(-2 + (1 - $CellContext`\[Gamma]^2)^Rational[1, 2]) + ((
                2 $CellContext`k) $CellContext`\[Gamma]^3) (-2 + (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2]) + 
             8 (-1 + (1 - $CellContext`\[Gamma]^2)^Rational[1, 2]) - (
              4 $CellContext`\[Gamma]) (-1 + $CellContext`c$$ - \
$CellContext`k + (2 $CellContext`k) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2]))) + ((
              Rational[1, 4] (4 - 
               2 $CellContext`\[Gamma] + (
                 2 $CellContext`c$$) $CellContext`\[Gamma] - 
               2 $CellContext`\[Gamma]^2 + ($CellContext`\[Gamma]^2 (
                  1 - $CellContext`k $CellContext`\[Gamma])) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 4 (-1 + $CellContext`k $CellContext`\[Gamma])) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2]))/(4 - 
             2 $CellContext`\[Gamma] + (
               2 $CellContext`c$$) $CellContext`\[Gamma] - (
              2 $CellContext`k) $CellContext`\[Gamma] - 
             2 $CellContext`\[Gamma]^2 + (
               2 $CellContext`k) $CellContext`\[Gamma]^3 + ($CellContext`\
\[Gamma]^2 (1 - $CellContext`k $CellContext`\[Gamma])) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               4 (-1 + $CellContext`k $CellContext`\[Gamma])) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2])) (-8 + 
             8 ((-(-1 + $CellContext`k $CellContext`\[Gamma])^2) (-1 + \
$CellContext`\[Gamma]^2))^
               Rational[
                1, 2] + ($CellContext`k^2 $CellContext`\[Gamma]^2) (-4 + 
               3 $CellContext`\[Gamma]^2) - $CellContext`\[Gamma]^2 (-7 + 
              4 ((-(-1 + $CellContext`k $CellContext`\[Gamma])^2) (-1 + \
$CellContext`\[Gamma]^2))^Rational[1, 2]) - ((
               2 $CellContext`k) $CellContext`\[Gamma]) (-4 + $CellContext`\
\[Gamma]^2 (3 + 
                2 ((-(-1 + $CellContext`k $CellContext`\[Gamma])^2) (-1 + \
$CellContext`\[Gamma]^2))^Rational[1, 2])))) > Rational[1, 8], 
         And[$CellContext`k < 
          1 - $CellContext`c$$ + 
           Rational[-1, 2] (3 + (4 (-2 + $CellContext`c$$)) $CellContext`c$$)^
             Rational[1, 2], $CellContext`k < $CellContext`\[Gamma]^(-1) (
            1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
              Abs[-4 + $CellContext`\[Gamma]^2]))]}, {$CellContext`\[Gamma], 
         0, 1}, {$CellContext`k, 0, 1}, 
        FrameLabel -> {$CellContext`\[Gamma], K}, BoundaryStyle -> Black], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {278., 285.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.7649982711522017`*^9, 3.7654428034702673`*^9, 
  3.7657734598924665`*^9, 3.7658176176037707`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Here", " ", "Exclusivity", " ", "is", " ", "always", " ", "welfare", " ", 
   "reducing"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7649982220246735`*^9, 3.764998236925778*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Region", " ", "b", " ", 
    RowBox[{"(", 
     RowBox[{
     "constrained", " ", "price", " ", "with", " ", "E", " ", "and", " ", 
      "mixed", " ", "strategies", " ", "with", " ", "CR"}], ")"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"k", ">", "kpe1constr"}], "&&", 
     RowBox[{"k", "<", "kswitch"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"RegionPlot", "[", 
      RowBox[{
       RowBox[{"{", "%", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\[Gamma]", ",", "K"}], "}"}]}], ",", 
       RowBox[{"BoundaryStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7645225499259973`*^9, 3.764522565632004*^9}, {
   3.764522613557872*^9, 3.7645226421005583`*^9}, {3.764594320568243*^9, 
   3.76459437052874*^9}, {3.764607819421335*^9, 3.7646078235114546`*^9}, {
   3.7646078560414686`*^9, 3.7646078748043127`*^9}, {3.7649966243853574`*^9, 
   3.7649966301937523`*^9}, {3.764996761111501*^9, 3.7649967625416894`*^9}, {
   3.7649967938339725`*^9, 3.7649968127533426`*^9}, 3.7649977510627832`*^9, {
   3.7649983299220223`*^9, 3.76499840362084*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {221., 229.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17720$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17720$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> RegionPlot[{
         And[$CellContext`k > 
          1 - $CellContext`c$$ + 
           Rational[-1, 2] (3 + (4 (-2 + $CellContext`c$$)) $CellContext`c$$)^
             Rational[1, 2], $CellContext`k < $CellContext`\[Gamma]^(-1) (
            1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
              Abs[-4 + $CellContext`\[Gamma]^2]))]}, {$CellContext`\[Gamma], 
         0, 1}, {$CellContext`k, 0, 1}, 
        FrameLabel -> {$CellContext`\[Gamma], K}, BoundaryStyle -> Black], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {278., 285.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7645225664288387`*^9, {3.7645226148154664`*^9, 3.764522642610217*^9}, {
   3.7645943163046994`*^9, 3.7645943320954247`*^9}, {3.764594371671618*^9, 
   3.764594383152955*^9}, 3.76460782409789*^9, {3.764607856894188*^9, 
   3.764607875247117*^9}, {3.7646102552191615`*^9, 3.764610272636649*^9}, {
   3.76461031364795*^9, 3.7646103198333874`*^9}, 3.764610428955677*^9, {
   3.7649966263321333`*^9, 3.764996630654582*^9}, {3.7649967580417175`*^9, 
   3.7649967629426184`*^9}, 3.764996813570163*^9, 3.764997751751959*^9, {
   3.7649983886239357`*^9, 3.764998404274078*^9}, 3.765442803505856*^9, 
   3.765773459922389*^9, 3.765817617624714*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"k", ">", "kpe1constr"}], "&&", 
   RowBox[{"k", "<", "kswitch"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"VCRmix", ">", "Ve1constr"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"RegionPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"%%", ",", "%"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "K"}], "}"}]}], ",", 
     RowBox[{"BoundaryStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.764522316215036*^9, 3.764522429895963*^9}, {
   3.7645224889240847`*^9, 3.764522510989061*^9}, {3.7645226539927244`*^9, 
   3.7645226579242916`*^9}, {3.764594446297103*^9, 3.7645945455228806`*^9}, {
   3.764594593881529*^9, 3.764594601403481*^9}, {3.764594643513921*^9, 
   3.7645946756858225`*^9}, {3.7649972371907234`*^9, 3.764997262359376*^9}, 
   3.764997757064726*^9, {3.7649984205654964`*^9, 3.7649984606721563`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {221., 229.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17737$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17737$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> RegionPlot[{
         And[$CellContext`k > 
          1 - $CellContext`c$$ + 
           Rational[-1, 2] (3 + (4 (-2 + $CellContext`c$$)) $CellContext`c$$)^
             Rational[1, 2], $CellContext`k < $CellContext`\[Gamma]^(-1) (
            1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
              Abs[-4 + $CellContext`\[Gamma]^2]))], ((
            Rational[
             1, 2] $CellContext`\[Gamma]^(-2))/(-1 + \
$CellContext`\[Gamma]^2)) ((($CellContext`k $CellContext`\[Gamma]) (-1 + \
$CellContext`\[Gamma]^2)^2) ((-8 + 3 $CellContext`\[Gamma]^2 + 
              8 ((-(-1 + $CellContext`k $CellContext`\[Gamma])^2) (-1 + \
$CellContext`\[Gamma]^2))^
                Rational[
                 1, 2] + ($CellContext`k^2 $CellContext`\[Gamma]^2) (-4 + 
                3 $CellContext`\[Gamma]^2) + $CellContext`k (
                8 $CellContext`\[Gamma] - 
                6 $CellContext`\[Gamma]^3))/(((-2) $CellContext`\[Gamma]^2) \
(-2 + (1 - $CellContext`\[Gamma]^2)^Rational[1, 2]) + ((
                2 $CellContext`k) $CellContext`\[Gamma]^3) (-2 + (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2]) + 
             8 (-1 + (1 - $CellContext`\[Gamma]^2)^Rational[1, 2]) - (
              4 $CellContext`\[Gamma]) (-1 + $CellContext`c$$ - \
$CellContext`k + (2 $CellContext`k) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2]))) + ((
              Rational[1, 4] (4 - 
               2 $CellContext`\[Gamma] + (
                 2 $CellContext`c$$) $CellContext`\[Gamma] - 
               2 $CellContext`\[Gamma]^2 + ($CellContext`\[Gamma]^2 (
                  1 - $CellContext`k $CellContext`\[Gamma])) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 4 (-1 + $CellContext`k $CellContext`\[Gamma])) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2]))/(4 - 
             2 $CellContext`\[Gamma] + (
               2 $CellContext`c$$) $CellContext`\[Gamma] - (
              2 $CellContext`k) $CellContext`\[Gamma] - 
             2 $CellContext`\[Gamma]^2 + (
               2 $CellContext`k) $CellContext`\[Gamma]^3 + ($CellContext`\
\[Gamma]^2 (1 - $CellContext`k $CellContext`\[Gamma])) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               4 (-1 + $CellContext`k $CellContext`\[Gamma])) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2])) (-8 + 
             8 ((-(-1 + $CellContext`k $CellContext`\[Gamma])^2) (-1 + \
$CellContext`\[Gamma]^2))^
               Rational[
                1, 2] + ($CellContext`k^2 $CellContext`\[Gamma]^2) (-4 + 
               3 $CellContext`\[Gamma]^2) - $CellContext`\[Gamma]^2 (-7 + 
              4 ((-(-1 + $CellContext`k $CellContext`\[Gamma])^2) (-1 + \
$CellContext`\[Gamma]^2))^Rational[1, 2]) - ((
               2 $CellContext`k) $CellContext`\[Gamma]) (-4 + $CellContext`\
\[Gamma]^2 (3 + 
                2 ((-(-1 + $CellContext`k $CellContext`\[Gamma])^2) (-1 + \
$CellContext`\[Gamma]^2))^Rational[1, 2])))) > (
           Rational[-1, 2] $CellContext`k) (-2 + 
           2 $CellContext`c$$ + $CellContext`k)}, {$CellContext`\[Gamma], 0, 
         1}, {$CellContext`k, 0, 1}, FrameLabel -> {$CellContext`\[Gamma], K},
         BoundaryStyle -> Black], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {278., 285.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.76452236113332*^9, 3.7645224304387183`*^9}, {
   3.764522493158719*^9, 3.7645225112822905`*^9}, 3.764522660758635*^9, {
   3.7645944497758355`*^9, 3.7645945085626326`*^9}, 3.764594546263896*^9, 
   3.7645946019709272`*^9, {3.764594655536726*^9, 3.764594676077809*^9}, 
   3.764610255241101*^9, 3.7646104290294943`*^9, 3.7649972630285964`*^9, 
   3.7649977585956316`*^9, {3.764998442699254*^9, 3.7649984612296915`*^9}, 
   3.764999209307132*^9, 3.7654428035356274`*^9, 3.765773459957334*^9, 
   3.7658176176467023`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"VCRmix", "-", "Ve1constr"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"k", " ", "\[Gamma]"}]}], "<", "0"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tmpregimeb", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"%", "\[Equal]", "0"}], ",", "k"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7657737895637245`*^9, 3.7657738708500104`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Hence", ",", " ", 
    RowBox[{
    "the", " ", "relevant", " ", "boundaries", " ", "are", " ", "the", " ", 
     "following"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"tmpregimeb", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", "kswitch", ",", 
      RowBox[{"Min", "[", 
       RowBox[{
        RowBox[{"Re", "[", 
         RowBox[{"tmpregimeb", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
        "kswitch"}], "]"}]}], "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Quiet", "[", 
      RowBox[{"Plot", "[", 
       RowBox[{"%", ",", 
        RowBox[{"{", 
         RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.764998552734847*^9, 3.7649990176668906`*^9}, {
   3.7649990496892047`*^9, 3.7649990676301746`*^9}, {3.764999110585232*^9, 
   3.764999120631399*^9}, {3.7649991576333895`*^9, 3.764999172655139*^9}, {
   3.764999232981761*^9, 3.764999281636595*^9}, {3.7657739615267067`*^9, 
   3.7657739814031363`*^9}, 3.7657740640328565`*^9, {3.76577410261281*^9, 
   3.7657741171688004`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {146., 153.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17756$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17756$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Quiet[
        Plot[{(Rational[-1, 3]/((-16) $CellContext`\[Gamma]^3 + 
            22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
            2 $CellContext`\[Gamma]^9 + (
              32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
             36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] + (
              7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2])) (80 $CellContext`\[Gamma]^2 - 
            112 $CellContext`\[Gamma]^4 - 
            18 $CellContext`\[Gamma]^5 + (
              18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
            42 $CellContext`\[Gamma]^6 + 
            16 $CellContext`\[Gamma]^7 - (
             16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
            8 $CellContext`\[Gamma]^8 - (
             80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] - (
             32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
             Rational[
              1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
              84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
              48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - ((
              48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
              1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
             21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] - (
             8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
             Rational[
              1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2]) + ((((Rational[1, 3] 2^Rational[-2, 3]) (1 + 
               Complex[0, 1] 
                3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
             22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
             2 $CellContext`\[Gamma]^9 + (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
               7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2])) ((
               3 ((-112) $CellContext`\[Gamma] - 
                16 $CellContext`\[Gamma]^2 + (
                  16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                190 $CellContext`\[Gamma]^3 - (
                 32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                  16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                36 $CellContext`\[Gamma]^4 - (
                 36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                92 $CellContext`\[Gamma]^5 + (
                  32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                 16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                16 $CellContext`\[Gamma]^6 + (
                  16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                10 $CellContext`\[Gamma]^7 + (
                  112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] + (
                  16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                  16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                 116 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - (
                 40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                 Rational[
                  1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                  29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] + (
                  8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                  8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                  1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
               22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
               2 $CellContext`\[Gamma]^9 + (
                 32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - (
                36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] + (
                 7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
              112 $CellContext`\[Gamma]^4 - 
              18 $CellContext`\[Gamma]^5 + (
                18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
              42 $CellContext`\[Gamma]^6 + 
              16 $CellContext`\[Gamma]^7 - (
               16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
              8 $CellContext`\[Gamma]^8 - (
               80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] + (
                48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
               8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2])^2)) ((-335872) $CellContext`\[Gamma]^6 + 
             1191936 $CellContext`\[Gamma]^7 - (
              1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
             486912 $CellContext`\[Gamma]^8 + (
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
              823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
             5584896 $CellContext`\[Gamma]^9 + (
               5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
              442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
               147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
             2013120 $CellContext`\[Gamma]^10 - (
              7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
               3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
             11186880 $CellContext`\[Gamma]^11 - (
              12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
               2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
              834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
             6885232 $CellContext`\[Gamma]^12 + (
               16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
              8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
             12488784 $CellContext`\[Gamma]^13 + (
               16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
              5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
               1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
             9101376 $CellContext`\[Gamma]^14 - (
              18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
               9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
             8488080 $CellContext`\[Gamma]^15 - (
              13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
               6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
              2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
             6501504 $CellContext`\[Gamma]^16 + (
               12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
              6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
             3592416 $CellContext`\[Gamma]^17 + (
               6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
              4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
               1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
             2660016 $CellContext`\[Gamma]^18 - (
              5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
               2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
             917424 $CellContext`\[Gamma]^19 - (
              2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
               1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
              595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
             601872 $CellContext`\[Gamma]^20 + (
               1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
              581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
             123488 $CellContext`\[Gamma]^21 + (
               338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
              322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
               107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
             64896 $CellContext`\[Gamma]^22 - (
              127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
               63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
             5328 $CellContext`\[Gamma]^23 - (
              17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
               18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
              6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
             1904 $CellContext`\[Gamma]^24 + (
               3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
              1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
               335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - ((
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               4985344 $CellContext`\[Gamma]^9) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              2124864 $CellContext`\[Gamma]^10) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              8822272 $CellContext`\[Gamma]^11) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               5763936 $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               8588064 $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              6393024 $CellContext`\[Gamma]^14) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              5012736 $CellContext`\[Gamma]^15) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               3776832 $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               1783680 $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              1234080 $CellContext`\[Gamma]^18) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               207072 $CellContext`\[Gamma]^20) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                 1191936 $CellContext`\[Gamma]^7 - (
                  1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                 486912 $CellContext`\[Gamma]^8 + (
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                  823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                 5584896 $CellContext`\[Gamma]^9 + (
                   5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                  442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                   147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                 2013120 $CellContext`\[Gamma]^10 - (
                  7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                   3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                 11186880 $CellContext`\[Gamma]^11 - (
                  12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                   2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                  834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                 6885232 $CellContext`\[Gamma]^12 + (
                   16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                  8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                 12488784 $CellContext`\[Gamma]^13 + (
                   16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                  5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                   1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                 9101376 $CellContext`\[Gamma]^14 - (
                  18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                   9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                 8488080 $CellContext`\[Gamma]^15 - (
                  13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                   6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                  2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                 6501504 $CellContext`\[Gamma]^16 + (
                   12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                  6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                 3592416 $CellContext`\[Gamma]^17 + (
                   6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                  4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                   1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                 2660016 $CellContext`\[Gamma]^18 - (
                  5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                   2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                 917424 $CellContext`\[Gamma]^19 - (
                  2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                   1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                  595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                 601872 $CellContext`\[Gamma]^20 + (
                   1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                  581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                 123488 $CellContext`\[Gamma]^21 + (
                   338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                  322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                   107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                 64896 $CellContext`\[Gamma]^22 - (
                  127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                   63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                 5328 $CellContext`\[Gamma]^23 - (
                  17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                   18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                  6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                 1904 $CellContext`\[Gamma]^24 + (
                   3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                  1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                   335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1191936 $CellContext`\[Gamma]^7) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  318976 $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  2124864 $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  8822272 $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  6393024 $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  5012736 $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1234080 $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  360672 $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  12000 $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
               4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                   112 $CellContext`\[Gamma]^4 - 
                   18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                   42 $CellContext`\[Gamma]^6 + 
                   16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                   8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
              Rational[1, 2])^
            Rational[-1, 3] + (((Rational[-1, 6] 2^Rational[-1, 3]) (1 + 
              Complex[0, -1] 
               3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
            22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
            2 $CellContext`\[Gamma]^9 + (
              32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
             36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] + (
              7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2])) ((-335872) $CellContext`\[Gamma]^6 + 
             1191936 $CellContext`\[Gamma]^7 - (
              1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
             486912 $CellContext`\[Gamma]^8 + (
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
              823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
             5584896 $CellContext`\[Gamma]^9 + (
               5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
              442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
               147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
             2013120 $CellContext`\[Gamma]^10 - (
              7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
               3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
             11186880 $CellContext`\[Gamma]^11 - (
              12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
               2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
              834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
             6885232 $CellContext`\[Gamma]^12 + (
               16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
              8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
             12488784 $CellContext`\[Gamma]^13 + (
               16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
              5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
               1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
             9101376 $CellContext`\[Gamma]^14 - (
              18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
               9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
             8488080 $CellContext`\[Gamma]^15 - (
              13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
               6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
              2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
             6501504 $CellContext`\[Gamma]^16 + (
               12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
              6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
             3592416 $CellContext`\[Gamma]^17 + (
               6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
              4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
               1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
             2660016 $CellContext`\[Gamma]^18 - (
              5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
               2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
             917424 $CellContext`\[Gamma]^19 - (
              2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
               1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
              595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
             601872 $CellContext`\[Gamma]^20 + (
               1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
              581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
             123488 $CellContext`\[Gamma]^21 + (
               338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
              322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
               107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
             64896 $CellContext`\[Gamma]^22 - (
              127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
               63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
             5328 $CellContext`\[Gamma]^23 - (
              17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
               18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
              6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
             1904 $CellContext`\[Gamma]^24 + (
               3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
              1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
               335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - ((
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               4985344 $CellContext`\[Gamma]^9) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              2124864 $CellContext`\[Gamma]^10) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              8822272 $CellContext`\[Gamma]^11) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               5763936 $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               8588064 $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              6393024 $CellContext`\[Gamma]^14) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              5012736 $CellContext`\[Gamma]^15) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               3776832 $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               1783680 $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              1234080 $CellContext`\[Gamma]^18) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               207072 $CellContext`\[Gamma]^20) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                 1191936 $CellContext`\[Gamma]^7 - (
                  1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                 486912 $CellContext`\[Gamma]^8 + (
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                  823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                 5584896 $CellContext`\[Gamma]^9 + (
                   5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                  442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                   147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                 2013120 $CellContext`\[Gamma]^10 - (
                  7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                   3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                 11186880 $CellContext`\[Gamma]^11 - (
                  12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                   2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                  834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                 6885232 $CellContext`\[Gamma]^12 + (
                   16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                  8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                 12488784 $CellContext`\[Gamma]^13 + (
                   16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                  5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                   1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                 9101376 $CellContext`\[Gamma]^14 - (
                  18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                   9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                 8488080 $CellContext`\[Gamma]^15 - (
                  13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                   6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                  2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                 6501504 $CellContext`\[Gamma]^16 + (
                   12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                  6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                 3592416 $CellContext`\[Gamma]^17 + (
                   6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                  4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                   1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                 2660016 $CellContext`\[Gamma]^18 - (
                  5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                   2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                 917424 $CellContext`\[Gamma]^19 - (
                  2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                   1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                  595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                 601872 $CellContext`\[Gamma]^20 + (
                   1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                  581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                 123488 $CellContext`\[Gamma]^21 + (
                   338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                  322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                   107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                 64896 $CellContext`\[Gamma]^22 - (
                  127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                   63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                 5328 $CellContext`\[Gamma]^23 - (
                  17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                   18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                  6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                 1904 $CellContext`\[Gamma]^24 + (
                   3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                  1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                   335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1191936 $CellContext`\[Gamma]^7) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  318976 $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  2124864 $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  8822272 $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  6393024 $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  5012736 $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1234080 $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  360672 $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  12000 $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
               4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                   112 $CellContext`\[Gamma]^4 - 
                   18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                   42 $CellContext`\[Gamma]^6 + 
                   16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                   8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
              Rational[1, 2])^Rational[1, 3], $CellContext`\[Gamma]^(-1) (
           1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
             Abs[-4 + $CellContext`\[Gamma]^2])), 
          
          Min[$CellContext`\[Gamma]^(-1) (
            1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
              Abs[-4 + $CellContext`\[Gamma]^2])), 
           
           Re[(Rational[-1, 3]/((-16) $CellContext`\[Gamma]^3 + 
              22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
              2 $CellContext`\[Gamma]^9 + (
                32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
               36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] + (
                7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2])) (80 $CellContext`\[Gamma]^2 - 
              112 $CellContext`\[Gamma]^4 - 
              18 $CellContext`\[Gamma]^5 + (
                18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
              42 $CellContext`\[Gamma]^6 + 
              16 $CellContext`\[Gamma]^7 - (
               16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
              8 $CellContext`\[Gamma]^8 - (
               80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] + (
                48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
               8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2]) + ((((Rational[1, 3] 2^Rational[-2, 3]) (1 + 
                 Complex[0, 1] 
                  3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
               22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
               2 $CellContext`\[Gamma]^9 + (
                 32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - (
                36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] + (
                 7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2])) ((
                 3 ((-112) $CellContext`\[Gamma] - 
                  16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                  190 $CellContext`\[Gamma]^3 - (
                   32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                  36 $CellContext`\[Gamma]^4 - (
                   36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                  92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                   16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                  16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                  10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   116 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - (
                   40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                 22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                 2 $CellContext`\[Gamma]^9 + (
                   32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - (
                  36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] + (
                   7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                112 $CellContext`\[Gamma]^4 - 
                18 $CellContext`\[Gamma]^5 + (
                  18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                42 $CellContext`\[Gamma]^6 + 
                16 $CellContext`\[Gamma]^7 - (
                 16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                8 $CellContext`\[Gamma]^8 - (
                 80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - (
                 32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                 Rational[
                  1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                  84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] + (
                  48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                  48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                 21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - (
                 8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                 Rational[
                  1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2])^2)) ((-335872) $CellContext`\[Gamma]^6 + 
               1191936 $CellContext`\[Gamma]^7 - (
                1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
               486912 $CellContext`\[Gamma]^8 + (
                 1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
               5584896 $CellContext`\[Gamma]^9 + (
                 5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                 147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
               2013120 $CellContext`\[Gamma]^10 - (
                7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                 3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
               11186880 $CellContext`\[Gamma]^11 - (
                12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                 2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
               6885232 $CellContext`\[Gamma]^12 + (
                 16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
               12488784 $CellContext`\[Gamma]^13 + (
                 16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                 1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
               9101376 $CellContext`\[Gamma]^14 - (
                18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                 9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
               8488080 $CellContext`\[Gamma]^15 - (
                13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                 6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
               6501504 $CellContext`\[Gamma]^16 + (
                 12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
               3592416 $CellContext`\[Gamma]^17 + (
                 6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                 1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
               2660016 $CellContext`\[Gamma]^18 - (
                5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                 2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
               917424 $CellContext`\[Gamma]^19 - (
                2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                 1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
               601872 $CellContext`\[Gamma]^20 + (
                 1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
               123488 $CellContext`\[Gamma]^21 + (
                 338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                 107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
               64896 $CellContext`\[Gamma]^22 - (
                127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                 63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
               5328 $CellContext`\[Gamma]^23 - (
                17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                 18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
               1904 $CellContext`\[Gamma]^24 + (
                 3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                 335872 $CellContext`\[Gamma]^6) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                1191936 $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                 1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 4985344 $CellContext`\[Gamma]^9) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                2124864 $CellContext`\[Gamma]^10) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                8822272 $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 5763936 $CellContext`\[Gamma]^12) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 8588064 $CellContext`\[Gamma]^13) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                6393024 $CellContext`\[Gamma]^14) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                5012736 $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 3776832 $CellContext`\[Gamma]^16) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 1783680 $CellContext`\[Gamma]^17) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                1234080 $CellContext`\[Gamma]^18) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                360672 $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 207072 $CellContext`\[Gamma]^20) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 30304 $CellContext`\[Gamma]^21) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                  1 - $CellContext`\[Gamma]^2)^
                 Rational[
                  1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                   1191936 $CellContext`\[Gamma]^7 - (
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                   486912 $CellContext`\[Gamma]^8 + (
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                   5584896 $CellContext`\[Gamma]^9 + (
                    5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                    442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                    147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                   2013120 $CellContext`\[Gamma]^10 - (
                    7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                    3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                   11186880 $CellContext`\[Gamma]^11 - (
                    12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                    2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                    834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                   6885232 $CellContext`\[Gamma]^12 + (
                    16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                    8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                   12488784 $CellContext`\[Gamma]^13 + (
                    16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                    5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                    1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                   9101376 $CellContext`\[Gamma]^14 - (
                    18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                    9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                   8488080 $CellContext`\[Gamma]^15 - (
                    13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                    6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                    2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                   6501504 $CellContext`\[Gamma]^16 + (
                    12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                    6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                   3592416 $CellContext`\[Gamma]^17 + (
                    6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                    4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                    1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                   2660016 $CellContext`\[Gamma]^18 - (
                    5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                    2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                   917424 $CellContext`\[Gamma]^19 - (
                    2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                    1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                    595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                   601872 $CellContext`\[Gamma]^20 + (
                    1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                    581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                   123488 $CellContext`\[Gamma]^21 + (
                    338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                    322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                    107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                   64896 $CellContext`\[Gamma]^22 - (
                    127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                    63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                   5328 $CellContext`\[Gamma]^23 - (
                    17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                    18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                    6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                   1904 $CellContext`\[Gamma]^24 + (
                    3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                    1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                    335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    1191936 $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    318976 $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    2124864 $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    8822272 $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    6393024 $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    5012736 $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    1234080 $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    360672 $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    12000 $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    544 $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
                 4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                    112 $CellContext`\[Gamma]^4 - 
                    18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                    42 $CellContext`\[Gamma]^6 + 
                    16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                    8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
                Rational[1, 2])^
              Rational[-1, 3] + (((Rational[-1, 6] 2^Rational[-1, 3]) (1 + 
                Complex[0, -1] 
                 3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
              22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
              2 $CellContext`\[Gamma]^9 + (
                32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
               36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] + (
                7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2])) ((-335872) $CellContext`\[Gamma]^6 + 
               1191936 $CellContext`\[Gamma]^7 - (
                1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
               486912 $CellContext`\[Gamma]^8 + (
                 1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
               5584896 $CellContext`\[Gamma]^9 + (
                 5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                 147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
               2013120 $CellContext`\[Gamma]^10 - (
                7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                 3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
               11186880 $CellContext`\[Gamma]^11 - (
                12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                 2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
               6885232 $CellContext`\[Gamma]^12 + (
                 16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
               12488784 $CellContext`\[Gamma]^13 + (
                 16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                 1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
               9101376 $CellContext`\[Gamma]^14 - (
                18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                 9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
               8488080 $CellContext`\[Gamma]^15 - (
                13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                 6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
               6501504 $CellContext`\[Gamma]^16 + (
                 12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
               3592416 $CellContext`\[Gamma]^17 + (
                 6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                 1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
               2660016 $CellContext`\[Gamma]^18 - (
                5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                 2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
               917424 $CellContext`\[Gamma]^19 - (
                2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                 1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
               601872 $CellContext`\[Gamma]^20 + (
                 1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
               123488 $CellContext`\[Gamma]^21 + (
                 338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                 107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
               64896 $CellContext`\[Gamma]^22 - (
                127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                 63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
               5328 $CellContext`\[Gamma]^23 - (
                17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                 18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
               1904 $CellContext`\[Gamma]^24 + (
                 3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                 335872 $CellContext`\[Gamma]^6) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                1191936 $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                 1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 4985344 $CellContext`\[Gamma]^9) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                2124864 $CellContext`\[Gamma]^10) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                8822272 $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 5763936 $CellContext`\[Gamma]^12) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 8588064 $CellContext`\[Gamma]^13) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                6393024 $CellContext`\[Gamma]^14) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                5012736 $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 3776832 $CellContext`\[Gamma]^16) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 1783680 $CellContext`\[Gamma]^17) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                1234080 $CellContext`\[Gamma]^18) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                360672 $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 207072 $CellContext`\[Gamma]^20) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 30304 $CellContext`\[Gamma]^21) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                 3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((
                  1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                  1 - $CellContext`\[Gamma]^2)^
                 Rational[
                  1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                   1191936 $CellContext`\[Gamma]^7 - (
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                   486912 $CellContext`\[Gamma]^8 + (
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                   5584896 $CellContext`\[Gamma]^9 + (
                    5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                    442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                    147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                   2013120 $CellContext`\[Gamma]^10 - (
                    7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                    3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                   11186880 $CellContext`\[Gamma]^11 - (
                    12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                    2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                    834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                   6885232 $CellContext`\[Gamma]^12 + (
                    16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                    8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                   12488784 $CellContext`\[Gamma]^13 + (
                    16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                    5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                    1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                   9101376 $CellContext`\[Gamma]^14 - (
                    18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                    9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                   8488080 $CellContext`\[Gamma]^15 - (
                    13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                    6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                    2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                   6501504 $CellContext`\[Gamma]^16 + (
                    12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                    6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                   3592416 $CellContext`\[Gamma]^17 + (
                    6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                    4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                    1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                   2660016 $CellContext`\[Gamma]^18 - (
                    5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                    2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                   917424 $CellContext`\[Gamma]^19 - (
                    2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                    1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                    595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                   601872 $CellContext`\[Gamma]^20 + (
                    1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                    581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                   123488 $CellContext`\[Gamma]^21 + (
                    338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                    322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                    107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                   64896 $CellContext`\[Gamma]^22 - (
                    127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                    63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                   5328 $CellContext`\[Gamma]^23 - (
                    17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                    18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                    6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                   1904 $CellContext`\[Gamma]^24 + (
                    3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                    1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                    335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    1191936 $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    318976 $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    2124864 $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    8822272 $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    6393024 $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    5012736 $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    1234080 $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    360672 $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    12000 $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    544 $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
                 4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                    112 $CellContext`\[Gamma]^4 - 
                    18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                    42 $CellContext`\[Gamma]^6 + 
                    16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                    8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
                Rational[1, 2])^Rational[1, 3]]]}, {$CellContext`\[Gamma], 0, 
          1}, PlotRange -> {0, 1}]], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7649988967932763`*^9, 3.764999019730342*^9}, {
   3.7649990511532636`*^9, 3.7649991226819124`*^9}, {3.7649991656908317`*^9, 
   3.7649991730391693`*^9}, {3.764999215971306*^9, 3.764999281954697*^9}, 
   3.7654428037111588`*^9, 3.765773460185722*^9, 3.7657738805872545`*^9, {
   3.7657739649325943`*^9, 3.765773991228857*^9}, 3.7657740645405283`*^9, 
   3.765774118600009*^9, 3.765817619112769*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"WelfareRegb", "=", 
     RowBox[{"Min", "[", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"tmpregimeb", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
       "kswitch"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "0.9999"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.764999312789254*^9, 3.7649994190917983`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {146., 153.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17773$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17773$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        Min[$CellContext`\[Gamma]^(-1) (
          1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
            Abs[-4 + $CellContext`\[Gamma]^2])), 
         Re[(Rational[-1, 3]/((-16) $CellContext`\[Gamma]^3 + 
            22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
            2 $CellContext`\[Gamma]^9 + (
              32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
             36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] + (
              7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2])) (80 $CellContext`\[Gamma]^2 - 
            112 $CellContext`\[Gamma]^4 - 
            18 $CellContext`\[Gamma]^5 + (
              18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
            42 $CellContext`\[Gamma]^6 + 
            16 $CellContext`\[Gamma]^7 - (
             16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
            8 $CellContext`\[Gamma]^8 - (
             80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] - (
             32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
             Rational[
              1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
              84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
              48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - ((
              48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
              1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
             21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] - (
             8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
             Rational[
              1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2]) + ((((Rational[1, 3] 2^Rational[-2, 3]) (1 + 
               Complex[0, 1] 
                3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
             22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
             2 $CellContext`\[Gamma]^9 + (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
               7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2])) ((
               3 ((-112) $CellContext`\[Gamma] - 
                16 $CellContext`\[Gamma]^2 + (
                  16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                190 $CellContext`\[Gamma]^3 - (
                 32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                  16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                36 $CellContext`\[Gamma]^4 - (
                 36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                92 $CellContext`\[Gamma]^5 + (
                  32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                 16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                16 $CellContext`\[Gamma]^6 + (
                  16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                10 $CellContext`\[Gamma]^7 + (
                  112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] + (
                  16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                  16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                 116 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - (
                 40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                 Rational[
                  1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                  29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] + (
                  8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                  8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                  1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
               22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
               2 $CellContext`\[Gamma]^9 + (
                 32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - (
                36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] + (
                 7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
              112 $CellContext`\[Gamma]^4 - 
              18 $CellContext`\[Gamma]^5 + (
                18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
              42 $CellContext`\[Gamma]^6 + 
              16 $CellContext`\[Gamma]^7 - (
               16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
              8 $CellContext`\[Gamma]^8 - (
               80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] + (
                48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
               8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2])^2)) ((-335872) $CellContext`\[Gamma]^6 + 
             1191936 $CellContext`\[Gamma]^7 - (
              1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
             486912 $CellContext`\[Gamma]^8 + (
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
              823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
             5584896 $CellContext`\[Gamma]^9 + (
               5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
              442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
               147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
             2013120 $CellContext`\[Gamma]^10 - (
              7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
               3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
             11186880 $CellContext`\[Gamma]^11 - (
              12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
               2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
              834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
             6885232 $CellContext`\[Gamma]^12 + (
               16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
              8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
             12488784 $CellContext`\[Gamma]^13 + (
               16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
              5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
               1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
             9101376 $CellContext`\[Gamma]^14 - (
              18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
               9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
             8488080 $CellContext`\[Gamma]^15 - (
              13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
               6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
              2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
             6501504 $CellContext`\[Gamma]^16 + (
               12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
              6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
             3592416 $CellContext`\[Gamma]^17 + (
               6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
              4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
               1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
             2660016 $CellContext`\[Gamma]^18 - (
              5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
               2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
             917424 $CellContext`\[Gamma]^19 - (
              2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
               1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
              595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
             601872 $CellContext`\[Gamma]^20 + (
               1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
              581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
             123488 $CellContext`\[Gamma]^21 + (
               338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
              322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
               107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
             64896 $CellContext`\[Gamma]^22 - (
              127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
               63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
             5328 $CellContext`\[Gamma]^23 - (
              17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
               18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
              6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
             1904 $CellContext`\[Gamma]^24 + (
               3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
              1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
               335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - ((
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               4985344 $CellContext`\[Gamma]^9) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              2124864 $CellContext`\[Gamma]^10) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              8822272 $CellContext`\[Gamma]^11) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               5763936 $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               8588064 $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              6393024 $CellContext`\[Gamma]^14) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              5012736 $CellContext`\[Gamma]^15) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               3776832 $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               1783680 $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              1234080 $CellContext`\[Gamma]^18) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               207072 $CellContext`\[Gamma]^20) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                 1191936 $CellContext`\[Gamma]^7 - (
                  1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                 486912 $CellContext`\[Gamma]^8 + (
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                  823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                 5584896 $CellContext`\[Gamma]^9 + (
                   5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                  442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                   147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                 2013120 $CellContext`\[Gamma]^10 - (
                  7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                   3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                 11186880 $CellContext`\[Gamma]^11 - (
                  12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                   2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                  834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                 6885232 $CellContext`\[Gamma]^12 + (
                   16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                  8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                 12488784 $CellContext`\[Gamma]^13 + (
                   16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                  5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                   1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                 9101376 $CellContext`\[Gamma]^14 - (
                  18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                   9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                 8488080 $CellContext`\[Gamma]^15 - (
                  13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                   6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                  2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                 6501504 $CellContext`\[Gamma]^16 + (
                   12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                  6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                 3592416 $CellContext`\[Gamma]^17 + (
                   6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                  4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                   1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                 2660016 $CellContext`\[Gamma]^18 - (
                  5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                   2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                 917424 $CellContext`\[Gamma]^19 - (
                  2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                   1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                  595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                 601872 $CellContext`\[Gamma]^20 + (
                   1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                  581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                 123488 $CellContext`\[Gamma]^21 + (
                   338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                  322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                   107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                 64896 $CellContext`\[Gamma]^22 - (
                  127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                   63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                 5328 $CellContext`\[Gamma]^23 - (
                  17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                   18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                  6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                 1904 $CellContext`\[Gamma]^24 + (
                   3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                  1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                   335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1191936 $CellContext`\[Gamma]^7) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  318976 $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  2124864 $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  8822272 $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  6393024 $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  5012736 $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1234080 $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  360672 $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  12000 $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
               4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                   112 $CellContext`\[Gamma]^4 - 
                   18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                   42 $CellContext`\[Gamma]^6 + 
                   16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                   8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
              Rational[1, 2])^
            Rational[-1, 3] + (((Rational[-1, 6] 2^Rational[-1, 3]) (1 + 
              Complex[0, -1] 
               3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
            22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
            2 $CellContext`\[Gamma]^9 + (
              32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
             36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] + (
              7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2])) ((-335872) $CellContext`\[Gamma]^6 + 
             1191936 $CellContext`\[Gamma]^7 - (
              1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
             486912 $CellContext`\[Gamma]^8 + (
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
              823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
             5584896 $CellContext`\[Gamma]^9 + (
               5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
              442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
               147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
             2013120 $CellContext`\[Gamma]^10 - (
              7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
               3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
             11186880 $CellContext`\[Gamma]^11 - (
              12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
               2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
              834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
             6885232 $CellContext`\[Gamma]^12 + (
               16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
              8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
             12488784 $CellContext`\[Gamma]^13 + (
               16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
              5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
               1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
             9101376 $CellContext`\[Gamma]^14 - (
              18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
               9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
             8488080 $CellContext`\[Gamma]^15 - (
              13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
               6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
              2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
             6501504 $CellContext`\[Gamma]^16 + (
               12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
              6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
             3592416 $CellContext`\[Gamma]^17 + (
               6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
              4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
               1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
             2660016 $CellContext`\[Gamma]^18 - (
              5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
               2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
             917424 $CellContext`\[Gamma]^19 - (
              2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
               1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
              595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
             601872 $CellContext`\[Gamma]^20 + (
               1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
              581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
             123488 $CellContext`\[Gamma]^21 + (
               338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
              322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
               107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
             64896 $CellContext`\[Gamma]^22 - (
              127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
               63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
             5328 $CellContext`\[Gamma]^23 - (
              17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
               18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
              6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
             1904 $CellContext`\[Gamma]^24 + (
               3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
              1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
               335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - ((
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               4985344 $CellContext`\[Gamma]^9) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              2124864 $CellContext`\[Gamma]^10) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              8822272 $CellContext`\[Gamma]^11) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               5763936 $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               8588064 $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              6393024 $CellContext`\[Gamma]^14) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              5012736 $CellContext`\[Gamma]^15) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               3776832 $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               1783680 $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              1234080 $CellContext`\[Gamma]^18) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               207072 $CellContext`\[Gamma]^20) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                 1191936 $CellContext`\[Gamma]^7 - (
                  1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                 486912 $CellContext`\[Gamma]^8 + (
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                  823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                 5584896 $CellContext`\[Gamma]^9 + (
                   5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                  442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                   147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                 2013120 $CellContext`\[Gamma]^10 - (
                  7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                   3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                 11186880 $CellContext`\[Gamma]^11 - (
                  12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                   2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                  834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                 6885232 $CellContext`\[Gamma]^12 + (
                   16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                  8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                 12488784 $CellContext`\[Gamma]^13 + (
                   16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                  5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                   1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                 9101376 $CellContext`\[Gamma]^14 - (
                  18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                   9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                 8488080 $CellContext`\[Gamma]^15 - (
                  13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                   6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                  2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                 6501504 $CellContext`\[Gamma]^16 + (
                   12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                  6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                 3592416 $CellContext`\[Gamma]^17 + (
                   6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                  4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                   1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                 2660016 $CellContext`\[Gamma]^18 - (
                  5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                   2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                 917424 $CellContext`\[Gamma]^19 - (
                  2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                   1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                  595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                 601872 $CellContext`\[Gamma]^20 + (
                   1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                  581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                 123488 $CellContext`\[Gamma]^21 + (
                   338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                  322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                   107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                 64896 $CellContext`\[Gamma]^22 - (
                  127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                   63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                 5328 $CellContext`\[Gamma]^23 - (
                  17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                   18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                  6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                 1904 $CellContext`\[Gamma]^24 + (
                   3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                  1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                   335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1191936 $CellContext`\[Gamma]^7) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  318976 $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  2124864 $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  8822272 $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  6393024 $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  5012736 $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1234080 $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  360672 $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  12000 $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
               4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                   112 $CellContext`\[Gamma]^4 - 
                   18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                   42 $CellContext`\[Gamma]^6 + 
                   16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                   8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
              Rational[1, 2])^Rational[1, 3]]], {$CellContext`\[Gamma], 0, 
         0.9999}, PlotRange -> {0, 1}], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.764999314467769*^9, 3.7649994236804967`*^9}, 
   3.765442803791944*^9, 3.7657734602764673`*^9, 3.7657740900831833`*^9, 
   3.765817619163638*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\^\\(1/3\\)\\)\
\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.765817846948674*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\^\\(1/3\\)\\)\
\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7659717802943845`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\^\\(1/3\\)\\)\
\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7675307580085683`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Now", " ", "the", " ", "last", " ", "region", " ", 
    RowBox[{"c", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"k", ">", "kpe1constr"}], "&&", 
     RowBox[{"k", ">", "kswitch"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"RegionPlot", "[", 
      RowBox[{
       RowBox[{"{", "%", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\[Gamma]", ",", "K"}], "}"}]}], ",", 
       RowBox[{"BoundaryStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.764999474855621*^9, 3.764999488528021*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {221., 229.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17790$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17790$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> RegionPlot[{
         And[$CellContext`k > 
          1 - $CellContext`c$$ + 
           Rational[-1, 2] (3 + (4 (-2 + $CellContext`c$$)) $CellContext`c$$)^
             Rational[1, 2], $CellContext`k > $CellContext`\[Gamma]^(-1) (
            1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
              Abs[-4 + $CellContext`\[Gamma]^2]))]}, {$CellContext`\[Gamma], 
         0, 1}, {$CellContext`k, 0, 1}, 
        FrameLabel -> {$CellContext`\[Gamma], K}, BoundaryStyle -> Black], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {278., 285.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.764999488879101*^9, 3.765442803817873*^9, 
  3.7657734603063965`*^9, 3.7658176191736097`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"k", ">", "kpe1constr"}], "&&", 
   RowBox[{"k", ">", "kswitch"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"VCRNE", ">", "Ve1constr"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"RegionPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"%%", ",", "%"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "K"}], "}"}]}], ",", 
     RowBox[{"BoundaryStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.764999577930784*^9, 3.7649995780933976`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {221., 229.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17807$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17807$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> RegionPlot[{
         And[$CellContext`k > 
          1 - $CellContext`c$$ + 
           Rational[-1, 2] (3 + (4 (-2 + $CellContext`c$$)) $CellContext`c$$)^
             Rational[1, 2], $CellContext`k > $CellContext`\[Gamma]^(-1) (
            1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
              Abs[-4 + $CellContext`\[Gamma]^2]))], ((
            Rational[
             1, 2] (-4 + $CellContext`\[Gamma]^2)^(-2))/(-1 + $CellContext`\
\[Gamma]^2)) ((-4) (2 + (-2 + $CellContext`c$$) $CellContext`c$$) + (
             3 (2 + (-2 + $CellContext`c$$) $CellContext`c$$)) $CellContext`\
\[Gamma]^2 - (2 (-1 + $CellContext`c$$)) $CellContext`\[Gamma]^3) > (
           Rational[-1, 2] $CellContext`k) (-2 + 
           2 $CellContext`c$$ + $CellContext`k)}, {$CellContext`\[Gamma], 0, 
         1}, {$CellContext`k, 0, 1}, FrameLabel -> {$CellContext`\[Gamma], K},
         BoundaryStyle -> Black], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {278., 285.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.7649995785701303`*^9, 3.7654428038438053`*^9, 
  3.7657734603383627`*^9, 3.765817619183583*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"k", ">", "kpe1constr"}], "&&", 
   RowBox[{"k", ">", "kswitch"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"VCRNE", ">", "Ve1constr"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"RegionPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"%%", ",", "%"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.9", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "K"}], "}"}]}], ",", 
     RowBox[{"BoundaryStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.764999506452079*^9, 3.7649995128749123`*^9}, {
  3.7649995591191587`*^9, 3.764999560948261*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {220., 228.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17824$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17824$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> RegionPlot[{
         And[$CellContext`k > 
          1 - $CellContext`c$$ + 
           Rational[-1, 2] (3 + (4 (-2 + $CellContext`c$$)) $CellContext`c$$)^
             Rational[1, 2], $CellContext`k > $CellContext`\[Gamma]^(-1) (
            1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
              Abs[-4 + $CellContext`\[Gamma]^2]))], ((
            Rational[
             1, 2] (-4 + $CellContext`\[Gamma]^2)^(-2))/(-1 + $CellContext`\
\[Gamma]^2)) ((-4) (2 + (-2 + $CellContext`c$$) $CellContext`c$$) + (
             3 (2 + (-2 + $CellContext`c$$) $CellContext`c$$)) $CellContext`\
\[Gamma]^2 - (2 (-1 + $CellContext`c$$)) $CellContext`\[Gamma]^3) > (
           Rational[-1, 2] $CellContext`k) (-2 + 
           2 $CellContext`c$$ + $CellContext`k)}, {$CellContext`\[Gamma], 0.9,
          1}, {$CellContext`k, 0, 1}, 
        FrameLabel -> {$CellContext`\[Gamma], K}, BoundaryStyle -> Black], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {277., 284.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.76499952027909*^9, 3.7649995616454153`*^9, 
  3.7654428038737245`*^9, 3.7657734603691893`*^9, 3.7658176191945863`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Most", " ", "of", " ", "the", " ", "region", " ", "c"}], "-", 
     " ", 
     RowBox[{
     "has", " ", "Exclusivity", " ", "being", " ", "welfare", " ", 
      "increasing"}]}], ",", " ", 
    RowBox[{
    "there", " ", "is", " ", "just", " ", "a", " ", "small", " ", "region", 
     " ", "for", " ", "very", " ", "high", " ", "\[Gamma]", " ", "where", " ",
      "the", " ", "ranking", " ", "is", " ", 
     RowBox[{"overturned", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"VCRNE", "-", "Ve1constr"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"tmpregionc", "=", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"%", "\[Equal]", "0"}], ",", "k"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.764999588265171*^9, 3.7649996827636366`*^9}, {
  3.7650161452762613`*^9, 3.7650161458277864`*^9}, {3.765016189317457*^9, 
  3.7650161894341516`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "32"}], "+", 
        RowBox[{"32", " ", "c"}], "+", 
        RowBox[{"48", " ", 
         SuperscriptBox["\[Gamma]", "2"]}], "-", 
        RowBox[{"48", " ", "c", " ", 
         SuperscriptBox["\[Gamma]", "2"]}], "-", 
        RowBox[{"18", " ", 
         SuperscriptBox["\[Gamma]", "4"]}], "+", 
        RowBox[{"18", " ", "c", " ", 
         SuperscriptBox["\[Gamma]", "4"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Gamma]", "6"]}], "-", 
        RowBox[{"2", " ", "c", " ", 
         SuperscriptBox["\[Gamma]", "6"]}], "-", 
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "4"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "8"}], "+", 
              RowBox[{"8", " ", "c"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["c", "2"]}], "+", 
              RowBox[{"6", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "-", 
              RowBox[{"6", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["c", "2"], " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Gamma]", "3"]}], "-", 
              RowBox[{"2", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "3"]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"24", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "-", 
              RowBox[{"9", " ", 
               SuperscriptBox["\[Gamma]", "4"]}], "+", 
              SuperscriptBox["\[Gamma]", "6"]}], ")"}]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"32", "-", 
              RowBox[{"32", " ", "c"}], "-", 
              RowBox[{"48", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "+", 
              RowBox[{"48", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "+", 
              RowBox[{"18", " ", 
               SuperscriptBox["\[Gamma]", "4"]}], "-", 
              RowBox[{"18", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "4"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Gamma]", "6"]}], "+", 
              RowBox[{"2", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "6"]}]}], ")"}], "2"]}], ")"}]}]}], 
       ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "16"}], "+", 
          RowBox[{"24", " ", 
           SuperscriptBox["\[Gamma]", "2"]}], "-", 
          RowBox[{"9", " ", 
           SuperscriptBox["\[Gamma]", "4"]}], "+", 
          SuperscriptBox["\[Gamma]", "6"]}], ")"}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "32"}], "+", 
        RowBox[{"32", " ", "c"}], "+", 
        RowBox[{"48", " ", 
         SuperscriptBox["\[Gamma]", "2"]}], "-", 
        RowBox[{"48", " ", "c", " ", 
         SuperscriptBox["\[Gamma]", "2"]}], "-", 
        RowBox[{"18", " ", 
         SuperscriptBox["\[Gamma]", "4"]}], "+", 
        RowBox[{"18", " ", "c", " ", 
         SuperscriptBox["\[Gamma]", "4"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Gamma]", "6"]}], "-", 
        RowBox[{"2", " ", "c", " ", 
         SuperscriptBox["\[Gamma]", "6"]}], "+", 
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "4"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "8"}], "+", 
              RowBox[{"8", " ", "c"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["c", "2"]}], "+", 
              RowBox[{"6", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "-", 
              RowBox[{"6", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["c", "2"], " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Gamma]", "3"]}], "-", 
              RowBox[{"2", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "3"]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"24", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "-", 
              RowBox[{"9", " ", 
               SuperscriptBox["\[Gamma]", "4"]}], "+", 
              SuperscriptBox["\[Gamma]", "6"]}], ")"}]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"32", "-", 
              RowBox[{"32", " ", "c"}], "-", 
              RowBox[{"48", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "+", 
              RowBox[{"48", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "2"]}], "+", 
              RowBox[{"18", " ", 
               SuperscriptBox["\[Gamma]", "4"]}], "-", 
              RowBox[{"18", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "4"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Gamma]", "6"]}], "+", 
              RowBox[{"2", " ", "c", " ", 
               SuperscriptBox["\[Gamma]", "6"]}]}], ")"}], "2"]}], ")"}]}]}], 
       ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "16"}], "+", 
          RowBox[{"24", " ", 
           SuperscriptBox["\[Gamma]", "2"]}], "-", 
          RowBox[{"9", " ", 
           SuperscriptBox["\[Gamma]", "4"]}], "+", 
          SuperscriptBox["\[Gamma]", "6"]}], ")"}]}], ")"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.764999670955924*^9, 3.7650159530489063`*^9, 
  3.7654428039156475`*^9, 3.765773460425087*^9, 3.7658176192184906`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Putting", " ", "the", " ", "three", " ", "regions", " ", 
    RowBox[{"together", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"WelfareRegb", ",", 
      RowBox[{"tmpregionc", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpregionc", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "0.9999"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.765015978362141*^9, 3.765016014492478*^9}, {
  3.7650161959935617`*^9, 3.7650162104448957`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {146., 153.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17846$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17846$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Min[$CellContext`\[Gamma]^(-1) (
           1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
             Abs[-4 + $CellContext`\[Gamma]^2])), 
          
          Re[(Rational[-1, 3]/((-16) $CellContext`\[Gamma]^3 + 
             22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
             2 $CellContext`\[Gamma]^9 + (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
               7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2])) (80 $CellContext`\[Gamma]^2 - 
             112 $CellContext`\[Gamma]^4 - 
             18 $CellContext`\[Gamma]^5 + (
               18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
             42 $CellContext`\[Gamma]^6 + 
             16 $CellContext`\[Gamma]^7 - (
              16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
             8 $CellContext`\[Gamma]^8 - (
              80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
              32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] + (
               48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
              8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2]) + ((((Rational[1, 3] 2^Rational[-2, 3]) (1 + 
                Complex[0, 1] 
                 3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
              22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
              2 $CellContext`\[Gamma]^9 + (
                32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
               36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] + (
                7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2])) ((
                3 ((-112) $CellContext`\[Gamma] - 
                 16 $CellContext`\[Gamma]^2 + (
                   16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                 190 $CellContext`\[Gamma]^3 - (
                  32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                   16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                 36 $CellContext`\[Gamma]^4 - (
                  36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                 92 $CellContext`\[Gamma]^5 + (
                   32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                  16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                 16 $CellContext`\[Gamma]^6 + (
                   16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                 10 $CellContext`\[Gamma]^7 + (
                   112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] + (
                   16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - ((
                   16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  116 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - (
                  40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] + (
                   8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - ((
                   8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                2 $CellContext`\[Gamma]^9 + (
                  32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - (
                 36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] + (
                  7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
               112 $CellContext`\[Gamma]^4 - 
               18 $CellContext`\[Gamma]^5 + (
                 18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
               42 $CellContext`\[Gamma]^6 + 
               16 $CellContext`\[Gamma]^7 - (
                16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
               8 $CellContext`\[Gamma]^8 - (
                80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
                32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] + (
                 48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - ((
                 48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
                8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                  1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2])^2)) ((-335872) $CellContext`\[Gamma]^6 + 
              1191936 $CellContext`\[Gamma]^7 - (
               1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
              486912 $CellContext`\[Gamma]^8 + (
                1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
               823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
              5584896 $CellContext`\[Gamma]^9 + (
                5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
               442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
              2013120 $CellContext`\[Gamma]^10 - (
               7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
              11186880 $CellContext`\[Gamma]^11 - (
               12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
               834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
              6885232 $CellContext`\[Gamma]^12 + (
                16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
               8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
              12488784 $CellContext`\[Gamma]^13 + (
                16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
               5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
              9101376 $CellContext`\[Gamma]^14 - (
               18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
              8488080 $CellContext`\[Gamma]^15 - (
               13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
               2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
              6501504 $CellContext`\[Gamma]^16 + (
                12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
               6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
              3592416 $CellContext`\[Gamma]^17 + (
                6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
               4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
              2660016 $CellContext`\[Gamma]^18 - (
               5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
              917424 $CellContext`\[Gamma]^19 - (
               2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
               595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
              601872 $CellContext`\[Gamma]^20 + (
                1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
               581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
              123488 $CellContext`\[Gamma]^21 + (
                338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
               322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
              64896 $CellContext`\[Gamma]^22 - (
               127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
              5328 $CellContext`\[Gamma]^23 - (
               17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
               6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
              1904 $CellContext`\[Gamma]^24 + (
                3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
               1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
               1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
                1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                4985344 $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               2124864 $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               8822272 $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                5763936 $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                8588064 $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               6393024 $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               5012736 $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                3776832 $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                1783680 $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               1234080 $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                207072 $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                  1191936 $CellContext`\[Gamma]^7 - (
                   1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                  486912 $CellContext`\[Gamma]^8 + (
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                   823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                  5584896 $CellContext`\[Gamma]^9 + (
                    5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                   442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                    147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                  2013120 $CellContext`\[Gamma]^10 - (
                   7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                    3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                  11186880 $CellContext`\[Gamma]^11 - (
                   12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                    2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                   834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                  6885232 $CellContext`\[Gamma]^12 + (
                    16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                   8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                  12488784 $CellContext`\[Gamma]^13 + (
                    16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                   5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                    1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                  9101376 $CellContext`\[Gamma]^14 - (
                   18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                    9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                  8488080 $CellContext`\[Gamma]^15 - (
                   13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                    6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                   2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                  6501504 $CellContext`\[Gamma]^16 + (
                    12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                   6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                  3592416 $CellContext`\[Gamma]^17 + (
                    6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                   4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                    1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                  2660016 $CellContext`\[Gamma]^18 - (
                   5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                    2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                  917424 $CellContext`\[Gamma]^19 - (
                   2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                    1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                   595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                  601872 $CellContext`\[Gamma]^20 + (
                    1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                   581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                  123488 $CellContext`\[Gamma]^21 + (
                    338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                   322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                    107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                  64896 $CellContext`\[Gamma]^22 - (
                   127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                    63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                  5328 $CellContext`\[Gamma]^23 - (
                   17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                    18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                   6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                  1904 $CellContext`\[Gamma]^24 + (
                    3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                   1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                    335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   1191936 $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   318976 $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - ((
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   2124864 $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   8822272 $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   6393024 $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   5012736 $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   1234080 $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   360672 $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   12000 $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   544 $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
                4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                    112 $CellContext`\[Gamma]^4 - 
                    18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                    42 $CellContext`\[Gamma]^6 + 
                    16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                    8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
               Rational[1, 2])^
             Rational[-1, 3] + (((Rational[-1, 6] 2^Rational[-1, 3]) (1 + 
               Complex[0, -1] 
                3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
             22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
             2 $CellContext`\[Gamma]^9 + (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
               7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2])) ((-335872) $CellContext`\[Gamma]^6 + 
              1191936 $CellContext`\[Gamma]^7 - (
               1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
              486912 $CellContext`\[Gamma]^8 + (
                1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
               823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
              5584896 $CellContext`\[Gamma]^9 + (
                5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
               442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
              2013120 $CellContext`\[Gamma]^10 - (
               7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
              11186880 $CellContext`\[Gamma]^11 - (
               12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
               834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
              6885232 $CellContext`\[Gamma]^12 + (
                16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
               8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
              12488784 $CellContext`\[Gamma]^13 + (
                16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
               5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
              9101376 $CellContext`\[Gamma]^14 - (
               18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
              8488080 $CellContext`\[Gamma]^15 - (
               13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
               2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
              6501504 $CellContext`\[Gamma]^16 + (
                12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
               6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
              3592416 $CellContext`\[Gamma]^17 + (
                6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
               4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
              2660016 $CellContext`\[Gamma]^18 - (
               5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
              917424 $CellContext`\[Gamma]^19 - (
               2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
               595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
              601872 $CellContext`\[Gamma]^20 + (
                1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
               581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
              123488 $CellContext`\[Gamma]^21 + (
                338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
               322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
              64896 $CellContext`\[Gamma]^22 - (
               127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
              5328 $CellContext`\[Gamma]^23 - (
               17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
               6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
              1904 $CellContext`\[Gamma]^24 + (
                3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
               1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
               1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
                1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                4985344 $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               2124864 $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               8822272 $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                5763936 $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                8588064 $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               6393024 $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               5012736 $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                3776832 $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                1783680 $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               1234080 $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                207072 $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                  1191936 $CellContext`\[Gamma]^7 - (
                   1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                  486912 $CellContext`\[Gamma]^8 + (
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                   823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                  5584896 $CellContext`\[Gamma]^9 + (
                    5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                   442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                    147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                  2013120 $CellContext`\[Gamma]^10 - (
                   7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                    3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                  11186880 $CellContext`\[Gamma]^11 - (
                   12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                    2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                   834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                  6885232 $CellContext`\[Gamma]^12 + (
                    16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                   8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                  12488784 $CellContext`\[Gamma]^13 + (
                    16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                   5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                    1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                  9101376 $CellContext`\[Gamma]^14 - (
                   18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                    9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                  8488080 $CellContext`\[Gamma]^15 - (
                   13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                    6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                   2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                  6501504 $CellContext`\[Gamma]^16 + (
                    12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                   6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                  3592416 $CellContext`\[Gamma]^17 + (
                    6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                   4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                    1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                  2660016 $CellContext`\[Gamma]^18 - (
                   5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                    2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                  917424 $CellContext`\[Gamma]^19 - (
                   2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                    1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                   595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                  601872 $CellContext`\[Gamma]^20 + (
                    1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                   581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                  123488 $CellContext`\[Gamma]^21 + (
                    338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                   322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                    107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                  64896 $CellContext`\[Gamma]^22 - (
                   127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                    63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                  5328 $CellContext`\[Gamma]^23 - (
                   17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                    18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                   6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                  1904 $CellContext`\[Gamma]^24 + (
                    3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                   1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                    335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   1191936 $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   318976 $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - ((
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   2124864 $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   8822272 $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   6393024 $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   5012736 $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   1234080 $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   360672 $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   12000 $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   544 $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
                4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                    112 $CellContext`\[Gamma]^4 - 
                    18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                    42 $CellContext`\[Gamma]^6 + 
                    16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                    8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
               Rational[1, 2])^Rational[1, 3]]], (Rational[1, 2]/(-16 + 
          24 $CellContext`\[Gamma]^2 - 
          9 $CellContext`\[Gamma]^4 + $CellContext`\[Gamma]^6)) (-32 + 
          32 $CellContext`c$$ + 
          48 $CellContext`\[Gamma]^2 - (
           48 $CellContext`c$$) $CellContext`\[Gamma]^2 - 
          18 $CellContext`\[Gamma]^4 + (
            18 $CellContext`c$$) $CellContext`\[Gamma]^4 + 
          2 $CellContext`\[Gamma]^6 - (
           2 $CellContext`c$$) $CellContext`\[Gamma]^6 - (((-4) (-8 + 
              8 $CellContext`c$$ - 4 $CellContext`c$$^2 + 
              6 $CellContext`\[Gamma]^2 - (
               6 $CellContext`c$$) $CellContext`\[Gamma]^2 + (
                3 $CellContext`c$$^2) $CellContext`\[Gamma]^2 + 
              2 $CellContext`\[Gamma]^3 - (
               2 $CellContext`c$$) $CellContext`\[Gamma]^3)) (-16 + 
             24 $CellContext`\[Gamma]^2 - 
             9 $CellContext`\[Gamma]^4 + $CellContext`\[Gamma]^6) + (32 - 
             32 $CellContext`c$$ - 
             48 $CellContext`\[Gamma]^2 + (
               48 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
             18 $CellContext`\[Gamma]^4 - (
              18 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
             2 $CellContext`\[Gamma]^6 + (
               2 $CellContext`c$$) $CellContext`\[Gamma]^6)^2)^
          Rational[1, 2]), (Rational[1, 2]/(-16 + 24 $CellContext`\[Gamma]^2 - 
          9 $CellContext`\[Gamma]^4 + $CellContext`\[Gamma]^6)) (-32 + 
          32 $CellContext`c$$ + 
          48 $CellContext`\[Gamma]^2 - (
           48 $CellContext`c$$) $CellContext`\[Gamma]^2 - 
          18 $CellContext`\[Gamma]^4 + (
            18 $CellContext`c$$) $CellContext`\[Gamma]^4 + 
          2 $CellContext`\[Gamma]^6 - (
           2 $CellContext`c$$) $CellContext`\[Gamma]^6 + (((-4) (-8 + 
               8 $CellContext`c$$ - 4 $CellContext`c$$^2 + 
               6 $CellContext`\[Gamma]^2 - (
                6 $CellContext`c$$) $CellContext`\[Gamma]^2 + (
                 3 $CellContext`c$$^2) $CellContext`\[Gamma]^2 + 
               2 $CellContext`\[Gamma]^3 - (
                2 $CellContext`c$$) $CellContext`\[Gamma]^3)) (-16 + 
              24 $CellContext`\[Gamma]^2 - 
              9 $CellContext`\[Gamma]^4 + $CellContext`\[Gamma]^6) + (32 - 
              32 $CellContext`c$$ - 
              48 $CellContext`\[Gamma]^2 + (
                48 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
              18 $CellContext`\[Gamma]^4 - (
               18 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
              2 $CellContext`\[Gamma]^6 + (
                2 $CellContext`c$$) $CellContext`\[Gamma]^6)^2)^
           Rational[1, 2])}, {$CellContext`\[Gamma], 0, 0.9999}, 
        PlotRange -> {0, 1}], "Specifications" :> {{$CellContext`c$$, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.765015997495949*^9, 3.7650160147807007`*^9}, 
   3.7654428039640484`*^9, 3.7657734604669685`*^9, 3.765774149621607*^9, 
   3.765817619270314*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\^\\(1/3\\)\\)\
\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7658178475749598`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\^\\(1/3\\)\\)\
\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.76597178099052*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\^\\(1/3\\)\\)\
\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7675307600789676`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"{", 
   RowBox[{"WelfareRegb", ",", 
    RowBox[{"tmpregionc", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{"%", ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.9", ",", "0.9999"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.765016036933428*^9, 3.7650160627411575`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {145., 152.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17863$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17863$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Min[$CellContext`\[Gamma]^(-1) (
           1 + (2/(-1 + $CellContext`\[Gamma]^2)) (((-(-1 + $CellContext`\
\[Gamma]^2)) (-2 + $CellContext`\[Gamma] - $CellContext`c$$ $CellContext`\
\[Gamma] + $CellContext`\[Gamma]^2)^2)^Rational[1, 2]/
             Abs[-4 + $CellContext`\[Gamma]^2])), 
          
          Re[(Rational[-1, 3]/((-16) $CellContext`\[Gamma]^3 + 
             22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
             2 $CellContext`\[Gamma]^9 + (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
               7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2])) (80 $CellContext`\[Gamma]^2 - 
             112 $CellContext`\[Gamma]^4 - 
             18 $CellContext`\[Gamma]^5 + (
               18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
             42 $CellContext`\[Gamma]^6 + 
             16 $CellContext`\[Gamma]^7 - (
              16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
             8 $CellContext`\[Gamma]^8 - (
              80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
              32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] + (
               48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
              8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2]) + ((((Rational[1, 3] 2^Rational[-2, 3]) (1 + 
                Complex[0, 1] 
                 3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
              22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
              2 $CellContext`\[Gamma]^9 + (
                32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
               36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] + (
                7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2])) ((
                3 ((-112) $CellContext`\[Gamma] - 
                 16 $CellContext`\[Gamma]^2 + (
                   16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                 190 $CellContext`\[Gamma]^3 - (
                  32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                   16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                 36 $CellContext`\[Gamma]^4 - (
                  36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                 92 $CellContext`\[Gamma]^5 + (
                   32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                  16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                 16 $CellContext`\[Gamma]^6 + (
                   16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                 10 $CellContext`\[Gamma]^7 + (
                   112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] + (
                   16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - ((
                   16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  116 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - (
                  40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] + (
                   8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - ((
                   8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                2 $CellContext`\[Gamma]^9 + (
                  32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - (
                 36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] + (
                  7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
               112 $CellContext`\[Gamma]^4 - 
               18 $CellContext`\[Gamma]^5 + (
                 18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
               42 $CellContext`\[Gamma]^6 + 
               16 $CellContext`\[Gamma]^7 - (
                16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
               8 $CellContext`\[Gamma]^8 - (
                80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
                32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                 84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] + (
                 48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - ((
                 48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
                8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                  1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2])^2)) ((-335872) $CellContext`\[Gamma]^6 + 
              1191936 $CellContext`\[Gamma]^7 - (
               1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
              486912 $CellContext`\[Gamma]^8 + (
                1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
               823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
              5584896 $CellContext`\[Gamma]^9 + (
                5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
               442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
              2013120 $CellContext`\[Gamma]^10 - (
               7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
              11186880 $CellContext`\[Gamma]^11 - (
               12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
               834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
              6885232 $CellContext`\[Gamma]^12 + (
                16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
               8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
              12488784 $CellContext`\[Gamma]^13 + (
                16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
               5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
              9101376 $CellContext`\[Gamma]^14 - (
               18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
              8488080 $CellContext`\[Gamma]^15 - (
               13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
               2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
              6501504 $CellContext`\[Gamma]^16 + (
                12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
               6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
              3592416 $CellContext`\[Gamma]^17 + (
                6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
               4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
              2660016 $CellContext`\[Gamma]^18 - (
               5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
              917424 $CellContext`\[Gamma]^19 - (
               2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
               595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
              601872 $CellContext`\[Gamma]^20 + (
                1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
               581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
              123488 $CellContext`\[Gamma]^21 + (
                338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
               322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
              64896 $CellContext`\[Gamma]^22 - (
               127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
              5328 $CellContext`\[Gamma]^23 - (
               17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
               6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
              1904 $CellContext`\[Gamma]^24 + (
                3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
               1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
               1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
                1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                4985344 $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               2124864 $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               8822272 $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                5763936 $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                8588064 $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               6393024 $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               5012736 $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                3776832 $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                1783680 $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               1234080 $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                207072 $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                  1191936 $CellContext`\[Gamma]^7 - (
                   1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                  486912 $CellContext`\[Gamma]^8 + (
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                   823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                  5584896 $CellContext`\[Gamma]^9 + (
                    5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                   442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                    147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                  2013120 $CellContext`\[Gamma]^10 - (
                   7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                    3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                  11186880 $CellContext`\[Gamma]^11 - (
                   12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                    2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                   834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                  6885232 $CellContext`\[Gamma]^12 + (
                    16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                   8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                  12488784 $CellContext`\[Gamma]^13 + (
                    16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                   5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                    1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                  9101376 $CellContext`\[Gamma]^14 - (
                   18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                    9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                  8488080 $CellContext`\[Gamma]^15 - (
                   13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                    6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                   2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                  6501504 $CellContext`\[Gamma]^16 + (
                    12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                   6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                  3592416 $CellContext`\[Gamma]^17 + (
                    6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                   4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                    1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                  2660016 $CellContext`\[Gamma]^18 - (
                   5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                    2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                  917424 $CellContext`\[Gamma]^19 - (
                   2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                    1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                   595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                  601872 $CellContext`\[Gamma]^20 + (
                    1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                   581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                  123488 $CellContext`\[Gamma]^21 + (
                    338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                   322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                    107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                  64896 $CellContext`\[Gamma]^22 - (
                   127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                    63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                  5328 $CellContext`\[Gamma]^23 - (
                   17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                    18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                   6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                  1904 $CellContext`\[Gamma]^24 + (
                    3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                   1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                    335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   1191936 $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   318976 $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - ((
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   2124864 $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   8822272 $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   6393024 $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   5012736 $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   1234080 $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   360672 $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   12000 $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   544 $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
                4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                    112 $CellContext`\[Gamma]^4 - 
                    18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                    42 $CellContext`\[Gamma]^6 + 
                    16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                    8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
               Rational[1, 2])^
             Rational[-1, 3] + (((Rational[-1, 6] 2^Rational[-1, 3]) (1 + 
               Complex[0, -1] 
                3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
             22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
             2 $CellContext`\[Gamma]^9 + (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
               7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2])) ((-335872) $CellContext`\[Gamma]^6 + 
              1191936 $CellContext`\[Gamma]^7 - (
               1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
              486912 $CellContext`\[Gamma]^8 + (
                1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
               823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
              5584896 $CellContext`\[Gamma]^9 + (
                5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
               442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
              2013120 $CellContext`\[Gamma]^10 - (
               7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
              11186880 $CellContext`\[Gamma]^11 - (
               12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
               834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
              6885232 $CellContext`\[Gamma]^12 + (
                16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
               8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
              12488784 $CellContext`\[Gamma]^13 + (
                16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
               5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
              9101376 $CellContext`\[Gamma]^14 - (
               18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
              8488080 $CellContext`\[Gamma]^15 - (
               13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
               2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
              6501504 $CellContext`\[Gamma]^16 + (
                12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
               6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
              3592416 $CellContext`\[Gamma]^17 + (
                6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
               4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
              2660016 $CellContext`\[Gamma]^18 - (
               5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
              917424 $CellContext`\[Gamma]^19 - (
               2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
               595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
              601872 $CellContext`\[Gamma]^20 + (
                1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
               581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
              123488 $CellContext`\[Gamma]^21 + (
                338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
               322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
              64896 $CellContext`\[Gamma]^22 - (
               127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
              5328 $CellContext`\[Gamma]^23 - (
               17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
               6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
              1904 $CellContext`\[Gamma]^24 + (
                3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
               1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - (
               1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
                1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                4985344 $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               2124864 $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               8822272 $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                5763936 $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                8588064 $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               6393024 $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               5012736 $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                3776832 $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                1783680 $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               1234080 $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                207072 $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((
                 102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[
                 1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                  1191936 $CellContext`\[Gamma]^7 - (
                   1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                  486912 $CellContext`\[Gamma]^8 + (
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                   823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                  5584896 $CellContext`\[Gamma]^9 + (
                    5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                   442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                    147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                  2013120 $CellContext`\[Gamma]^10 - (
                   7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                    3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                  11186880 $CellContext`\[Gamma]^11 - (
                   12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                    2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                   834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                  6885232 $CellContext`\[Gamma]^12 + (
                    16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                   8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                  12488784 $CellContext`\[Gamma]^13 + (
                    16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                   5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                    1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                  9101376 $CellContext`\[Gamma]^14 - (
                   18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                    9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                  8488080 $CellContext`\[Gamma]^15 - (
                   13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                    6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                   2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                  6501504 $CellContext`\[Gamma]^16 + (
                    12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                   6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                  3592416 $CellContext`\[Gamma]^17 + (
                    6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                   4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                    1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                  2660016 $CellContext`\[Gamma]^18 - (
                   5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                    2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                  917424 $CellContext`\[Gamma]^19 - (
                   2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                    1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                   595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                  601872 $CellContext`\[Gamma]^20 + (
                    1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                   581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                  123488 $CellContext`\[Gamma]^21 + (
                    338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                   322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                    107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                  64896 $CellContext`\[Gamma]^22 - (
                   127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                    63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                  5328 $CellContext`\[Gamma]^23 - (
                   17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                    18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                   6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                  1904 $CellContext`\[Gamma]^24 + (
                    3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                   1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                    335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   1191936 $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   318976 $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[1, 2] - ((
                    1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   2124864 $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   8822272 $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   6393024 $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   5012736 $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   1234080 $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   360672 $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   12000 $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                   544 $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                    3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^
                   Rational[
                    1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
                4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                    112 $CellContext`\[Gamma]^4 - 
                    18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                    42 $CellContext`\[Gamma]^6 + 
                    16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                    8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
               Rational[1, 2])^Rational[1, 3]]], (Rational[1, 2]/(-16 + 
          24 $CellContext`\[Gamma]^2 - 
          9 $CellContext`\[Gamma]^4 + $CellContext`\[Gamma]^6)) (-32 + 
          32 $CellContext`c$$ + 
          48 $CellContext`\[Gamma]^2 - (
           48 $CellContext`c$$) $CellContext`\[Gamma]^2 - 
          18 $CellContext`\[Gamma]^4 + (
            18 $CellContext`c$$) $CellContext`\[Gamma]^4 + 
          2 $CellContext`\[Gamma]^6 - (
           2 $CellContext`c$$) $CellContext`\[Gamma]^6 + (((-4) (-8 + 
               8 $CellContext`c$$ - 4 $CellContext`c$$^2 + 
               6 $CellContext`\[Gamma]^2 - (
                6 $CellContext`c$$) $CellContext`\[Gamma]^2 + (
                 3 $CellContext`c$$^2) $CellContext`\[Gamma]^2 + 
               2 $CellContext`\[Gamma]^3 - (
                2 $CellContext`c$$) $CellContext`\[Gamma]^3)) (-16 + 
              24 $CellContext`\[Gamma]^2 - 
              9 $CellContext`\[Gamma]^4 + $CellContext`\[Gamma]^6) + (32 - 
              32 $CellContext`c$$ - 
              48 $CellContext`\[Gamma]^2 + (
                48 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
              18 $CellContext`\[Gamma]^4 - (
               18 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
              2 $CellContext`\[Gamma]^6 + (
                2 $CellContext`c$$) $CellContext`\[Gamma]^6)^2)^
           Rational[1, 2])}, {$CellContext`\[Gamma], 0.9, 0.9999}, 
        PlotRange -> {0, 1}], "Specifications" :> {{$CellContext`c$$, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {201., 208.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7650160375976515`*^9, 3.7650160632437468`*^9}, 
   3.765442804009929*^9, 3.765773460504896*^9, 3.765774158596647*^9, 
   3.7658176193571615`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Hence", ",", " ", 
    RowBox[{
     RowBox[{
     "the", " ", "relevant", " ", "boundary", " ", "is", " ", "defined", " ", 
      "by", " ", "the", " ", "boundaries", " ", "of", " ", "regions", " ", 
      "b"}], "-", " ", 
     RowBox[{"and", " ", "c"}], "-", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"WelfareLinear", "=", 
     RowBox[{"Min", "[", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"tmpregimeb", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"tmpregionc", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "0.9999"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7650160742503333`*^9, 3.765016099589573*^9}, {
   3.7650162376989756`*^9, 3.7650162707396064`*^9}, 3.765016313509137*^9, {
   3.7650163502110004`*^9, 3.7650164389315567`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {146., 153.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$17880$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$17880$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        Min[(Rational[1, 2]/(-16 + 24 $CellContext`\[Gamma]^2 - 
          9 $CellContext`\[Gamma]^4 + $CellContext`\[Gamma]^6)) (-32 + 
          32 $CellContext`c$$ + 
          48 $CellContext`\[Gamma]^2 - (
           48 $CellContext`c$$) $CellContext`\[Gamma]^2 - 
          18 $CellContext`\[Gamma]^4 + (
            18 $CellContext`c$$) $CellContext`\[Gamma]^4 + 
          2 $CellContext`\[Gamma]^6 - (
           2 $CellContext`c$$) $CellContext`\[Gamma]^6 + (((-4) (-8 + 
               8 $CellContext`c$$ - 4 $CellContext`c$$^2 + 
               6 $CellContext`\[Gamma]^2 - (
                6 $CellContext`c$$) $CellContext`\[Gamma]^2 + (
                 3 $CellContext`c$$^2) $CellContext`\[Gamma]^2 + 
               2 $CellContext`\[Gamma]^3 - (
                2 $CellContext`c$$) $CellContext`\[Gamma]^3)) (-16 + 
              24 $CellContext`\[Gamma]^2 - 
              9 $CellContext`\[Gamma]^4 + $CellContext`\[Gamma]^6) + (32 - 
              32 $CellContext`c$$ - 
              48 $CellContext`\[Gamma]^2 + (
                48 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
              18 $CellContext`\[Gamma]^4 - (
               18 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
              2 $CellContext`\[Gamma]^6 + (
                2 $CellContext`c$$) $CellContext`\[Gamma]^6)^2)^
           Rational[1, 2]), 
         Re[(Rational[-1, 3]/((-16) $CellContext`\[Gamma]^3 + 
            22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
            2 $CellContext`\[Gamma]^9 + (
              32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
             36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] + (
              7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2])) (80 $CellContext`\[Gamma]^2 - 
            112 $CellContext`\[Gamma]^4 - 
            18 $CellContext`\[Gamma]^5 + (
              18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
            42 $CellContext`\[Gamma]^6 + 
            16 $CellContext`\[Gamma]^7 - (
             16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
            8 $CellContext`\[Gamma]^8 - (
             80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] - (
             32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
             Rational[
              1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
              84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
              48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - ((
              48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
              1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
             21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] - (
             8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
             Rational[
              1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2]) + ((((Rational[1, 3] 2^Rational[-2, 3]) (1 + 
               Complex[0, 1] 
                3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
             22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
             2 $CellContext`\[Gamma]^9 + (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] + (
               7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2])) ((
               3 ((-112) $CellContext`\[Gamma] - 
                16 $CellContext`\[Gamma]^2 + (
                  16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                190 $CellContext`\[Gamma]^3 - (
                 32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                  16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                36 $CellContext`\[Gamma]^4 - (
                 36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                92 $CellContext`\[Gamma]^5 + (
                  32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                 16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                16 $CellContext`\[Gamma]^6 + (
                  16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                10 $CellContext`\[Gamma]^7 + (
                  112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] + (
                  16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                  16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                  1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                 116 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - (
                 40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                 Rational[
                  1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                  29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] + (
                  8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                  8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                  1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
               22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
               2 $CellContext`\[Gamma]^9 + (
                 32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2] - (
                36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] + (
                 7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                 Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
              112 $CellContext`\[Gamma]^4 - 
              18 $CellContext`\[Gamma]^5 + (
                18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
              42 $CellContext`\[Gamma]^6 + 
              16 $CellContext`\[Gamma]^7 - (
               16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
              8 $CellContext`\[Gamma]^8 - (
               80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
               32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                 1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] + (
                48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2] - ((
                48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
               21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
               8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                 1 - $CellContext`\[Gamma]^2)^
                Rational[1, 2])^2)) ((-335872) $CellContext`\[Gamma]^6 + 
             1191936 $CellContext`\[Gamma]^7 - (
              1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
             486912 $CellContext`\[Gamma]^8 + (
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
              823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
             5584896 $CellContext`\[Gamma]^9 + (
               5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
              442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
               147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
             2013120 $CellContext`\[Gamma]^10 - (
              7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
               3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
             11186880 $CellContext`\[Gamma]^11 - (
              12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
               2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
              834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
             6885232 $CellContext`\[Gamma]^12 + (
               16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
              8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
             12488784 $CellContext`\[Gamma]^13 + (
               16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
              5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
               1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
             9101376 $CellContext`\[Gamma]^14 - (
              18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
               9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
             8488080 $CellContext`\[Gamma]^15 - (
              13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
               6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
              2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
             6501504 $CellContext`\[Gamma]^16 + (
               12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
              6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
             3592416 $CellContext`\[Gamma]^17 + (
               6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
              4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
               1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
             2660016 $CellContext`\[Gamma]^18 - (
              5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
               2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
             917424 $CellContext`\[Gamma]^19 - (
              2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
               1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
              595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
             601872 $CellContext`\[Gamma]^20 + (
               1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
              581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
             123488 $CellContext`\[Gamma]^21 + (
               338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
              322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
               107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
             64896 $CellContext`\[Gamma]^22 - (
              127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
               63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
             5328 $CellContext`\[Gamma]^23 - (
              17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
               18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
              6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
             1904 $CellContext`\[Gamma]^24 + (
               3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
              1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
               335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - ((
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               4985344 $CellContext`\[Gamma]^9) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              2124864 $CellContext`\[Gamma]^10) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              8822272 $CellContext`\[Gamma]^11) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               5763936 $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               8588064 $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              6393024 $CellContext`\[Gamma]^14) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              5012736 $CellContext`\[Gamma]^15) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               3776832 $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               1783680 $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              1234080 $CellContext`\[Gamma]^18) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               207072 $CellContext`\[Gamma]^20) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                 1191936 $CellContext`\[Gamma]^7 - (
                  1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                 486912 $CellContext`\[Gamma]^8 + (
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                  823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                 5584896 $CellContext`\[Gamma]^9 + (
                   5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                  442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                   147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                 2013120 $CellContext`\[Gamma]^10 - (
                  7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                   3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                 11186880 $CellContext`\[Gamma]^11 - (
                  12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                   2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                  834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                 6885232 $CellContext`\[Gamma]^12 + (
                   16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                  8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                 12488784 $CellContext`\[Gamma]^13 + (
                   16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                  5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                   1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                 9101376 $CellContext`\[Gamma]^14 - (
                  18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                   9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                 8488080 $CellContext`\[Gamma]^15 - (
                  13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                   6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                  2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                 6501504 $CellContext`\[Gamma]^16 + (
                   12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                  6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                 3592416 $CellContext`\[Gamma]^17 + (
                   6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                  4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                   1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                 2660016 $CellContext`\[Gamma]^18 - (
                  5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                   2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                 917424 $CellContext`\[Gamma]^19 - (
                  2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                   1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                  595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                 601872 $CellContext`\[Gamma]^20 + (
                   1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                  581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                 123488 $CellContext`\[Gamma]^21 + (
                   338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                  322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                   107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                 64896 $CellContext`\[Gamma]^22 - (
                  127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                   63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                 5328 $CellContext`\[Gamma]^23 - (
                  17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                   18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                  6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                 1904 $CellContext`\[Gamma]^24 + (
                   3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                  1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                   335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1191936 $CellContext`\[Gamma]^7) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  318976 $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  2124864 $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  8822272 $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  6393024 $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  5012736 $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1234080 $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  360672 $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  12000 $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
               4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                   112 $CellContext`\[Gamma]^4 - 
                   18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                   42 $CellContext`\[Gamma]^6 + 
                   16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                   8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
              Rational[1, 2])^
            Rational[-1, 3] + (((Rational[-1, 6] 2^Rational[-1, 3]) (1 + 
              Complex[0, -1] 
               3^Rational[1, 2]))/((-16) $CellContext`\[Gamma]^3 + 
            22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
            2 $CellContext`\[Gamma]^9 + (
              32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - (
             36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
             Rational[1, 2] + (
              7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2])) ((-335872) $CellContext`\[Gamma]^6 + 
             1191936 $CellContext`\[Gamma]^7 - (
              1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
             486912 $CellContext`\[Gamma]^8 + (
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
              823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
             5584896 $CellContext`\[Gamma]^9 + (
               5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
              442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
               147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
             2013120 $CellContext`\[Gamma]^10 - (
              7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
               3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
             11186880 $CellContext`\[Gamma]^11 - (
              12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
               2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
              834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
             6885232 $CellContext`\[Gamma]^12 + (
               16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
              8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
             12488784 $CellContext`\[Gamma]^13 + (
               16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
              5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
               1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
             9101376 $CellContext`\[Gamma]^14 - (
              18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
               9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
             8488080 $CellContext`\[Gamma]^15 - (
              13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
               6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
              2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
             6501504 $CellContext`\[Gamma]^16 + (
               12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
              6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
             3592416 $CellContext`\[Gamma]^17 + (
               6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
              4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
               1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
             2660016 $CellContext`\[Gamma]^18 - (
              5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
               2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
             917424 $CellContext`\[Gamma]^19 - (
              2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
               1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
              595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
             601872 $CellContext`\[Gamma]^20 + (
               1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
              581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
             123488 $CellContext`\[Gamma]^21 + (
               338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
              322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
               107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
             64896 $CellContext`\[Gamma]^22 - (
              127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
               63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
             5328 $CellContext`\[Gamma]^23 - (
              17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
               18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
              6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
             1904 $CellContext`\[Gamma]^24 + (
               3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
              1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
               335872 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - (
              1191936 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              318976 $CellContext`\[Gamma]^8) (1 - $CellContext`\[Gamma]^2)^
              Rational[1, 2] - ((
               1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               4985344 $CellContext`\[Gamma]^9) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              2124864 $CellContext`\[Gamma]^10) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              8822272 $CellContext`\[Gamma]^11) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               5763936 $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               8588064 $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              6393024 $CellContext`\[Gamma]^14) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              5012736 $CellContext`\[Gamma]^15) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               3776832 $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               1783680 $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              1234080 $CellContext`\[Gamma]^18) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              360672 $CellContext`\[Gamma]^19) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               207072 $CellContext`\[Gamma]^20) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
               30304 $CellContext`\[Gamma]^21) (1 - $CellContext`\[Gamma]^2)^
               Rational[1, 2] - ((
               98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((
                102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              12000 $CellContext`\[Gamma]^22) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
               1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
              544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
               3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
               1 - $CellContext`\[Gamma]^2)^
              Rational[
               1, 2] + ((1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                1 - $CellContext`\[Gamma]^2)^
               Rational[
                1, 2] + (((-335872) $CellContext`\[Gamma]^6 + 
                 1191936 $CellContext`\[Gamma]^7 - (
                  1191936 $CellContext`c$$) $CellContext`\[Gamma]^7 + 
                 486912 $CellContext`\[Gamma]^8 + (
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8 - (
                  823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8 - 
                 5584896 $CellContext`\[Gamma]^9 + (
                   5879808 $CellContext`c$$) $CellContext`\[Gamma]^9 - (
                  442368 $CellContext`c$$^2) $CellContext`\[Gamma]^9 + (
                   147456 $CellContext`c$$^3) $CellContext`\[Gamma]^9 + 
                 2013120 $CellContext`\[Gamma]^10 - (
                  7962624 $CellContext`c$$) $CellContext`\[Gamma]^10 + (
                   3981312 $CellContext`c$$^2) $CellContext`\[Gamma]^10 + 
                 11186880 $CellContext`\[Gamma]^11 - (
                  12854976 $CellContext`c$$) $CellContext`\[Gamma]^11 + (
                   2502144 $CellContext`c$$^2) $CellContext`\[Gamma]^11 - (
                  834048 $CellContext`c$$^3) $CellContext`\[Gamma]^11 - 
                 6885232 $CellContext`\[Gamma]^12 + (
                   16434048 $CellContext`c$$) $CellContext`\[Gamma]^12 - (
                  8217024 $CellContext`c$$^2) $CellContext`\[Gamma]^12 - 
                 12488784 $CellContext`\[Gamma]^13 + (
                   16319952 $CellContext`c$$) $CellContext`\[Gamma]^13 - (
                  5746752 $CellContext`c$$^2) $CellContext`\[Gamma]^13 + (
                   1915584 $CellContext`c$$^3) $CellContext`\[Gamma]^13 + 
                 9101376 $CellContext`\[Gamma]^14 - (
                  18708960 $CellContext`c$$) $CellContext`\[Gamma]^14 + (
                   9354480 $CellContext`c$$^2) $CellContext`\[Gamma]^14 + 
                 8488080 $CellContext`\[Gamma]^15 - (
                  13125936 $CellContext`c$$) $CellContext`\[Gamma]^15 + (
                   6956784 $CellContext`c$$^2) $CellContext`\[Gamma]^15 - (
                  2318928 $CellContext`c$$^3) $CellContext`\[Gamma]^15 - 
                 6501504 $CellContext`\[Gamma]^16 + (
                   12660384 $CellContext`c$$) $CellContext`\[Gamma]^16 - (
                  6330192 $CellContext`c$$^2) $CellContext`\[Gamma]^16 - 
                 3592416 $CellContext`\[Gamma]^17 + (
                   6760800 $CellContext`c$$) $CellContext`\[Gamma]^17 - (
                  4752576 $CellContext`c$$^2) $CellContext`\[Gamma]^17 + (
                   1584192 $CellContext`c$$^3) $CellContext`\[Gamma]^17 + 
                 2660016 $CellContext`\[Gamma]^18 - (
                  5109024 $CellContext`c$$) $CellContext`\[Gamma]^18 + (
                   2554512 $CellContext`c$$^2) $CellContext`\[Gamma]^18 + 
                 917424 $CellContext`\[Gamma]^19 - (
                  2108976 $CellContext`c$$) $CellContext`\[Gamma]^19 + (
                   1787328 $CellContext`c$$^2) $CellContext`\[Gamma]^19 - (
                  595776 $CellContext`c$$^3) $CellContext`\[Gamma]^19 - 
                 601872 $CellContext`\[Gamma]^20 + (
                   1163328 $CellContext`c$$) $CellContext`\[Gamma]^20 - (
                  581664 $CellContext`c$$^2) $CellContext`\[Gamma]^20 - 
                 123488 $CellContext`\[Gamma]^21 + (
                   338784 $CellContext`c$$) $CellContext`\[Gamma]^21 - (
                  322944 $CellContext`c$$^2) $CellContext`\[Gamma]^21 + (
                   107648 $CellContext`c$$^3) $CellContext`\[Gamma]^21 + 
                 64896 $CellContext`\[Gamma]^22 - (
                  127488 $CellContext`c$$) $CellContext`\[Gamma]^22 + (
                   63744 $CellContext`c$$^2) $CellContext`\[Gamma]^22 + 
                 5328 $CellContext`\[Gamma]^23 - (
                  17616 $CellContext`c$$) $CellContext`\[Gamma]^23 + (
                   18432 $CellContext`c$$^2) $CellContext`\[Gamma]^23 - (
                  6144 $CellContext`c$$^3) $CellContext`\[Gamma]^23 - 
                 1904 $CellContext`\[Gamma]^24 + (
                   3840 $CellContext`c$$) $CellContext`\[Gamma]^24 - (
                  1920 $CellContext`c$$^2) $CellContext`\[Gamma]^24 + (
                   335872 $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1191936 $CellContext`\[Gamma]^7) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1191936 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  318976 $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[1, 2] - ((
                   1646592 $CellContext`c$$) $CellContext`\[Gamma]^8) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    823296 $CellContext`c$$^2) $CellContext`\[Gamma]^8) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   4985344 $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   5263872 $CellContext`c$$) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    417792 $CellContext`c$$^2) $CellContext`\[Gamma]^9) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   139264 $CellContext`c$$^3) $CellContext`\[Gamma]^9) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  2124864 $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    7120896 $CellContext`c$$) $CellContext`\[Gamma]^10) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3560448 $CellContext`c$$^2) $CellContext`\[Gamma]^10) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  8822272 $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    10280448 $CellContext`c$$) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   2187264 $CellContext`c$$^2) $CellContext`\[Gamma]^11) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    729088 $CellContext`c$$^3) $CellContext`\[Gamma]^11) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   5763936 $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   12970368 $CellContext`c$$) $CellContext`\[Gamma]^12) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    6485184 $CellContext`c$$^2) $CellContext`\[Gamma]^12) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   8588064 $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11623968 $CellContext`c$$) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    4553856 $CellContext`c$$^2) $CellContext`\[Gamma]^13) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1517952 $CellContext`c$$^3) $CellContext`\[Gamma]^13) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  6393024 $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    12762816 $CellContext`c$$) $CellContext`\[Gamma]^14) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   6381408 $CellContext`c$$^2) $CellContext`\[Gamma]^14) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  5012736 $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    8271552 $CellContext`c$$) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   4888224 $CellContext`c$$^2) $CellContext`\[Gamma]^15) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1629408 $CellContext`c$$^3) $CellContext`\[Gamma]^15) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   3776832 $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   7245504 $CellContext`c$$) $CellContext`\[Gamma]^16) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    3622752 $CellContext`c$$^2) $CellContext`\[Gamma]^16) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   1783680 $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3688128 $CellContext`c$$) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2856672 $CellContext`c$$^2) $CellContext`\[Gamma]^17) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   952224 $CellContext`c$$^3) $CellContext`\[Gamma]^17) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  1234080 $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2351616 $CellContext`c$$) $CellContext`\[Gamma]^18) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   1175808 $CellContext`c$$^2) $CellContext`\[Gamma]^18) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  360672 $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    928992 $CellContext`c$$) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   852480 $CellContext`c$$^2) $CellContext`\[Gamma]^19) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    284160 $CellContext`c$$^3) $CellContext`\[Gamma]^19) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   207072 $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   397440 $CellContext`c$$) $CellContext`\[Gamma]^20) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    198720 $CellContext`c$$^2) $CellContext`\[Gamma]^20) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                   30304 $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   98400 $CellContext`c$$) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    102144 $CellContext`c$$^2) $CellContext`\[Gamma]^21) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   34048 $CellContext`c$$^3) $CellContext`\[Gamma]^21) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  12000 $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    23424 $CellContext`c$$) $CellContext`\[Gamma]^22) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   11712 $CellContext`c$$^2) $CellContext`\[Gamma]^22) (
                   1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                  544 $CellContext`\[Gamma]^23) (1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    2592 $CellContext`c$$) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - ((
                   3072 $CellContext`c$$^2) $CellContext`\[Gamma]^23) (
                   1 - $CellContext`\[Gamma]^2)^
                  Rational[
                   1, 2] + ((
                    1024 $CellContext`c$$^3) $CellContext`\[Gamma]^23) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2 + 
               4 ((3 ((-112) $CellContext`\[Gamma] - 
                    16 $CellContext`\[Gamma]^2 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2 + 
                    190 $CellContext`\[Gamma]^3 - (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^3 + (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^3 + 
                    36 $CellContext`\[Gamma]^4 - (
                    36 $CellContext`c$$) $CellContext`\[Gamma]^4 - 
                    92 $CellContext`\[Gamma]^5 + (
                    32 $CellContext`c$$) $CellContext`\[Gamma]^5 - (
                    16 $CellContext`c$$^2) $CellContext`\[Gamma]^5 - 
                    16 $CellContext`\[Gamma]^6 + (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^6 + 
                    10 $CellContext`\[Gamma]^7 + (
                    112 $CellContext`\[Gamma]) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    16 $CellContext`c$$) $CellContext`\[Gamma]^2) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    116 $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    40 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((40 $CellContext`c$$) $CellContext`\[Gamma]^4) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    29 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    8 $CellContext`c$$) $CellContext`\[Gamma]^6) (
                    1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2])) ((-16) $CellContext`\[Gamma]^3 + 
                    22 $CellContext`\[Gamma]^5 - 8 $CellContext`\[Gamma]^7 + 
                    2 $CellContext`\[Gamma]^9 + (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    36 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2]) - (80 $CellContext`\[Gamma]^2 - 
                   112 $CellContext`\[Gamma]^4 - 
                   18 $CellContext`\[Gamma]^5 + (
                    18 $CellContext`c$$) $CellContext`\[Gamma]^5 + 
                   42 $CellContext`\[Gamma]^6 + 
                   16 $CellContext`\[Gamma]^7 - (
                    16 $CellContext`c$$) $CellContext`\[Gamma]^7 - 
                   8 $CellContext`\[Gamma]^8 - (
                    80 $CellContext`\[Gamma]^2) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]^3) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((32 $CellContext`c$$) $CellContext`\[Gamma]^3) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] + (
                    84 $CellContext`\[Gamma]^4) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] + (
                    48 $CellContext`\[Gamma]^5) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - ((
                    48 $CellContext`c$$) $CellContext`\[Gamma]^5) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2] - (
                    21 $CellContext`\[Gamma]^6) (1 - $CellContext`\[Gamma]^2)^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]^7) (1 - $CellContext`\[Gamma]^2)^
                    Rational[
                    1, 2] + ((8 $CellContext`c$$) $CellContext`\[Gamma]^7) (
                    1 - $CellContext`\[Gamma]^2)^Rational[1, 2])^2)^3)^
              Rational[1, 2])^Rational[1, 3]]], {$CellContext`\[Gamma], 0, 
         0.9999}, PlotRange -> {0, 1}], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.76501627138684*^9, 3.765016314968233*^9, {3.765016351419738*^9, 
   3.7650163805118666`*^9}, 3.765016415626912*^9, 3.7654428040896854`*^9, 
   3.765773460605655*^9, 3.765774166186302*^9, 3.7658176194319115`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\^\\(1/3\\)\\)\
\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.765817848194335*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\^\\(1/3\\)\\)\
\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7659717816068788`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\^\\(1/3\\)\\)\
\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.767530761579473*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"line1", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", "WelfareLinear", "}"}], "/.", 
   RowBox[{"c", "\[Rule]", "0"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FigureK", "=", 
   RowBox[{"Quiet", "[", 
    RowBox[{"Plot", "[", 
     RowBox[{"%", ",", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "0", ",", "0.99999"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thick"}], "}"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<\[Gamma]\>\"", ",", "\"\<K\>\""}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{
           "{", "\"\<\!\(\*SuperscriptBox[\(K\), \(W\)]\)(\[Gamma])\>\"", 
            "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], "}"}]}]}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.75", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Ticks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1.05"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1.1"}], "}"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"AxesStyle", "\[Rule]", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", 
         RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}], ",", " ", 
      RowBox[{"Filling", "\[Rule]", "Axis"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", 
          RowBox[{"{", "Black", "}"}], "]"}], ",", "line1"}], "}"}]}]}], 
     "\[IndentingNewLine]", "]"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<FigureK.pdf\>\"", ",", "FigureK"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.764609924092414*^9, 3.764610025289898*^9}, {
   3.7646101531609983`*^9, 3.76461017225301*^9}, 3.764610225370983*^9, {
   3.7646104465177584`*^9, 3.764610474675472*^9}, {3.7646105099710827`*^9, 
   3.7646105264311075`*^9}, {3.764610602893671*^9, 3.7646106050458593`*^9}, {
   3.7646106578496866`*^9, 3.7646107144653215`*^9}, {3.7646107487686405`*^9, 
   3.7646107985166483`*^9}, {3.765016556380348*^9, 3.765016598675147*^9}, {
   3.7650167053328123`*^9, 3.7650168444495535`*^9}, {3.7650168802816815`*^9, 
   3.765016890157257*^9}, {3.765017032600212*^9, 3.765017074288636*^9}, {
   3.765774377848651*^9, 3.7657744776454763`*^9}, {3.767530845875678*^9, 
   3.7675308499588614`*^9}, {3.7675311272737923`*^9, 3.7675311311934395`*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJw113sw1VsbB3BSSqdEKbcQRS7ZdaRC8hWiSJ0KpSQSIkVu9SIpt1MoFRUh
CgkhVCjU3tud3O+Otsve9v1XSlTk3e/Me9bMmjVr1j9r1nyeeb5L+bT3YdcF
QkJCLMH839rz62pAMcvWSOj/4/DpyF/BsgkgZTgsSaKRsUUiY2r0SyZ85cJs
b4lS0Ly1YlpHsRAJLPmj1loUdKiMX3wdU4o1Ojpvsv+iILz5sWH0t3JsUvO+
Qw2i4Grf5VieUDWuNr/VLn5KQbpJeB/FkAyVFMnWqXYK4m0sXK24VOwVLf4n
UJiKLOnk0tTzdVAb3jFRt5mKtVoWfDHVRjxsP7ze4QwV5cR1tnFBM7IPKrR1
PKCCTux0LtZsxaK95SN5zVQYpG8cSeO3QSU6YxFjSQ1WZcxMNmzpgCQ/cHCB
WQ2UGr//EL7VCd0h0mhEdA0m47ca9Y53waai4nlMSw2OFr0Zu7OhB24vR0KC
VtaCP3021P5qL5wDPJqjnWsh/dA5SJTSh7z4qBUFhbXwdYo+9155AF7uunox
YnVIqOUkSQcNInbG0DvMvQ57Ix9o2LwdwmVli7sUah1IXj4FqdLDUJpTFH20
pR7ZefEJzQ6foPvLdefulHr4UadPNFvTcIRepSiyvAGb6nYxy37SkLD2nJht
fANIgRtVZVJGkCq88NdhqUbsK382NGc5CoMF9jcXFjbCwqpOp/j7KHKtteUP
2DTh9o2b+v33xxAZX5+4a7YJxInxiiizcfhaeZY2UZqRNDDCzWaMQ1zlyAnj
Oy1QywmtTIykY2iiUvq790c0ixUv+UOHgYeTS+QOhbbirfSNhV87GIi7dvVK
hXUbKOXfg5yvTYD2iDZe/bsNUkuWPDHZwIQh1dODU9WOfVll7pMUJi7clPi2
JqUDD3rmn6lfZMGotuHqxLtOkErZD9tXshF32U1dX6wbw6peC4XJbFz4yNsX
3tGDi4xY8fnzHAx1JP9QXt+PA0cONXiLc+FY/OlF+R9DMLXJ/+32jotFiw2T
ivVouC6cN97myIN6noiypsYYsub2eoj95oE4rksZTmOAFnflbH0uHyVXFLuF
jZhwbbSV+WlFgGZdm/5JmY3RVNtZ9jyBfop0gcVDArk31h2/IhuB7MnuqzGt
ZNh/cPma/jsNnvL7HN2/klFgR4uQ82eiKKf3xYh6Bz7vGoqOk2OhQ3qFjKpq
J07vCVg394EF5+B8jvrxLoiezzvg4cnGpYDtMcPD3VCPChETkuGg8Tv51W56
L2hriXM7qjh4qFSxaW/wAOo7f7ucc+XCqzf+tuayYYzm5n15tJyH8Pb2k7tv
jyBh/ofa+QIeqCZzSYdW0kHeM8Y8a8PHS+Uih2vOE1DJ9zB2/sWHx5ib9ZQW
CxtKbW9OZhGQkb0dbp/DwfE+O+kwWX8seTQ2plhHRs8d/0visUn4/bLTYYpF
hvNm/3uk/UzQ5E8/7phsR8rFxmkQTGwcX8nhDndgNs5g/G4SC9fDB91DxLqQ
LNHkl2rExpy35K1sn26I2H2LEuKx0ZS8/+jio73IETbaJX+fA7203tcD9f2I
WZVzn6fPxQLuXz8Lhf7B3Xmty8J0LuTmfx31HqIhJqxj0eMoHjQplb//khhH
qfIaDX0NPtTUv392nWNAONWvS6qTj7ZRN/tjRUyYVdse+n6ZANX4VyP9Ixsb
nyXmGKjdgo6vjY9YHxn1s4UO7mwWyBuDX5sXdsG3IUZj2302bn/cQ8Tb9GD/
64Wx8yYCb3LepoahfZDWS08+wuDAdyymu2rnIEQTbP9kxXNx73HBO+qWT9Cx
0zq3fTsPZfraMp2HR5ESqrx3Zw8Pe67Wvly7nwGzt6fyX6wnMB62/UvyYxZE
nttS+B0Efo0bi0T2cFERQLkTKXsGIcdqbxJkMqR+hujXdNxHmfqNCDM6GRXy
Vcl6ekx4UqbtUvra4RvzYXNSPxMp0/I82coOWOoo1J6MZCH2x8PdpaOdODN6
POqNOhtDz69UrTPsFngsqgnrZWPgsPG31FW9WOZPV11+nQOP1MT0YP9+eJXM
FpI2cOG2/OjOmPAhsDW8dpa2ceF088e72r9pEP1gNPXGlweTkooUetIY8m9v
3pexig/njEUIbmHAJ/FyGr+Kj7FK5melQCa6qN26l08T2GX5N2mVPxtnZU4I
DyndwHh/q0V9JxmrM+4a6fSwoDDYXbg+oguGj+QND4axsbNc/8k7mR4YpL1v
vKrNAS2jWNZ2Sx9Cci3C93RwoM5enprXP4CJrbmWmsGC+5a1qWx8NIybYedI
LGUeii/OD3bxRyBTHbfDhszDpe3lo4qZdJSUnAmMXkFg+eYfZSRXFhIKurN9
3hEQMiv6Z8EWLnqnmlx3qYVie3Xo0iNNZEgYu62JSuYhM3hEHHECb+Xd5/1v
Ezi11K79b10O1hm9OqbC5qFB3P3AvD8Dvk+7P3mxCHw7fs9FoYyHoKKUqHhZ
G3g6nlTofk/GVtK15HWBiRCNbJXnj5IxIemStovEBPvD6+CSpnY4ylQ21Xxk
wk3s6mRofgd8IsR3mAazUHWPJ1XY2ol9TU9uUxXYOGY4eDpIpRsTf4rT3zez
Ud5SnlI/2QMjbX050cscaC+0veJj1Y+TIs8MD8pyoTq3/+Ws+RDWYFlqXC0X
IobZwtZONJiNfPOinuXhaLWGyaDTGHLMDe27l/DBba2MXPiagRzJ4PDBUj5I
qVoP2uwFzuoS1fSPErj/UqNJyJINsfbKF/kpUTjjEX78eTsZhl/DC6WbWXDP
y1y6wLsLyhEuexwC2GjwyDga/6sbf95VZFercGBJiYff0j4UuDy6ZFTPwSrP
NUOiuQPoC7fptfThwrRmcdDA4WG8TvwjnizNg/fr/IJrVSOw+2Ra6CR4V/Lf
RhN/2NPB3ux+wn8RgVs6GU2e+1hweJn48M+XBEanvWR1WRzIuN+pGlb6D2ZC
U/31Gsg44LT21t14HlqXRS+hW48j5F3iqW0RBJ7tCD62RYgDR8dzbSQaDyu+
OBt4OzFgkJ3Yrj1M4OC3jBPRhjzsuKdHM1G7AE3nr5tEa8hYRl5t+ua84Dzz
xWbLdEFdpfVWWzTzAM6c+aFpOprzVr8qrCOwQMrU43AoF7npq/l53wiAv2nA
9CQfP1UP+mTLmiH9cFBsfTUZJntFrD7WJSD/yhV3yggZv2O3rTPWYGJ3pMpp
q5p2dA1XyDo0MOE0+fqpWWYHIrSjiW2BLDCDZfJMazvxrtpcykqGjXWVhyxa
VndjVKvym1MdGycsh7USRnvQJ+aSsMBP4Lbk+pc/d/TDTmv2+qdVXPTlbTyo
ozGE/H1D1kEfuNj/RszozH4aXL605jS68GDgT4T1mY1B7YmJs7cIH76y6i/c
cxmgHpydai/k4+7WzJB+KyaEGgIeJx0iEBjGl3q1jY3j2oTI6hORKMg0sE5u
I+Ngyqz70joWFlOuXY8904WEy4sbR73ZCGHtOqTO68am2JYfpxQ4aFF4VEad
7oWFcc0XAwoH92maijF3B9CW91xh0JOLk9r2GQc3D2N/+qBx4Uoetl/ye1yd
PYIAQpHjVsJDSVzNKWyjQ/QCs8VTiEBkUMmbTztZeF8cIHk3j8BiE7jJC9yV
K33zLEwJxLjC1jCtejK8fKYbHsbwIFF2QZJOGgetMqAvMZRAXvjtKdIEG1cu
mC/bNsiDcI+5o5EdA2nPAixv9REwXixL8VvMw+WFv/XGlTxgMxhm8ZNChg9l
6q30WQJZodFxjBts/Cgo/mVdJ/D7YvSeQTMdW15MaUuQCcidLj0la8eF+JMp
t2UEgWqSVu9SwTtPt0h2W6s5IsjcxWr8g6AfZ7461jJG4O3bN+4jgTy8vTUb
vrudh3800vx91Bkwf7wtwOongUcWM8rzXQJfEqWmHbK6KL0u1Z5ZRYalrdn6
LJ8E9K04ok0S+LrRqOj8QY2JiB/Vp+XI7RAnlxs/q2VCwf+7/qb0Dohfp1gV
+rFQ2iRZdO9DJ6bKH9rdWs1G8aPptWErukHLSZgtorLxalbsr+iBHmyYudQe
5sNB21jkpg3a/ThcrZa9UZILRT2fvnNyQ5g5YJb9uYoryM+P70WY0OD7n8pa
a2dBvfQH0b9vHwOjdY/rOyE+vNVI1emZDHTwDTdbv+AjM/BIDcuMieIG+mDD
AQI+3DtGb7XYuD64ePO+ighIfI77tFLgq++zHjWcysKAJj342KkutPjaL1M7
z0aun0T+PL0bmmJZwkVyHNhz8luv8HuRQBoglb/ngN2g+GA0agDN6DJef5YL
s1N+l4oUhvEgyzRJVYIHr5E70jPJI4i4tEyMXSTIH8NvWQXr6ZBarrGYMcfH
PcfgUDFdFnxL6NbkHAK6u332SpZxsDRE9YP0iQBIXBomZQnyVMjM+IT8DR4c
OmlDcUrjuFtFl6oNJjAzapH4bYCN2O9bNcv6eFh3cUeW1iEG/sqhR1V1E+gs
WVZ4jc+FbKUTvTTFDbGBp2f8Bb5UqK4zFq4EbIdCn3FC2ViyI122ncrDSo+f
X8fe0DH6wtXTuJpAierTM60mXLx/4vrUkEsgftLxi9IQD3ro1SaU7JGzPzjb
SeDr7yzVxDkaAfU98ZyZYzw0rmFnUD/y4NcoYl4pzsDM46yXwdMESHEFhbjH
xyVTapWL2gEky6iQTgr6m0NGpObQFwJWG2eeP9XmI190hVtVJw9m2tqhP80Z
SEir0ZOfI9Ciqn8uV1fgXk64iSahi3//m//m7X/3/wXgWXd4
     "], {{{}, 
       {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
        GraphicsGroupBox[
         PolygonBox[{{232, 233, 50, 231, 189, 227, 151, 229, 185, 223, 117, 
          187, 225, 146, 180, 218, 88, 150, 184, 222, 112, 141, 175, 213, 64, 
          115, 144, 178, 216, 78, 148, 182, 220, 102, 131, 165, 203, 49, 87, 
          111, 140, 174, 212, 63, 77, 101, 130, 164, 202, 48, 62, 76, 100, 
          129, 163, 201, 47, 116, 145, 179, 217, 86, 230, 188, 226, 149, 183, 
          221, 110, 139, 173, 211, 61, 114, 143, 177, 215, 75, 99, 128, 162, 
          200, 46, 85, 109, 138, 172, 210, 60, 74, 98, 127, 161, 199, 45, 84, 
          108, 137, 171, 209, 59, 73, 97, 126, 160, 198, 44, 83, 107, 136, 
          170, 208, 58, 72, 96, 125, 159, 197, 43, 82, 106, 135, 169, 207, 57,
           71, 95, 124, 158, 196, 42, 81, 105, 134, 168, 206, 56, 70, 94, 123,
           157, 195, 41, 80, 104, 133, 167, 205, 55, 69, 93, 122, 156, 194, 
          40, 54, 68, 92, 121, 155, 193, 39, 53, 67, 91, 120, 154, 192, 38, 
          37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 
          20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 52,
           66, 90, 119, 153, 191, 2, 79, 103, 132, 166, 204, 51, 113, 142, 
          176, 214, 65, 147, 181, 219, 89, 186, 224, 118, 228, 152, 
          190}}]]}, {}, {}}, {{}, {}, 
       {GrayLevel[0], Thickness[Large], 
        LineBox[{232, 190, 152, 228, 118, 224, 186, 89, 219, 181, 147, 65, 
         214, 176, 142, 113, 51, 204, 166, 132, 103, 79, 2, 191, 153, 119, 90,
          66, 52, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
          20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
         37, 38, 192, 154, 120, 91, 67, 53, 39, 193, 155, 121, 92, 68, 54, 40,
          194, 156, 122, 93, 69, 55, 205, 167, 133, 104, 80, 41, 195, 157, 
         123, 94, 70, 56, 206, 168, 134, 105, 81, 42, 196, 158, 124, 95, 71, 
         57, 207, 169, 135, 106, 82, 43, 197, 159, 125, 96, 72, 58, 208, 170, 
         136, 107, 83, 44, 198, 160, 126, 97, 73, 59, 209, 171, 137, 108, 84, 
         45, 199, 161, 127, 98, 74, 60, 210, 172, 138, 109, 85, 46, 200, 162, 
         128, 99, 75, 215, 177, 143, 114, 61, 211, 173, 139, 110, 221, 183, 
         149, 226, 188, 230, 86, 217, 179, 145, 116, 47, 201, 163, 129, 100, 
         76, 62, 48, 202, 164, 130, 101, 77, 63, 212, 174, 140, 111, 87, 49, 
         203, 165, 131, 102, 220, 182, 148, 78, 216, 178, 144, 115, 64, 213, 
         175, 141, 112, 222, 184, 150, 88, 218, 180, 146, 225, 187, 117, 223, 
         185, 229, 151, 227, 189, 231, 50}]}}}], InsetBox[
     TemplateBox[{
      "\"\\!\\(\\*SuperscriptBox[\\(K\\), \\(W\\)]\\)(\[Gamma])\""},
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 10}, PlotRangePadding -> None, 
                   ImagePadding -> 1, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}],
                "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Courier"}, 
        Background -> Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"GrayLevel", "[", "0", "]"}], ",", 
                 RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], 
           ",", 
           RowBox[{"{", #, "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Courier\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Courier\""}], "}"}]}]}], 
         "]"}]& )], Scaled[{0.75, 0.8}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   AxesLabel->{
     FormBox["\"\[Gamma]\"", TraditionalForm], 
     FormBox["\"K\"", TraditionalForm]},
   AxesOrigin->{0, 0},
   AxesStyle->Arrowheads[{0., 0.02}],
   Epilog->{
     Directive[{
       GrayLevel[0]}], 
     LineBox[{{1, 0}, {1, 1}}]},
   Method->{"AxesInFront" -> True},
   PlotRange->{{0, 1.05}, {0, 1.1}},
   PlotRangeClipping->True,
   PlotRangePadding->{Automatic, Automatic},
   Ticks->{{{0, 
       FormBox["0", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}, {{-1, 
       FormBox[
        RowBox[{"-", "1"}], TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}}],
  InterpretTemplate[Legended[
    Graphics[
     GraphicsComplex[CompressedData["
1:eJw113sw1VsbB3BSSqdEKbcQRS7ZdaRC8hWiSJ0KpSQSIkVu9SIpt1MoFRUh
CgkhVCjU3tud3O+Otsve9v1XSlTk3e/Me9bMmjVr1j9r1nyeeb5L+bT3YdcF
QkJCLMH839rz62pAMcvWSOj/4/DpyF/BsgkgZTgsSaKRsUUiY2r0SyZ85cJs
b4lS0Ly1YlpHsRAJLPmj1loUdKiMX3wdU4o1Ojpvsv+iILz5sWH0t3JsUvO+
Qw2i4Grf5VieUDWuNr/VLn5KQbpJeB/FkAyVFMnWqXYK4m0sXK24VOwVLf4n
UJiKLOnk0tTzdVAb3jFRt5mKtVoWfDHVRjxsP7ze4QwV5cR1tnFBM7IPKrR1
PKCCTux0LtZsxaK95SN5zVQYpG8cSeO3QSU6YxFjSQ1WZcxMNmzpgCQ/cHCB
WQ2UGr//EL7VCd0h0mhEdA0m47ca9Y53waai4nlMSw2OFr0Zu7OhB24vR0KC
VtaCP3021P5qL5wDPJqjnWsh/dA5SJTSh7z4qBUFhbXwdYo+9155AF7uunox
YnVIqOUkSQcNInbG0DvMvQ57Ix9o2LwdwmVli7sUah1IXj4FqdLDUJpTFH20
pR7ZefEJzQ6foPvLdefulHr4UadPNFvTcIRepSiyvAGb6nYxy37SkLD2nJht
fANIgRtVZVJGkCq88NdhqUbsK382NGc5CoMF9jcXFjbCwqpOp/j7KHKtteUP
2DTh9o2b+v33xxAZX5+4a7YJxInxiiizcfhaeZY2UZqRNDDCzWaMQ1zlyAnj
Oy1QywmtTIykY2iiUvq790c0ixUv+UOHgYeTS+QOhbbirfSNhV87GIi7dvVK
hXUbKOXfg5yvTYD2iDZe/bsNUkuWPDHZwIQh1dODU9WOfVll7pMUJi7clPi2
JqUDD3rmn6lfZMGotuHqxLtOkErZD9tXshF32U1dX6wbw6peC4XJbFz4yNsX
3tGDi4xY8fnzHAx1JP9QXt+PA0cONXiLc+FY/OlF+R9DMLXJ/+32jotFiw2T
ivVouC6cN97myIN6noiypsYYsub2eoj95oE4rksZTmOAFnflbH0uHyVXFLuF
jZhwbbSV+WlFgGZdm/5JmY3RVNtZ9jyBfop0gcVDArk31h2/IhuB7MnuqzGt
ZNh/cPma/jsNnvL7HN2/klFgR4uQ82eiKKf3xYh6Bz7vGoqOk2OhQ3qFjKpq
J07vCVg394EF5+B8jvrxLoiezzvg4cnGpYDtMcPD3VCPChETkuGg8Tv51W56
L2hriXM7qjh4qFSxaW/wAOo7f7ucc+XCqzf+tuayYYzm5n15tJyH8Pb2k7tv
jyBh/ofa+QIeqCZzSYdW0kHeM8Y8a8PHS+Uih2vOE1DJ9zB2/sWHx5ib9ZQW
CxtKbW9OZhGQkb0dbp/DwfE+O+kwWX8seTQ2plhHRs8d/0visUn4/bLTYYpF
hvNm/3uk/UzQ5E8/7phsR8rFxmkQTGwcX8nhDndgNs5g/G4SC9fDB91DxLqQ
LNHkl2rExpy35K1sn26I2H2LEuKx0ZS8/+jio73IETbaJX+fA7203tcD9f2I
WZVzn6fPxQLuXz8Lhf7B3Xmty8J0LuTmfx31HqIhJqxj0eMoHjQplb//khhH
qfIaDX0NPtTUv392nWNAONWvS6qTj7ZRN/tjRUyYVdse+n6ZANX4VyP9Ixsb
nyXmGKjdgo6vjY9YHxn1s4UO7mwWyBuDX5sXdsG3IUZj2302bn/cQ8Tb9GD/
64Wx8yYCb3LepoahfZDWS08+wuDAdyymu2rnIEQTbP9kxXNx73HBO+qWT9Cx
0zq3fTsPZfraMp2HR5ESqrx3Zw8Pe67Wvly7nwGzt6fyX6wnMB62/UvyYxZE
nttS+B0Efo0bi0T2cFERQLkTKXsGIcdqbxJkMqR+hujXdNxHmfqNCDM6GRXy
Vcl6ekx4UqbtUvra4RvzYXNSPxMp0/I82coOWOoo1J6MZCH2x8PdpaOdODN6
POqNOhtDz69UrTPsFngsqgnrZWPgsPG31FW9WOZPV11+nQOP1MT0YP9+eJXM
FpI2cOG2/OjOmPAhsDW8dpa2ceF088e72r9pEP1gNPXGlweTkooUetIY8m9v
3pexig/njEUIbmHAJ/FyGr+Kj7FK5melQCa6qN26l08T2GX5N2mVPxtnZU4I
DyndwHh/q0V9JxmrM+4a6fSwoDDYXbg+oguGj+QND4axsbNc/8k7mR4YpL1v
vKrNAS2jWNZ2Sx9Cci3C93RwoM5enprXP4CJrbmWmsGC+5a1qWx8NIybYedI
LGUeii/OD3bxRyBTHbfDhszDpe3lo4qZdJSUnAmMXkFg+eYfZSRXFhIKurN9
3hEQMiv6Z8EWLnqnmlx3qYVie3Xo0iNNZEgYu62JSuYhM3hEHHECb+Xd5/1v
Ezi11K79b10O1hm9OqbC5qFB3P3AvD8Dvk+7P3mxCHw7fs9FoYyHoKKUqHhZ
G3g6nlTofk/GVtK15HWBiRCNbJXnj5IxIemStovEBPvD6+CSpnY4ylQ21Xxk
wk3s6mRofgd8IsR3mAazUHWPJ1XY2ol9TU9uUxXYOGY4eDpIpRsTf4rT3zez
Ud5SnlI/2QMjbX050cscaC+0veJj1Y+TIs8MD8pyoTq3/+Ws+RDWYFlqXC0X
IobZwtZONJiNfPOinuXhaLWGyaDTGHLMDe27l/DBba2MXPiagRzJ4PDBUj5I
qVoP2uwFzuoS1fSPErj/UqNJyJINsfbKF/kpUTjjEX78eTsZhl/DC6WbWXDP
y1y6wLsLyhEuexwC2GjwyDga/6sbf95VZFercGBJiYff0j4UuDy6ZFTPwSrP
NUOiuQPoC7fptfThwrRmcdDA4WG8TvwjnizNg/fr/IJrVSOw+2Ra6CR4V/Lf
RhN/2NPB3ux+wn8RgVs6GU2e+1hweJn48M+XBEanvWR1WRzIuN+pGlb6D2ZC
U/31Gsg44LT21t14HlqXRS+hW48j5F3iqW0RBJ7tCD62RYgDR8dzbSQaDyu+
OBt4OzFgkJ3Yrj1M4OC3jBPRhjzsuKdHM1G7AE3nr5tEa8hYRl5t+ua84Dzz
xWbLdEFdpfVWWzTzAM6c+aFpOprzVr8qrCOwQMrU43AoF7npq/l53wiAv2nA
9CQfP1UP+mTLmiH9cFBsfTUZJntFrD7WJSD/yhV3yggZv2O3rTPWYGJ3pMpp
q5p2dA1XyDo0MOE0+fqpWWYHIrSjiW2BLDCDZfJMazvxrtpcykqGjXWVhyxa
VndjVKvym1MdGycsh7USRnvQJ+aSsMBP4Lbk+pc/d/TDTmv2+qdVXPTlbTyo
ozGE/H1D1kEfuNj/RszozH4aXL605jS68GDgT4T1mY1B7YmJs7cIH76y6i/c
cxmgHpydai/k4+7WzJB+KyaEGgIeJx0iEBjGl3q1jY3j2oTI6hORKMg0sE5u
I+Ngyqz70joWFlOuXY8904WEy4sbR73ZCGHtOqTO68am2JYfpxQ4aFF4VEad
7oWFcc0XAwoH92maijF3B9CW91xh0JOLk9r2GQc3D2N/+qBx4Uoetl/ye1yd
PYIAQpHjVsJDSVzNKWyjQ/QCs8VTiEBkUMmbTztZeF8cIHk3j8BiE7jJC9yV
K33zLEwJxLjC1jCtejK8fKYbHsbwIFF2QZJOGgetMqAvMZRAXvjtKdIEG1cu
mC/bNsiDcI+5o5EdA2nPAixv9REwXixL8VvMw+WFv/XGlTxgMxhm8ZNChg9l
6q30WQJZodFxjBts/Cgo/mVdJ/D7YvSeQTMdW15MaUuQCcidLj0la8eF+JMp
t2UEgWqSVu9SwTtPt0h2W6s5IsjcxWr8g6AfZ7461jJG4O3bN+4jgTy8vTUb
vrudh3800vx91Bkwf7wtwOongUcWM8rzXQJfEqWmHbK6KL0u1Z5ZRYalrdn6
LJ8E9K04ok0S+LrRqOj8QY2JiB/Vp+XI7RAnlxs/q2VCwf+7/qb0Dohfp1gV
+rFQ2iRZdO9DJ6bKH9rdWs1G8aPptWErukHLSZgtorLxalbsr+iBHmyYudQe
5sNB21jkpg3a/ThcrZa9UZILRT2fvnNyQ5g5YJb9uYoryM+P70WY0OD7n8pa
a2dBvfQH0b9vHwOjdY/rOyE+vNVI1emZDHTwDTdbv+AjM/BIDcuMieIG+mDD
AQI+3DtGb7XYuD64ePO+ighIfI77tFLgq++zHjWcysKAJj342KkutPjaL1M7
z0aun0T+PL0bmmJZwkVyHNhz8luv8HuRQBoglb/ngN2g+GA0agDN6DJef5YL
s1N+l4oUhvEgyzRJVYIHr5E70jPJI4i4tEyMXSTIH8NvWQXr6ZBarrGYMcfH
PcfgUDFdFnxL6NbkHAK6u332SpZxsDRE9YP0iQBIXBomZQnyVMjM+IT8DR4c
OmlDcUrjuFtFl6oNJjAzapH4bYCN2O9bNcv6eFh3cUeW1iEG/sqhR1V1E+gs
WVZ4jc+FbKUTvTTFDbGBp2f8Bb5UqK4zFq4EbIdCn3FC2ViyI122ncrDSo+f
X8fe0DH6wtXTuJpAierTM60mXLx/4vrUkEsgftLxi9IQD3ro1SaU7JGzPzjb
SeDr7yzVxDkaAfU98ZyZYzw0rmFnUD/y4NcoYl4pzsDM46yXwdMESHEFhbjH
xyVTapWL2gEky6iQTgr6m0NGpObQFwJWG2eeP9XmI190hVtVJw9m2tqhP80Z
SEir0ZOfI9Ciqn8uV1fgXk64iSahi3//m//m7X/3/wXgWXd4
      "], {{{}, {
         EdgeForm[], 
         Directive[{
           Opacity[0.2], 
           Hue[0.67, 0.6, 0.6]}], 
         GraphicsGroup[{
           
           Polygon[{{232, 233, 50, 231, 189, 227, 151, 229, 185, 223, 117, 
            187, 225, 146, 180, 218, 88, 150, 184, 222, 112, 141, 175, 213, 
            64, 115, 144, 178, 216, 78, 148, 182, 220, 102, 131, 165, 203, 49,
             87, 111, 140, 174, 212, 63, 77, 101, 130, 164, 202, 48, 62, 76, 
            100, 129, 163, 201, 47, 116, 145, 179, 217, 86, 230, 188, 226, 
            149, 183, 221, 110, 139, 173, 211, 61, 114, 143, 177, 215, 75, 99,
             128, 162, 200, 46, 85, 109, 138, 172, 210, 60, 74, 98, 127, 161, 
            199, 45, 84, 108, 137, 171, 209, 59, 73, 97, 126, 160, 198, 44, 
            83, 107, 136, 170, 208, 58, 72, 96, 125, 159, 197, 43, 82, 106, 
            135, 169, 207, 57, 71, 95, 124, 158, 196, 42, 81, 105, 134, 168, 
            206, 56, 70, 94, 123, 157, 195, 41, 80, 104, 133, 167, 205, 55, 
            69, 93, 122, 156, 194, 40, 54, 68, 92, 121, 155, 193, 39, 53, 67, 
            91, 120, 154, 192, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27,
             26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 
            10, 9, 8, 7, 6, 5, 4, 3, 52, 66, 90, 119, 153, 191, 2, 79, 103, 
            132, 166, 204, 51, 113, 142, 176, 214, 65, 147, 181, 219, 89, 186,
             224, 118, 228, 152, 190}}]}]}, {}, {}}, {{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         GrayLevel[0], 
         Thickness[Large], 
         Line[{232, 190, 152, 228, 118, 224, 186, 89, 219, 181, 147, 65, 214, 
          176, 142, 113, 51, 204, 166, 132, 103, 79, 2, 191, 153, 119, 90, 66,
           52, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 
          20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
          37, 38, 192, 154, 120, 91, 67, 53, 39, 193, 155, 121, 92, 68, 54, 
          40, 194, 156, 122, 93, 69, 55, 205, 167, 133, 104, 80, 41, 195, 157,
           123, 94, 70, 56, 206, 168, 134, 105, 81, 42, 196, 158, 124, 95, 71,
           57, 207, 169, 135, 106, 82, 43, 197, 159, 125, 96, 72, 58, 208, 
          170, 136, 107, 83, 44, 198, 160, 126, 97, 73, 59, 209, 171, 137, 
          108, 84, 45, 199, 161, 127, 98, 74, 60, 210, 172, 138, 109, 85, 46, 
          200, 162, 128, 99, 75, 215, 177, 143, 114, 61, 211, 173, 139, 110, 
          221, 183, 149, 226, 188, 230, 86, 217, 179, 145, 116, 47, 201, 163, 
          129, 100, 76, 62, 48, 202, 164, 130, 101, 77, 63, 212, 174, 140, 
          111, 87, 49, 203, 165, 131, 102, 220, 182, 148, 78, 216, 178, 144, 
          115, 64, 213, 175, 141, 112, 222, 184, 150, 88, 218, 180, 146, 225, 
          187, 117, 223, 185, 229, 151, 227, 189, 231, 50}]}}}], {
     AspectRatio -> GoldenRatio^(-1), Axes -> True, 
      AxesLabel -> {"\[Gamma]", "K"}, AxesOrigin -> {0, 0}, AxesStyle -> 
      Arrowheads[{0., 0.02}], Epilog -> {
        Directive[{
          GrayLevel[0]}], 
        Line[{{1, 0}, {1, 1}}]}, Method -> {"AxesInFront" -> True}, 
      PlotRange -> {{0, 1.05}, {0, 1.1}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {Automatic, Automatic}, 
      Ticks -> {{0, 1}, {-1, 1}}}], {
     Placed[
      LineLegend[{
        Directive[
         GrayLevel[0], 
         Thickness[Large]]}, {
       "\!\(\*SuperscriptBox[\(K\), \(W\)]\)(\[Gamma])"}, 
       LabelStyle -> {FontFamily -> "Courier"}, LegendLayout -> "Column", 
       LabelStyle -> {FontFamily -> "Courier"}], {0.75, 0.8}, Identity]}]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.7646099491654234`*^9, {3.7646100136470256`*^9, 3.7646100478755064`*^9}, 
   3.764610092775462*^9, 3.7646101569030466`*^9, {3.764610226720376*^9, 
   3.7646102558464575`*^9}, {3.7646104336889906`*^9, 3.764610475050474*^9}, {
   3.764610513351009*^9, 3.764610527097294*^9}, 3.764610606644622*^9, {
   3.764610662194105*^9, 3.764610714832382*^9}, {3.764610769204014*^9, 
   3.7646107988966293`*^9}, {3.7650165888744125`*^9, 3.76501659936135*^9}, {
   3.765016811193545*^9, 3.765016823897543*^9}, 3.7650168913769937`*^9, {
   3.7650170373424487`*^9, 3.7650170747484026`*^9}, 3.7654428041854315`*^9, 
   3.765773460705326*^9, 3.7657741738996716`*^9, {3.765774457617035*^9, 
   3.765774478395461*^9}, 3.765817619709176*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Considering", " ", "the", " ", "three", " ", "regions", " ", "a"}], "-", 
     RowBox[{"c", " ", "identified", " ", "above"}]}], ",", " ", 
    RowBox[{
    "we", " ", "define", " ", "the", " ", "associated", " ", "welfare", " ", 
     RowBox[{"changes", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"DWelfaremixemon", "=", 
     RowBox[{"Ve1mon", "-", "VCRmix"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DWelfaremix", "=", 
     RowBox[{"Ve2", "-", "VCRmix"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{"p2", " ", "q2"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"q1", "->", 
          RowBox[{"qNE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{"q2", "->", 
          RowBox[{"qNE", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "/.", "pNE"}],
      "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DWelfarepure", "=", 
     RowBox[{"Ve2", "-", "%"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7657905674292054`*^9, 3.765790596122426*^9}, {
  3.7657906514112663`*^9, 3.7657906989950004`*^9}, {3.765790789610711*^9, 
  3.765790793416552*^9}, {3.76579086855457*^9, 3.765790952790276*^9}, {
  3.76579111850506*^9, 3.7657911992858114`*^9}, {3.7657913149195404`*^9, 
  3.7657913193267527`*^9}, {3.765791420799358*^9, 3.765791435998706*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DWelfaremix", "/.", 
   RowBox[{"\[Gamma]", "\[Rule]", "0.5"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{"%", ">", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", "1.1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.765791321721349*^9, 3.7657913657745256`*^9}, {
  3.7657914159872274`*^9, 3.7657914396559253`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlWXtYzOkXTy5Lv25sQrmlUqHV0kUXTpqQSqZCKYZcEhOlbERLbqO1lWJQ
UStKV4ZoSzvVsOkyXXSfabrO1HQPZSWR/eV59rzf56E/eD7Peed9z3vOeT/n
8tXY4+O0X1ZGRkZx/J+v/6+4mm7rkVAOU9PSFOPXeq/Zt0Mjn8uqJpjj0y+0
Ma8nePRc1lDtmwaC1904J++R0Exwce3iawHpbQQfYcjf4bIkBKt0D6bLenQQ
nK4Y0qbG7yPYKerwwO6EAYJRv4JSLceQoVRA/RCjfohRP8SoH2LUD/GUi3dr
at/0EIz6fHuew9+zfC4N5ZDzEON5iHd/4haGz+wmGPdHnHNU8MzGvBN2RlS4
SY0KyHrEaJ8fYfoX1hCfrEeM9pQOp9DZgkpyH0sHu0VSo1py31uJ/e+M2AKi
3/DnsJesIRHR33HL8psCegu5X/1WL0O2oA3Q3hcmmMZ+PedW9Nc/MXCa1sy8
PBQDazXP3G/1bye4YeNM0YemXoJX8paXP5btgSiVulKp0VM4UzPauTqrn8jz
qs0zAtIrifyOfOy/avxGgnsXeM1JOt1KMN4PcZixLY+p2wWypvq/sQU8cj7K
u9L3PdF2kEJ2l88yY3YR0QfXo/5HbmS8EtAryH64Hu979e7JZ1/tgvvhetTv
9Uf13xWkdcQfuB7vY+OYu4NBayD643r0B8q3fKyShs8UQkIy4ydOfBPxH8rR
XyiX65xSJutRC1/+/frXSvZDOfoT5WjvB2mVXrocMdkP5ehvlHedFhvUvSkB
d5f4KjqjneBv3zP6E+317Xv71r8Y/xjfaE/0B8Yz7ofxjL/HeEb7I0b7YXzj
esRoL4x3XI8Y7YPxj/fF+J/0uXruUmUJKM6TPOg0SgC/KqUpa7Ka4B0zINaY
nQWpF7P1jva2w7hx5srIVJL1B0ckA3RGDTD8BpSkRuN8s/lCfjy3HnTyrPsf
yzbAgiTtyCE1EdkPcVNqYLW2Qx2c/FK4hxbYTNYjjrz5MDs6ugp6lxiq8Zlt
EDq1aLU6vxSi6iedH1KTwAqT3apTNcWwOnflKFvwCMo3LPn4oUkEKWrPLIX0
PBDy1mk6jEmAaz/joi6niqyflfBkW6BCHVnv92mLLp8phNnu72dciGwh+Jzh
rlamrgDKnYY/frUzrkdsosF+2epfA7qpN0uZuq1kPWKB+lWXpNOv4EXwbQcG
TQynbZcasAVUPkB78nrFnpz4MmJP1BftifqiPXA/jH/EaB/fZYezWEMScn/0
F2KMR7QH+g8xvm+0B/oTMb5v1AffE8Y33gfjG++D8Yz3QfuhfxFjfGI8oxzt
if4n/PofxvO/te+FL36xYUOXyXtEjPkK3+/tRQfptMAeEk+I8b0jv+P+3UaG
h17pD5D9ML8h/w5HnaeNxXWReESM/IB8jvtbpTvs/M25j5yP+RD5mq4UZ5xV
IAU5iz/+VpC+JBjzKfI/7o/64/loD8yvmA/w96gf7o/xiHyF+QF/j+ejvzFe
kc/QP8ifyL+IMV6RbxCjPUn8/ifHegV/j/bC9RifyFf8ncMbF4Z2E4z++VaO
/sd4+xajPTE+0Z7IX4iRb/H3iPH3yA+4HvkOsVat8mrR40541DE2yGW9IP5H
jHKML+QTz2uW1xm0EhLfiFGO8YP5DPkA5YgxfyMfkHryv/d/m6k6a6N5IcmX
Vu8/aV6ZWUz4BvH6c3V9avx26rz//Ofb1bjN07OXYHx/iDF+Mf5Vjz7fm27Z
T+SoD/oP4xfth/ujHOMV4xn9/a09v7Uf2gPjF98n8g/qh/yL/kY+xPMxfjE+
kZ8Q4/0QI78gxvvgecgXiPE+eH+037fxhPdHeyFG/+P7RXshxvsj3+H9UT+v
FysCHOqKqX5IMmfw9KkyYq/oE9Z7Jh+SEIz9zoxDsWFSegDMcP9bP7Du+/5H
W3+3gR7nESSGH/uVFllF3k9H3AS6KLKZYOSDicLeYybsB8Qfa8xfWwmVc0n9
l84rXq9uyyP1Y8v7A9lSo3wSfzJyEbvuzuUSfrizo/alQmIBnDApFfm7dxD+
w/fY9v6zO39pKVx8sKSe7ikhfDffiEYf82z7rh+ZvvXZA+5PDWBiraq3NLvp
u/5kdqCJBZvZBDtXtfgnXBR+16/InU+WGiVT9auhVpDE6JiYvMefUgyzWDPa
idzMSzM1XjDO29HB1qJTEshZlnzSZEsqyHv8+zruSQ/Iv7GwyGMlQbLU3aw6
rhmsPulfdmzJgT/dG87PrOyC+WY0FeuP2XAkKEgzok8Kr622bpZR+Rv6lRZ3
fvihAxZfdpNyH5bAaos/6ulaEkhw1yuN16qEwistNHNGB0gu+AhY1ZVgHJO1
KNSyDRa6Rq3hHK2BHflx9mMBEhD5bfWnzakFnp6mz+ScJigM0QjSza8HvzN/
2Jr/Pl7nHbBYwncRwIkOH3fGymZQtGZr8X8XgXyfhvyaDQ1gqzNgys5qhhJn
z9YAez74Vp4YFNGjYMvGKxciHcRA/7QsyVglA7YsUfpxIKEXWDU9NqZsNsho
9yTtfd4NJ0122bxzywDXlkcW/FmV0PSX1fFLTn/CNn0TqG4RgevOHRK2Sx7h
wxPHF0w4GfYUCoMqNEILqP4M42WY3Z6mLpcFaiP/CxEEUflkfSek7W3uBK5r
xkBgWD6cV9XyyY8cr3ceaLwJzM0DZaXc3HmCWgi2+9gtkOEBQ/+SH+35eNz8
r2+p45rxeFV5fFr3jBDC7YMvs2fxSPwxWmp0Hb88h8erF+mzr1D54G3bHEvR
xw5IC+s7yvEoJHxmOZR5in28GDo3ZlqK4ql8ENP4rpau2g4fXo/1x38uI3yt
NSWqQvC2AtqKHY4rZFL1onV9+cGiFWJYpDvVkF9aBVvV1jF/Y7ZDiH3pJvbx
amKvn9YK3AIzq0G4ofuBZXEbqSeb4jePnYprgWLXyKO0OVQ/6XdzV0H85xpI
jJuksH5PO1m/OfyJc/5ZMaR8jjDjPKsj/K9hZzNJfagOzP4JiZr5pJnUo3h+
6g1aF32+AFT3rTZmHxATuThkolrS4lY4Em27k/FOCM83qV5KF1L9Ke5fDyfi
BAYi6Ove10ovbCFy+/K6QF1oBFdWigtDswneCq2qtL/UkX6U9KeDS6MFBs2w
cxrb7fZdEZFnr94y4w87AXQu3lXKtGkFt0GvkceLqP4V+SBj4KSArtgGGp84
MZG7qf41rsWk1OBqGam3/b1XHjAfpurvj1uc8nqz+N/1s7yb61QTuVdJPR5j
dXK1ovQR4b9HN28dOqxL5d9Di2pSjNmP4PQytTetmq9IPGM+8LaICndkZJP+
M8fwVyshPZfkFwPbm5tzWbkkn3zKfjAab/GS5L+WsiubpJmlRJ/db1fR2bOq
iDx4WF3C9Kom/YLTaMpHoy21ZL3nqnv3BRF1ELb2vL9nIdUvoz7Wk9TvCSKo
/tlK69S/aqlCCIY/28r6BYR/sT4zUgy1Dyyn+ulDPWYFrIxGOLa6Z9PKH6l+
GutBndlj79XkqP6ateDhblpKCwwZn4k9YkT112ivPYF97UYJbaB0I+uhwKD2
u/4mgNF1XOFlGwRPd0yXPC0m/Tj6z+3LvWyWFdXv2BeccaPpSUB/9r688Ff9
4GJs5NGdGQv3RcpF9He9QM91ueQtfAqvrFM97VR64PQKbgh71nMIlYu7FGDY
BbpzZm6Q4RWB67vrWgdNmkAuvOCewEAAMxcIooaGhOD9LPVZvLwIDqn8/qJ1
aR3M6F35Qc2tGUZurCpp3VsFBtut6QznNgh38jzIsKuDg+HSv1iH2kDkpOFh
7lkH4S2Xrwl2t8Ht2Q3SaNPxen5w6hu1UTFoFRXqaK6tghu718Rxh8Rw9gk3
sPp1Gdx3Svg5j/UAJI1TVr7P7wC7xu2vLNgXISMwSmGAOwBeg4cfvqN7gpSm
Z08T90FH1Q/tu2jpoPpao81mcTUMn3NXtHbkgistrLFMKIIMX690md15EP9l
cP7RSb3wxSHklHfIX6DskRQi0OqG0wGOEYGHCyDx5PT3cbRO0O7zqRMol4LB
zYk6BwUiOPKbGofrKYQLoVn0bcrjPJJzr9/oaSMIzzJP0jbWALd32RLOhFa4
ydrrf1TmFdQz9i7mLBaDitJ+l202NSDuL1vJXi4Gg9iJ9i+8KsD21gx7xhMJ
MIpcDtvZS0m9Q+qvvdMPqUjPwtsductXXmmHhG2mDtKtpRDjcrMgJU0MI42J
HcyRSuD93HTF+Uor2CaMhimsq4XySy5TR6yroXBlqDstkpoHhL7ctJJ9XAw/
/PPpQYBKDZkP/Dry9PpttzK4MP2gHePHdmj19+R4KpeT+j3p2oP/SWMlMOyy
9KlCYgWpX396N8ef7VIO9PBLd9xz2uBuU9wsmTvVZF7w28QvEmZ3Fagwtgan
pzXDVc4qM05fHenHTir4hCpoU/MCbw8jbU6VGDQOJqdYGlDzgm2/mOeyrKh5
wR/dKV3+aS1kXrCBp18ma1cLjV8CDdnl1Lxg22jFQd0FYrAcdZK5aVNH5gVD
C/UmHDOvBGVtrj3DWQKq+hEt0dtfkfeF9ewSHf4VQbAEpibZHmXUUPOEoCpt
DYefO2C2YetEHus6yae9a5vFytJISK+eLvPiNjVPSJg2+EzOrAecvEUF12c9
BBk/q9NP/an5Afbj19J+zX0Unwo2s3Zddl8/ADHqzlwPWgQkj/yW2sWg5gm3
D0ybsn5bF6jq6j2SseTCyNvGp10san6A/foay8X31W1zYHayt4n5oT4YjnP2
uxv0GJ6qRhqKzlLzhPHcGsP1k4Lr+8U1QzkFMOTzS59aDDU/wH5e1vC9tmPc
3/A89O3yrNAe+HJ13nnHljzoHD6utPQO1V9keFteW5VGzRNwvtCxQXCCPYsP
p5066JL0cb551HWGPasQpsivYxTlUP3HzZnX3zzLFZP6GucNHQ+apEybSnD4
uCGGy5fCifOGx9hZZbC5fXDseSXVnyzU22kvim8l9TfOH+qzNl1RuFgDBfcy
P8cH8cm84MABCy3HL3z4/Mtfpg30eKg4Os94JLQU2JkD501UEkn+eaU897IJ
O57kj4odrO25nVQ/eZJx+6nC/grCz76/mC3inG2HSF9zxfUZEojbvOKDdWAy
+K/jcbsU22FMdn56p1EiODUfL3k8rw+25ZX/IGT+Cvz9nENHPKjvQTjPqA9O
W3OE7UL6vXl1xxcGK4TB5ZdbV5l39pL4qHBT9KJxmiH01gnTd/wcSBN4ujL6
WkA+vMPinSgbbh++Ptqk2gaqK6IDLmX8CRGpj36xu9oGuw3m3DX+5ymk3Fuw
6axNN2h4dV/0Ts4E80ijLjXZ7+cjZzNZXZySJ6A1teJzx7Q+Ug+gvg+D/Xs5
GhkknxUvvF3Nic+HYyLTxi7PGvAdWJ4uE5wHpUf+GnzcWwepDuHlCut4JH8O
ZZrzdJfzwFvUkxRwoR6m1NYqX3LiQcXkylzL3Q2w8MVhTcXEfHCO+yj+sG+8
/r0+JU/X5zn4xhaP7lb5fj5yoHRrucJ+HiTavQsf1aG+h+D7c/7fuZd8Zj6M
RdUEHDnbAanDs03V5YrBa+6en9k6389PbFtNFjq2FMLllkGHs5bU9xN8fxu0
DCzUbQthz61PB4rMqPmKdN60qdIHHWCx+aEx364SaLk/O58VdozX8anWnAmV
YDT5xNwBuhSOndR5MeRWAb6fJhWl2FHzF8VzxsIybtN385fgkaV9aks6gCWK
TRxrKSD13rJbrP7oo+N1vSZjO61cAkavzAMd5hVBXmVoJku2A+J5lUkLDYtB
rvWin0JVOxzQVrw9ZsOH/v0Vy9l+1LymTtrtFDKUAqFik5KyO+3we8apjXlT
7oBMyrpsuWW9oGx3aYGS9A6snXH7Uddran4jHyWr955JfR/D+YWVZ3zLe7db
cM76zZEjH7sJHzXtKL/e2kV9L8N56mBWf0qQwjXYfH/Pq1qXfvhJ8yXksRJh
fiA/izlCfa/E+ckmveSq64L7ZH6Surhg8jrTO2Chu9a50/f7+VHv9h2m70Q5
EKOk/leKHDU/WmDiG/T0VC8kHtTQ1FueDX88Lvh0fk4v4Vu8j+uBsmR1fjZ5
nxdLfu/gBGZCBWvSXdlIav50WfPqpAvzqPmTbMqAIy22G4IVtEoUXr6AC6ZR
hxWMqO+h+N4S9ouPcyb8Terx0aV2IWyX52DxT8d2z4fU/Cr6hUueHLcTdM5Z
KXp7lUDEeTuD93bU91N8D92+1pcCw0pIfR5lm+PB7ysCxcdxYF74/fxr7dqw
+KHKSvDzGZi+UWe8/lSb3afLDwDmq0f/nOoUg+I0WY0GOgd26CfyUrqo76PI
/2ZFWlMTuTHwa8mhIPbxCnhsfqpCmpkBa1y7ViQpVsGi97YjgWHP4P6CsS3m
65tgqkk1V5rJBV/FmT2u0naQr6paLE2sArPU4tjYrdT3SMxPF+zmb+eXlkGQ
a3Ga5WcxpM/rPErrGa+jBR4Sf6XxulPHRV2qLQSli8mTgzoaYJmz+UUF0wZI
sksJMzBrgpBNztVM10bIaI7p1J9XD3kHs5rprPF3tilvoXSjEGjuvDJmcAsk
RJeeTthaDas8FzsyalphaN6/dM154/VSqUsRM0IMDf2D7rRBCWTsimhjjtd9
Ox2jhPQpYhiVqxExQ+rBV4/X/Ea/BVQEmnVM3rgeTZ+sVtJEUL2t1CZwoAlU
dSKeWRY3wtva86WsqwI4NNe6XX+CEG5MVpgm0yYC3vQReXWzWrAwvrE+8Os+
P6QbT/WvBN8nSlaBuW1QOZLP63UpgQK72jajfRL4P9xB5MQ=
   "], {{
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNWHm01lMUvedrkupVpLmU5jR7pTR6mqiUSKbShKSUhIoUqSgpESVCxSsJ
mSMKzZNXoYFkUTQKy7CWeW97t5Y/9jr3d98d99nn3PO9qgOG97w5k1J6KFLK
BzsH4HdR4EmgPVAdOA9oBlQGVgJPAbWAXKAUUAxYBywETgfqAGcAWcBQ4Fwg
GxgCdAYa+W/cMz9wE9AUaAIUd18B718NKASUcF9B95Vwu4DbJ+cV99oXA9cB
ZwJdgYE+fxvgeqAVcD4wGGgL9ABuAKoAw4Db3T/Q9+fcQUA3oAXQzmtwfGv3
ca+55rGI75dlfjK2Rf/3zb/PN581gKeBjkBd81nb46/0feiDAUAXt/ub20pA
b9+TPF8BNPd5+pnbisAsoB5QDugLnG3uWvr8vMtYc8S7jTNH5OEyoJN9W8Jn
JNc7gR3AbPuWPi4PXA5cZJ9uBbYAU4GJwL1ATe9f1+vdD0zx+XLNGzU0HXgQ
aGBu6njfheaR+rva/uMdPga2ATOA7UCe790LuDBJex96zcbAKp+nvu/AfSqY
k0Fes7l5J+fdgavM1QivWdEcdPbdR/rulXzmy3xu6vnSJP1+5DNxDnXXzmtS
j5eY8272Jf3Yx744K0m/3e0jary1x1xj31X1ur183zeBnkBOkhYut1+Gu59r
dkIOKJbR3tQiNXkasAT9S0M6zQ+7POS3l2FfCmn2b9jWoTuTo4t9nlY+J+81
zPeqak57uH9Ukm4re24Xt1v4/lyHGqe+s+2LZu5/23yS17rmurjHDzX/o5Py
SxP7ZKTbr3vvyu671f1NPZ4+vSNJz43s537u5zr9vf4l5r2quexjPjskxRi1
zbi5NknPXb1vtjXRyf3su8391NUt3ncecAEAev/TXUvztsH3Zm58L0ljvH81
7819mbeuNF/UyNXmtad9n+N7jfBeN9tPvMsYc5jtO7Kfmlzu8eThNXNHHl5N
0tw5wFvAG17/g6S4bpgU84y1Mkmx+UhSDFLX48zbBGA8cApwt/u57xbPLQm8
m5RHuN42r1/af5/oMbT3uT0ZmAScCmz2N9+vep7LfHiP9+a+zFMrkuJgo/v5
Dr6flKc4b3VSbmpg+xBQNinXTUvKJ/wb80wF93FdxtQzSfmptDmY5TMsdbus
93nAY1Z4Lu8y03PJ4cf+JrfU6cNJ+WeK55f2/tO9JnX9qH33ArA4SXvM4Y/Z
d58mvWHUG/3/uP27JuldK+oxn/j7paS8Wd7z5nnupqQcUth2vtvP+v6lfY9n
7EfaBW4zry/0Xk943SI+42zzuchjmP+f93cp3ynX93rRnPLuWe4v5jFLPD7X
36XM/VL7l3aZ26yFmGvae5/nkuqcl33/8j4X2w1sX3GbccD8m+PzLvLcxSAp
N7R2nv1U1lyxxqJOqI3tPlee24291w7vS/1TB9TATLdneL08jz85n+tT+4wB
xgNjlu9QZ/tyjXmeZP+d9B3btWw3uz3Fezf0Xh/aL4xBxmp9261ur/X6tb3G
Ju/DfF3H/mEuY/5iXce4Y44b7/tQF9Q846CG+WHu7+A5M3we6mqa9+VY1jN3
JuW0Nv5m+x9w3y6Uj6f6rIyvd5LiraTvyPxVzufm+alJap8xQJ1Tkzvtk7nu
J5dN8cdMaN5XsF+E/Pod7DehuuMn2O9D3PHt7RzKtXf5nHw/j6PvcOgcp2JM
29AbWQTtnNAbWRTtDqG3NgvtrqEcT1+sMm9/oK9lKN8vC73rjMkJ5nq8+Wab
uY5aXef7Uh/U2znmYK110t5zqv9vfiHPW2/OfsE+jUN+mmPuMl5vp9dkDcE3
rKPncT5j5HfMaxZ6IxfAPhvKB4EFLgjVGV1Cd+Z9P0O7SciHm2HLhN6oT2F3
h/y6Cfa50L7rYU8PvWlryX0oXjbCbgjFx66Qo6m5r2HPDb0D9OFB+3EvzxKK
iz1cO/RGTYX9PBRz+2D7hHRLXWRbG1tgK4XqkQOw/UL+4tgvrXNq50vr5xBs
89D7w3O96LMdNi/kpD76CmRcL4YIZ91UAe2CGdU47UO6oWbOD+mJWqqCdqGM
aqia1HBGNUddtPNnFENHgXwZ1XCfoH9hSAM7YJ8P5brtsHmhWuAa2D1J7+82
aj4pL24NfbPNc5UPnW0O7LpQ/msT0j0135+x43hsgPaY0O+0AqHalHUp73oo
6b5Z9E8oj38OXBXS7bSQb+iXuaH9uNdTzMehmJ4JOyOUSwrDvh3K+0Xo29D7
MRv20VDeLQm7JpT3C9GfoffsRtghwI1JvJ4Z4vZ+2AdCNUpl2NGh+i8f7LWh
epEcdwzxXAp2VKgu3A/0DcUIfXIsyS/1yEHot8Qp6K8WqgFHcl6o5qMujidp
g1r7OklvDUP+y/HaXzgG6f8jSRoYwTVCdeITsPNC9cRjsI+H6o9Z5DJcD9E/
odp6PuzToXpieuh/DqxvCmP9WqH69GfYz5Lq3dqhv7H/SMj39Pt3SbmbeZsx
t99x9z5ssdCb3x3229C7MwH23lAdeQ/s4FCdORG2W6jGfAV2Ueg3xGuMkVCd
Qi57m88LOTb0ljAH9wxpkv7/wBqoHuKdnI9Fu0XoNwR19Ka1tIJ6DtUsd8G2
CtXab4TOzTMzD/0YykV30oeh3zErGbOh2m087EWht2I1NRJ6iyfDTgrVs9T7
riTN8+/HPObXUNwyZsnHiSROdifla+ZqvjlHQ+/OvqRczDx8H+xvoXejUchn
9BffsR9Cb9lexzzj/SPYEqFaibH1l+Prz1AuZh7+Nuk3JH9XnYAdEKolDiS9
W3yz2Hcwqf9fObvmxg==
         "]], PolygonBox[CompressedData["
1:eJwtlnm0V1MUx88mU5lSGjRQmqR5ECElpDK+JkR46kXpPUmTQslQKyyJWooS
lajQJM0qPBYWltUkjZo0SNGc4fNd3/vHZ53Pue/97r1nn733uZVyC3LyT0kp
TYIicFGkdIyxIzSG4/Ad1+YyVoRDsJL5x/pfaIo/Cj3xAVAC7wOP4bPgKv0N
euD94VL8JOPd+i2UZt4XHsfnQHX8H8bOcC28x3wavIVXgb/wI4wd9B5QgXl/
eCL5HdvgT8GT+GAoj18CTfAHoRJeJfzsh6AUXi681gfgYvwEY6fk31zPvB3c
hd8KR+Hb8LtWgMmKBUzEa8KNeHu4B78drsRHwcv453Az3gHuxe/UPfEhemf8
aZiK/wTz9Ww4DIXhWJaHM/GtsBSvBX/DUuYzGMsoZuE1a61toCw+GAbijaAl
XhW64bcpzvgLMFT3ht3QlXlXxquheThmitUtsEtxY56rtUF9/D/GLlo77IVu
XMtjbAY9ws/QvR+BC/FB4VxpoGeE90Cxbw034ZdBd/wO2Ad5zB9mbAHdlVuQ
r72EwNfBIrwaXKC9D+daPZiCfwOz8YZag/YS7sNz4Ae8bdg/zdbeIrzXisH9
+Ba9tzw5N3ZmsVCOKJd/z2KpnM4J14xqpW1yLu/J1tI5i80N4dzIy2LZLPy/
udlaW4VzQ2v+Gf+TsR18pmcwHxbOlevgAKxmvpCxOHTEnwnn/jWwBT/I2B6W
qH5gTrjeS8F5+K5wbtaBK/BTw2ttpXvgvVTjyTmk3K0Z3lvl8Pn4CvgouScc
wQ+Ha3UIDAjnoHKvb3KtVgy7arZfOCeUC32Se0GZsKsnbIRXmY/U3kI+Xgf6
4b10j/Cea697w+hwTagWXkmuvdfCrhpcrrVCXd0XXsSHw3P4MFgHI1UTjEVh
Pf4LVE++NjbcA9X7RsGI8B4o9rrHS6p1GIEP1zuEY65Y69pWeCP87NLKOXwe
1E5e48DwHmtvtcZnVZtQOWU9IlwDyv1B8A7+L+N4eBO2w9tcG8NYDiaGe5Z6
1ViYzfwMeFe/hen4h3AWPgFm4DPDXlX5i58M147uOT7ck9SLXk/u/ePCrjPg
i3BOKZc+gbnhGlVt6pnLwj1MvWtm8tkwJhxLnRHKpeLh3yqn1Mtbh9eqnr4E
Pzf82+nwm9bNfDRjWZivtcAUfLJqBt/EWCL52iLmmxlLwgewkHmxsE+D/co7
5gXJMT+Kr2csBl/CMeaNoQZeCL9m1wqzZ6i31gifXeqxOkt3JPdinanqJYsV
8+Se0gBfBQuSa1hn27bkXqgzTrW7IbkWVcPPK1fDtTU0eS0LmE/N1qResTa5
F6tnnB7ec+21an6WYhs+qy5XjodjpljpHsqlesxbZjl1djhGio3eWWdh5XDv
15nYMFxDqh314EbhmClWitE54T3TXumMmhTOWeXquOSz47Twu+gMaRKuIdWO
zrg1ypvw/2oPOoV7nHpbc/gjuYerd8+D98M9U71S3ww/4t+H/6YzdS2+Jpzb
ivkefHc4d5Yrfvj+cO2sgAP4wbDXh6/D3yD69tCZshffF/6teorOrlrhd9MZ
th3fFq71ZcrpcE9WL9Y3Q0G4p6mX6Uz7SrELP0s5rW+JauGzWN8UO/Cd4Xup
Z+gsqx0+G3Wm6durZLgX6husN143/C2hnN6k/IfFyT1tI74h3Ft1Tb1+QrhX
qOf/DzckPGs=
         "]]}]}, {}, {}, {}, {}}, 
    {GrayLevel[0], Opacity[0.4], 
     LineBox[{212, 1, 67, 214, 500, 304, 254, 416, 417, 418, 215, 346, 219, 
      504, 308, 258, 309, 505, 220, 350, 223, 440, 265, 439, 266, 441, 224, 
      443, 267, 442, 268, 444, 225, 351, 259, 310, 506, 221, 242, 481, 430, 
      431, 420, 432, 433, 260, 261, 255, 305, 501, 216, 240, 467, 423, 424, 
      419, 468, 502, 503, 388, 389, 390, 347, 362, 361, 105, 8, 127, 7, 6, 5, 
      4, 3, 2, 212}], LineBox[CompressedData["
1:eJwt00VsFVEUBuBXpLi7u1sCC9zd3RJIcEiQ4u6E4O6+ggTbYDvcXRJcU7QU
K8XbUr6bsPjy3zPnvMzMnftKDYrpNiYqEomkspBM7HNhP3s5yIEwwH0ecJea
3CNBa4lczCJq8ZAojpCBQ0RzmETzK+UKllObWDJykuwcJxsn+GZ+nVzLGurw
jhycIxdnyMlZvpvfJDcykrpMJzcTycsE8nCRH+a3ya2Moh4zyMdkCjKJAlzl
l/ldciejacBMCjGV4kyhGNf4Y76bbEzmNJFIIzk4vIPrEXVp6+40I4u6qRzC
+9BWl7fuQUuyqlvIoXzQT6eubN2TNmHP1K3lMD7qp1dXs+5Dh7C36vbyJp/0
b8jr3OI2e7hDDcYxns/mRsh5zGcuHVlAX6ZRnXCIYhjLcGbTllm0Yw696E0V
qlKJVqT1XPHuk0IFdSZ1RVmO5uEsqeP0kikTzoq6rCxFE1J5q5dEiXDm9EvK
ojTkL2/0flPYOlq/iMxPfZJ4pfeTROtLXGY3V0gmhe3s4LW5QWFv+BL2kq8k
0JXzXGAzW3hpfmD4psQTF75P+IZ04RSnWc8GYs0PCM8U7hV+H94vvAOdOcox
VrGaZ+b7y6dhzRNe8JxOPOIxS1nGQ/P9wnWZ+f///h8ZP4Wi
      "]]}}],
  AspectRatio->1,
  Frame->True,
  Method->{"TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{0, 1.1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.765791366223325*^9, {3.76579141632233*^9, 3.765791440229392*^9}, 
   3.765817620423258*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DWelfarepure", "/.", 
   RowBox[{"\[Gamma]", "\[Rule]", "0.5"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{"%", ">", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", "1.1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7657913794130487`*^9, 3.7657913845941896`*^9}, 
   3.765791445933135*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxllntYzGkbx2dbMnpVRLGdUGTeXmFpcijd2SiKTAqtpTchlVRC9EqozLZR
xJSKjWmTlrbpwIamg0NhpJqaQ4fpqKnpPA3bacPb/nE/c12Zf+b6XL+Z3+/7
uZ/nue/fQs+AHYdUKBTK9G8olH++x8LzFYKBOqA+eKDB3uBnvSkhfMb+tEbC
rwUm14MzWwj7u8+4w2W2EZ4jG8xU2d9O+Okx8ZPNlh2EPf7mlsVqywirXkyt
EQx0Ec7UiGrR5fUQ3pF4tM8jrY/wyEKXsfSwAcKVO29FBGfKCd/W1YxOShok
jD4v3y5yjlLcB/RBRh9k9EFGH2T0QUYfZPRBRh9k9EFGH2T0QUYfZPRxejE3
4GfFU+KDjD7I6IOMPsjog4w+yOiDjD7I6IOMPsjog4w+yOiz72rFHin9JfFB
Rh9k9EFGH2T0QUYfZPRBRh9k9EFGH2T0QUafyflnw6zPTAWP5EfG/MiYHxnz
I2N+ZMyPjPmRMT8y5kfG/MiYHxnzS4d+Z7DEVSQ/MuZHxvzImB8Z8yNjfmTM
j4z5kTH/5Dw2To5GUrqA5EHGPMiYBxnzIGMeZNdRvjRWuxY4EmvtaEUy4cQ5
wrdS+kO4M+PXL7q8BnjcGbDUgvWKsH9CbqWYUQFeHzwpUrqc8OrHQlWq8SDh
7vne390La4Zrqf97wmVWQ90W7fphSTfhczVjHevzewlvMD6X3nz8PfSP6l1S
lwqhM/Ng3mInKeEYC4eSI7ROwpgX+x/y5P4xOf/k/THZZ/J6Tc6P9cP1w+u4
PpgP1wcZ1wc5Oe3LM7NjcpgIr0+hVMEPmU77fnHpAZ+Rtj6Gew28szcdHZbU
g9d1m3h32zckv8pas19Y4hLih7ykaGNvjkodZLd/GuQynxP+XfeJTS2jiNyv
pLvVi8Muh2+nrd1U3Kl8vs6xZwcybXrJ8xfva/kQEddP6oOM9eGOpQcqdPuB
u1XrIo3Dh9ji705pUwcI30z659NK6oOM9Vu52kOHatwKc9PydoWoC2HKeLX+
f2a2EV5VsvxdjkoX+T8y/p+3b2jLgssy8vtbRj4M25Auwug7eb3RF9cXfbG+
uP+xvshYzw9Hgn+1YOWT/Y31wX6CHMTXVLXOl5Dn4fnA/YiM+Y74BL1muA+S
9cH7Y73n/fSXVmRcE6kv9gesj3tQn6aU3kJ88LzgdWSs31BihO2nlE5SL/Rb
X7hqjCXOJvkxD9YH5xnWF/cXXsd+goznEX+P90c/rAcy1gN98fkjTjuS4kzE
5LxfnmfwiLuyluTJchwtYesr52t9VZJO5AUJqR/zxZWksOPK843zgNsqeKi+
Sbl+n+fNkzMMqyFrKDOHvVTZf9elbZrOu9lDGPt1te8DIbNauR5aj01i1AuV
/VeyrTCPWyYk/bdEpW2qnpoQ9px9kGJzSw5+ATt57FtVIOgofHe8uAei++P5
TCMBnJeo+l+wEUOYdpn9ck4MeO23+jLsJ4YYUfbH/9qmQmD5x1IVvhjcjlkF
pFrlQbxF6N3gdjFknbH82U/2EDRaeGqN4bXQMr1RJp5ZAhlz0l3qLzRAkWnq
fAtBBbQb7EpVSVD2a9Fgiu69iibYrOXxmGtSAyJd4yX5Uf2wsj3hCTe4Ghbp
NRmyfuuHsMKwxdJD1dDK/Gi5a00rRB4wHKGbC2FznHDbp7JW0Jo+o5J5TQj3
hvaGrXB4D/oZUXfFK0TgXJs87jFDCtF1ZiXsvSJ4q3dLw0ezE9TG/13B1BLB
+IhVgP87GbjrxQ3TIyf6QYv8UtLOLpBNPdXNcBJCDt2xqPm6mOwn7Pduh8sz
9HiPyXn1v2OU4P7iNVj1qvfk5H7d/5MPnrOTPqok/X4gRoPBWs6Hz6FnvufM
aiLnBfdjQvp2qt79GtL/TeLVHFg3lP3fwuub1iPUGqgPOpPIDuz/ah6cygtN
VCiEoJni6Us79PV8aKaW3lDsEZH5cNqsUsawFkE5i23AeaScd+20HwqaHetg
ptjOkeJRCjssly60u1YH49e1LfW6y8Db5XaE4+Z6oB4e9uU488D3jWpu2BcJ
sMJ194Uc5cPBstgdtPcDkHFYZ5ARy4en0ioOU0MOHXCqgOvFh2vDjYlrzrbA
iZaly3mXBJBVbnb3wLZuGGffnU1pEcC1UbXSgbiJ+e16sodRJABDl8uL76XU
kvkTqngYaPumFvR/uklzNnwOOvvrjra11ILp3QFzi5fPSb+zal7zrV9GJZn/
0U2HjKXxNWT+BxewAmzXisj8N1+zN8D2RxHpXxyZwRQ9NRGERmaNJ7iJSb/x
m9XXWm4lhmAtV/U/2VFQ5lZYEHZODOZJgmmmnHRYNXt79lijmPTzKPti88tp
Yph2XeF2lJYFuVmMd4vX1YIDLbCTdaoAtpw8S7XerXzf2ehpkGfQUA/eW2bq
OKeUA1VoLFKb6Gd+BQ5X3H8rhzTd9yJ6tRysoxw/MJwm3u+2DM26LJdDucF0
fcqCKrDT3nBRvHEQdieGNHDtKoF/WrMktrEHTFfk8plaAmCW/pGicrIXtqpO
/TGkUDl/l60tjqAFVIPngeZmicUAJAcXf6JPUc7T+2Y6C6QnhWC/zKQhR7cV
Fox5PmfrC+H87KorwVfbYCTKO487JIQH3IIDr1LbyfmbsuKqhO7dASfCh3O5
FiIyX8e7g8JoARP71dG5V2Iqg/B1OV2MIiFYbTU/EnOlC9Y9U59NsRBC9svP
lZ3P68A60NFVKn0FakOn1W//S/m+svKPF105R7+ev+707/3cI5Tzd8WcJS/Z
+gI43bvedzutD/zZH/sYrjXAe73At3JNHwQ5qPYzHGpAO6c/KDPjPdACg6LV
N4kgrmlDuMKoHSQJ0YbSnSKgno3bWnxJCsxlu6LVJ/iY4PYFl6kd8PnEX6E0
exEwDjtp+Fh2QhbnvD1rmgh05py/EbesFuYW/y1j3XgKbh/iF/msloBr8wWK
xYkqSLHeQ6Xay+Hh/KolUm0+nPa/KKQnDoJ37vpGrl0FTLENzw5raITbnltf
sV2rYZd8+30DcTOs8yxyC5HWQLLRsz/VqD0QSN85So8UQDC1bsmqaTKI2v0i
UcETQuAJT6v8823gYFc6iyIXwv8B4yCUuQ==
   "], {{
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlnlQ12UQxpcs0Q7RyDwClSRD8UYJE/MEBDEIwywrASvNSCu1QysVgjBT
DCRNmmq6ppnKjqnpvu/7nE6776bpmI4/uveZ/XwH/3jm/b7X7rP77rO/X1bd
iqrle5lZTopZNx+Pcfin9XL0dmhP630Y93ZcyXqa40DW9nH0c/R07Ovo60h1
9HCks9/dcTBrOtefs/s5sjh3kKPN0eiocjTgJ8ORybd4DWIUrwHY2J/73fE9
mH1xHMKYjo1MbB7KHfHNhp/iOIxRHIcxys/hjAMd9dgY7hixB8dR+JbPkXDV
fDRrWdwX3wMcY1gTl6uwle8Y5xgKr/GM4pXHKF4TGMVrHlwmcq8v8RyBzVzH
WPxov4A1cZzEKO5HMorvFO6Iy1GM4jKVUVxa4DHNcZ5jpqPcUUhsut/uaHYc
62givhmOuZyfxZgP3yL4iVcJnCY7ZjPKdjH72itlTXxrHdVwnIU92VpJDGWO
zY7j4JDLu+mdjuaO/KeSQ9XHYscC/J/qOB6fSxwnEMdSx0JsSBOqN9XfWmKo
tNCOtCWNSUOqYdVjK/FUWJfeehPraPLYg/cUJ+mnH3NpqD9z6WAA8+5wT/SX
DifV3UDOSWfS2CGODseZfCcay7Qu/QzGnuonCx5DmaezNgRO2exJE6q94dal
n2HWpbFsfEpLOfjL5U5S33nYVR5G4WcMc/key1z+xjEX95HYSjSc+BvPuURL
mp9tUTfzHWc4FlnoSTxUP/nYKmCeaKbAujQzCU6TmYtTIfNEM4mGNKpWW1jP
I7+jsC2tSCfTsaFam43vRCvyXcRcvouZy3cJ80Qzmqu3TOQtVmJzCrHJnrQg
3ZTBTxqRnuc4NjiWWehA/lTjqvlWvuVXdV6BX2mlEr/ncE+aqSGvCY95vPtZ
7Kk/nGzxO9SL3FTDR/6kNfWWjbyV9i93bLLQ82x8l8D3FOal+Nf+VseJ8BYW
Yvt0Rx3++vAeg8jNXPyK7yI4r7OoFfFuZ1Rc67GV1FPtHnHUkd8FcKuE12K4
rbboL6Xk4CSLXqG4T4ODfNeTP8WxlDhq8VuNvWX4qYGnuEvj27jfRq6V5+UW
OswhH0uIWVpSjRSyv8KiP6yyqCHFcr5FnZTDcQ3fa9grZ1/fqqW7HN+Sm5ns
zcDmamI/l3kZflaxfqFFnSlvOxzbLfrXJRa9TNxUbxvIQQnni/F/ARy2cS+D
e7qv/xuqoU3w0ajams53E+uXWuhT652Onex1sq4auMyiRqcxtvDdzH3VuXrO
et6thXNTiauRd9liocM55GkzHDbiYz5rW+Cu2pYmEx3quwh+m+Asral2a8jn
RZy/mLlyq7poIyfi3E5c+s3Sb1iKddW9Yqknpxnko5PzDazrXVQ/HZzdjp00
zqs35bO+g9gb+W7g7HbWG/hO495OfDXxLTsj2JNGJpDfPLh0wOcRxy5i3O14
wEJPHzrut9DBB477LPSn3F7BmVbm0t1a8lbB/la+m8mDeD3luJs3usPxuYWW
Uj2RT1v0go8ct1ro/nHHneT2U8ft8GzkXZSHbn73CYue8rvjMYvepF4pzUi3
zzl6poQu5f9JOLzo+M+id+zCRxVnn7c4fyP8xE0PvpvYX3D8Y9EjxP1t+L/p
uMGiVq+DXx28XoGb+L4B588cD1vU2m3Er9j/dLxv0Rf/5g2U/395G73L646b
LPrD9Y7XLGr7GcdfFj30Xcc7Fr1N+9dy5lHyJT7PckfnbyYG8f+J3CkPPxOz
4v2F3ClvDzp+tdDPvY4fLfrLy45rLHrpq44/LPrvD457LHqb+t97Fvr93vGd
Rd/62HG1Rd9Xbj4hP785HrLQ6Eu8h95CNfKFRZ285bjFQr/fOL626DFfOb60
0P3/UVo2gg==
         "]], PolygonBox[CompressedData["
1:eJwt0mkr5WEYx/H7yMh78GieeQFeAE95YElkLxnLaM5BhzgdWyklKS+AsTOW
JDuRqElZmsk6T0b2GDvZGd+7/+/Bp/ss9/9/X/f1uz5neuLcAcaYMARiExv4
Bjf2cYgCxKMHd6hADMZwjlL48IZXJCMHN5hCOfyYxyeXMfWsiXjAKvJRiSf0
4iuq8YgfyEMV/uMdKcjV3g5k6Zkd9CMW6VjHmmq1e6ZVk193aEcQ9TSwRqET
ZyhBJO4xiwzVOIyf+IJi9WoQHvXsn/bY/7zYQxNCtCeAs+bUy1q4+D7DGoca
9XIUZerpJK5111S02px4po41HBO4Uq9tTy7QpbvYd4zjEtnKZFGZ+fTbC56R
pDvZdw+xJhjnDJtVG2uEcTKzvVpQdrZnB8rQZmdnJJj/l1RrI37jl3qZqSxb
9NlmOqKeedXzPzhFkWr6rp7VqoZtHKNQNd6iG9HGmbFmbBlndkNxZJwZqtIz
J8aZsWqdMYBd48yKzaAPf5FmnBlqUkY1ynAFy3p3hs62d25UDR8HGnZ+
         "]]}]}, {}, {}, {}, {}}, 
    {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwt0UVSXkEUBtAfCc4GmDFiAyyANTBnwgJgDewDgrs7IURwd3eHBE/QGOF0
weDU1111b79+t9Nz87PzoiKRSAHRhHUOhexQzzYN7NLHPo3s0cSn0KexSB7Q
zDIrrPKeKab5wj2feWCGR4445pAWvob7OLNYzlLGO/sB2cYgcfblcoEqrujk
ki7GSFQzKq/pZoO//GOcG3rY5Jn/TPCDD2xFXocyKRJktbyll5985I4aFlli
iHi1FbKOX3znjHV+84dhRmjnnA4uqGSOefqJcVaJrOWJE05Z4xutxKoplVlk
kkEaqaSQTFKYR/iPcL8wvzDT0Bu+8fb+L1pkVCE=
      "]]}}],
  AspectRatio->1,
  Frame->True,
  Method->{"TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{0, 1.1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.765791380392456*^9, 3.7657913849642024`*^9}, {
   3.7657914427626147`*^9, 3.7657914463959064`*^9}, 3.76581762047509*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"And", " ", "then", " ", "we", " ", "define", " ", "the", " ", 
    RowBox[{"boundaries", ".", "\[IndentingNewLine]", "The"}], " ", "first", 
    " ", "is", " ", "not", " ", "relevant", " ", "as", " ", "when", " ", 
    "the", " ", "price", " ", "is", " ", "the", " ", "monopoly", " ", "one", 
    " ", "then", " ", "exclusivity", " ", "is", " ", "always", " ", "welfare",
     " ", 
    RowBox[{"decreasing", "."}]}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tmpDWelfaremix", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"DWelfaremix", "\[Equal]", "0"}], ",", "c"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmpDWelfarepure", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"DWelfarepure", "\[Equal]", "0"}], ",", "c"}], "]"}]}], 
    ";"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Now", " ", "we", " ", "derive", " ", "Figure", " ", "3"}], ":", 
     " ", 
     RowBox[{
     "the", " ", "welfare", " ", "effect", " ", "of", " ", "exclusivity", " ",
       "by", " ", "considering", " ", "also", " ", "the", " ", "second", " ", 
      "source", " ", "of", " ", "asymmetry"}]}], ",", " ", 
    RowBox[{
     RowBox[{"i", ".", "e", ".", " ", "that"}], " ", "on", " ", 
     RowBox[{"c", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tmpc", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"kswitch", "\[Equal]", "k"}], ",", "c"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cpe1constr", "=", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"k", "==", "kpe1constr"}], ",", "c"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cpe1constr", ",", 
      RowBox[{"tmpc", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpc", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpDWelfaremix", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpDWelfaremix", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpDWelfarepure", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpDWelfarepure", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"K", ",", "c"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7657895508861136`*^9, 3.7657895842556553`*^9}, {
   3.7657896902760963`*^9, 3.7657898234000463`*^9}, {3.7657898622122393`*^9, 
   3.7657900656826196`*^9}, {3.7657900985427003`*^9, 
   3.7657901337216387`*^9}, {3.7657902486033525`*^9, 3.765790267447951*^9}, {
   3.765791209824624*^9, 3.765791290933692*^9}, 3.76579146173587*^9, {
   3.765791833871786*^9, 3.7657918340293636`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    450., {146., 154.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$18274$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$18274$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{(Rational[1, 8]/$CellContext`k) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2), (
          Rational[
           1, 2] $CellContext`\[Gamma]$$^(-2)) ((-4) $CellContext`\[Gamma]$$ + 
          2 $CellContext`\[Gamma]$$^2 + 
          2 $CellContext`\[Gamma]$$^3 - ($CellContext`\[Gamma]$$^2 
            Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ((
             2 $CellContext`k) $CellContext`\[Gamma]$$^3) 
           Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - $CellContext`\[Gamma]$$^4 
           Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) 
            Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ((
              2 $CellContext`k) $CellContext`\[Gamma]$$^5) 
            Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^6) Abs[-4 + $CellContext`\[Gamma]$$^2]^2)^
          Rational[1, 2]), (
          Rational[
           1, 2] $CellContext`\[Gamma]$$^(-2)) ((-4) $CellContext`\[Gamma]$$ + 
          2 $CellContext`\[Gamma]$$^2 + 
          2 $CellContext`\[Gamma]$$^3 + ($CellContext`\[Gamma]$$^2 
             Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ((
              2 $CellContext`k) $CellContext`\[Gamma]$$^3) 
            Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - $CellContext`\[Gamma]$$^4 
            Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) 
             Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ((
               2 $CellContext`k) $CellContext`\[Gamma]$$^5) 
             Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^6) Abs[-4 + $CellContext`\[Gamma]$$^2]^2)^
           Rational[1, 2]), (
          Rational[
           1, 2]/(((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
            16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (
          16 $CellContext`\[Gamma]$$ + (
            16 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
          14 $CellContext`\[Gamma]$$^3 - (
           32 $CellContext`k) $CellContext`\[Gamma]$$^3 - (
           36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
            32 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
            18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 + (
            16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
           16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 - ((
            32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
            1 - $CellContext`\[Gamma]$$^2)^
           Rational[
            1, 2] + ((32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
             1 - $CellContext`\[Gamma]$$^2)^
            Rational[1, 2] + ((40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
             1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
            40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
            1 - $CellContext`\[Gamma]$$^2)^
           Rational[1, 2] - ((8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
            1 - $CellContext`\[Gamma]$$^2)^
           Rational[
            1, 2] + ((8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
             1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
           16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k $CellContext`\
\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
           Rational[1, 2] + (
            8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
            Rational[1, 2] + ((
             8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
            Rational[
             1, 2] - (((-16) $CellContext`\[Gamma]$$ - (
              16 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
             14 $CellContext`\[Gamma]$$^3 + (
               32 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
               36 $CellContext`k) $CellContext`\[Gamma]$$^4 - (
              32 $CellContext`k) $CellContext`\[Gamma]$$^5 - (
              18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
              16 $CellContext`k) $CellContext`\[Gamma]$$^6 + (
               16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + ((
                32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] - ((
               40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2] + ((40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + ((
                8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] + (
               16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] - (
              8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - ((
               8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2])^2 - (
            4 (((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
               16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (-32 + 
            16 $CellContext`\[Gamma]$$ + (
              48 $CellContext`k) $CellContext`\[Gamma]$$ + 
            44 $CellContext`\[Gamma]$$^2 + (
              16 $CellContext`k) $CellContext`\[Gamma]$$^2 - (
             48 $CellContext`k^2) $CellContext`\[Gamma]$$^2 - 
            14 $CellContext`\[Gamma]$$^3 - (
             94 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
              16 $CellContext`k^3) $CellContext`\[Gamma]$$^3 - 
            14 $CellContext`\[Gamma]$$^4 - (
             36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
              88 $CellContext`k^2) $CellContext`\[Gamma]$$^4 + (
              56 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
              18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
             38 $CellContext`k^3) $CellContext`\[Gamma]$$^5 + (
              16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
             54 $CellContext`k^2) $CellContext`\[Gamma]$$^6 - (
             6 $CellContext`k) $CellContext`\[Gamma]$$^7 - (
             16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + (
              28 $CellContext`k^3) $CellContext`\[Gamma]$$^7 + (
              12 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
             6 $CellContext`k^3) $CellContext`\[Gamma]$$^9 + 
            32 (1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
              64 $CellContext`k) $CellContext`\[Gamma]$$) (
              1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
             36 $CellContext`\[Gamma]$$^2) (1 - $CellContext`\[Gamma]$$^2)^
             Rational[1, 2] - ((
              32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
              1 - $CellContext`\[Gamma]$$^2)^
             Rational[
              1, 2] + ((64 $CellContext`k^2) $CellContext`\[Gamma]$$^2) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] + ((
               68 $CellContext`k) $CellContext`\[Gamma]$$^3) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] + ((
               32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
               1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
              32 $CellContext`k^3) $CellContext`\[Gamma]$$^3) (
              1 - $CellContext`\[Gamma]$$^2)^
             Rational[1, 2] + (
              7 $CellContext`\[Gamma]$$^4) (1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] + ((
               40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
               1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
              68 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
              1 - $CellContext`\[Gamma]$$^2)^
             Rational[1, 2] - ((
              13 $CellContext`k) $CellContext`\[Gamma]$$^5) (
              1 - $CellContext`\[Gamma]$$^2)^
             Rational[1, 2] - ((
              40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
              1 - $CellContext`\[Gamma]$$^2)^
             Rational[
              1, 2] + ((36 $CellContext`k^3) $CellContext`\[Gamma]$$^5) (
               1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
              8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
              1 - $CellContext`\[Gamma]$$^2)^
             Rational[
              1, 2] + ((13 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] + ((
               8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
               1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
              7 $CellContext`k^3) $CellContext`\[Gamma]$$^7) (
              1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] + 
            32 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2] - (
             16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
             Rational[1, 2] - ((
              16 $CellContext`k) $CellContext`\[Gamma]$$) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
             Rational[1, 2] - (
             32 $CellContext`\[Gamma]$$^2) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
             Rational[1, 2] + (
              8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] + ((
               16 $CellContext`k) $CellContext`\[Gamma]$$^3) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] + (
              8 $CellContext`\[Gamma]$$^4) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] + ((
               8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - ((
              8 $CellContext`k) $CellContext`\[Gamma]$$^5) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
             Rational[1, 2] - (
             32 (1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
             Rational[
              1, 2] + (((32 $CellContext`k) $CellContext`\[Gamma]$$) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] + ((
               24 $CellContext`\[Gamma]$$^2) (1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - (((
               8 $CellContext`k) $CellContext`\[Gamma]$$^3) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
             Rational[1, 2] - ((
              4 $CellContext`\[Gamma]$$^4) (1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
             Rational[
              1, 2] - (((16 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
             Rational[
              1, 2] + (((4 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))^Rational[1, 2]), (
          Rational[
           1, 2]/(((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
            16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (
          16 $CellContext`\[Gamma]$$ + (
            16 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
          14 $CellContext`\[Gamma]$$^3 - (
           32 $CellContext`k) $CellContext`\[Gamma]$$^3 - (
           36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
            32 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
            18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 + (
            16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
           16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 - ((
            32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
            1 - $CellContext`\[Gamma]$$^2)^
           Rational[
            1, 2] + ((32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
             1 - $CellContext`\[Gamma]$$^2)^
            Rational[1, 2] + ((40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
             1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
            40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
            1 - $CellContext`\[Gamma]$$^2)^
           Rational[1, 2] - ((8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
            1 - $CellContext`\[Gamma]$$^2)^
           Rational[
            1, 2] + ((8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
             1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
           16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k $CellContext`\
\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
           Rational[1, 2] + (
            8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
            Rational[1, 2] + ((
             8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
            Rational[
             1, 2] + (((-16) $CellContext`\[Gamma]$$ - (
               16 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
              14 $CellContext`\[Gamma]$$^3 + (
                32 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                36 $CellContext`k) $CellContext`\[Gamma]$$^4 - (
               32 $CellContext`k) $CellContext`\[Gamma]$$^5 - (
               18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
               16 $CellContext`k) $CellContext`\[Gamma]$$^6 + (
                16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + ((
                 32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                 1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] - ((
                40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2] + ((40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[1, 2] + ((
                 8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                 1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + (
                16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                Rational[1, 2] - (
               8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] - ((
                8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2])^2 - (
             4 (((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (-32 + 
             16 $CellContext`\[Gamma]$$ + (
               48 $CellContext`k) $CellContext`\[Gamma]$$ + 
             44 $CellContext`\[Gamma]$$^2 + (
               16 $CellContext`k) $CellContext`\[Gamma]$$^2 - (
              48 $CellContext`k^2) $CellContext`\[Gamma]$$^2 - 
             14 $CellContext`\[Gamma]$$^3 - (
              94 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
               16 $CellContext`k^3) $CellContext`\[Gamma]$$^3 - 
             14 $CellContext`\[Gamma]$$^4 - (
              36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
               88 $CellContext`k^2) $CellContext`\[Gamma]$$^4 + (
               56 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
               18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
              38 $CellContext`k^3) $CellContext`\[Gamma]$$^5 + (
               16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
              54 $CellContext`k^2) $CellContext`\[Gamma]$$^6 - (
              6 $CellContext`k) $CellContext`\[Gamma]$$^7 - (
              16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + (
               28 $CellContext`k^3) $CellContext`\[Gamma]$$^7 + (
               12 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
              6 $CellContext`k^3) $CellContext`\[Gamma]$$^9 + 
             32 (1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               64 $CellContext`k) $CellContext`\[Gamma]$$) (
               1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
              36 $CellContext`\[Gamma]$$^2) (1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] - ((
               32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2] + ((64 $CellContext`k^2) $CellContext`\[Gamma]$$^2) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + ((
                68 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + ((
                32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               32 $CellContext`k^3) $CellContext`\[Gamma]$$^3) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] + (
               7 $CellContext`\[Gamma]$$^4) (1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + ((
                40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               68 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] - ((
               13 $CellContext`k) $CellContext`\[Gamma]$$^5) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] - ((
               40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2] + ((36 $CellContext`k^3) $CellContext`\[Gamma]$$^5) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2] + ((13 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + ((
                8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               7 $CellContext`k^3) $CellContext`\[Gamma]$$^7) (
               1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] + 
             32 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2] - (
              16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - ((
               16 $CellContext`k) $CellContext`\[Gamma]$$) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - (
              32 $CellContext`\[Gamma]$$^2) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] + (
               8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] + ((
                16 $CellContext`k) $CellContext`\[Gamma]$$^3) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] + (
               8 $CellContext`\[Gamma]$$^4) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] + ((
                8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] - ((
               8 $CellContext`k) $CellContext`\[Gamma]$$^5) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - (
              32 (1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[
               1, 2] + (((32 $CellContext`k) $CellContext`\[Gamma]$$) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[
                 1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] + ((
                24 $CellContext`\[Gamma]$$^2) (1 - $CellContext`\[Gamma]$$^2)^
                Rational[
                 1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] - (((
                8 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - ((
               4 $CellContext`\[Gamma]$$^4) (1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[
               1, 2] - (((16 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[
               1, 2] + (((4 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[
                 1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))^Rational[1, 2]), (-4 + 
           3 $CellContext`\[Gamma]$$^2)^(-1) (-4 + 16 $CellContext`k + 
          3 $CellContext`\[Gamma]$$^2 - (
           24 $CellContext`k) $CellContext`\[Gamma]$$^2 + $CellContext`\
\[Gamma]$$^3 + (
            9 $CellContext`k) $CellContext`\[Gamma]$$^4 - $CellContext`k \
$CellContext`\[Gamma]$$^6 - (-16 + 192 $CellContext`k^2 + 
           24 $CellContext`\[Gamma]$$^2 - (
            624 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
             32 $CellContext`k) $CellContext`\[Gamma]$$^3 - 
           9 $CellContext`\[Gamma]$$^4 + (
             756 $CellContext`k^2) $CellContext`\[Gamma]$$^4 - (
            48 $CellContext`k) $CellContext`\[Gamma]$$^5 + $CellContext`\
\[Gamma]$$^6 - (
            433 $CellContext`k^2) $CellContext`\[Gamma]$$^6 + (
             18 $CellContext`k) $CellContext`\[Gamma]$$^7 + (
             126 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
            2 $CellContext`k) $CellContext`\[Gamma]$$^9 - (
            18 $CellContext`k^2) $CellContext`\[Gamma]$$^10 + \
$CellContext`k^2 $CellContext`\[Gamma]$$^12)^
          Rational[1, 2]), (-4 + 3 $CellContext`\[Gamma]$$^2)^(-1) (-4 + 
          16 $CellContext`k + 
          3 $CellContext`\[Gamma]$$^2 - (
           24 $CellContext`k) $CellContext`\[Gamma]$$^2 + $CellContext`\
\[Gamma]$$^3 + (
            9 $CellContext`k) $CellContext`\[Gamma]$$^4 - $CellContext`k \
$CellContext`\[Gamma]$$^6 + (-16 + 192 $CellContext`k^2 + 
            24 $CellContext`\[Gamma]$$^2 - (
             624 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
              32 $CellContext`k) $CellContext`\[Gamma]$$^3 - 
            9 $CellContext`\[Gamma]$$^4 + (
              756 $CellContext`k^2) $CellContext`\[Gamma]$$^4 - (
             48 $CellContext`k) $CellContext`\[Gamma]$$^5 + $CellContext`\
\[Gamma]$$^6 - (
             433 $CellContext`k^2) $CellContext`\[Gamma]$$^6 + (
              18 $CellContext`k) $CellContext`\[Gamma]$$^7 + (
              126 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
             2 $CellContext`k) $CellContext`\[Gamma]$$^9 - (
             18 $CellContext`k^2) $CellContext`\[Gamma]$$^10 + \
$CellContext`k^2 $CellContext`\[Gamma]$$^12)^
           Rational[1, 2])}, {$CellContext`k, 0, 1}, 
        AxesLabel -> {K, $CellContext`c}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {203., 210.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7657897098457546`*^9, 3.7657897701674547`*^9}, {
   3.7657898012851934`*^9, 3.765789823606494*^9}, {3.765789884789854*^9, 
   3.7657899899341955`*^9}, {3.765790028002366*^9, 3.765790068674584*^9}, {
   3.7657900990144653`*^9, 3.76579013419936*^9}, 3.7657902681201544`*^9, {
   3.765791215693927*^9, 3.7657912912867727`*^9}, 3.7657914621916504`*^9, 
   3.7657918350127673`*^9, 3.7658176206546445`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "derive", " ", "the", " ", "elements", " ", "for", 
     " ", "Figure", " ", "3", " ", "related", " ", "to", " ", "the", " ", 
     "effect", " ", "on", " ", 
     RowBox[{"welfare", ":", " ", 
      RowBox[{
      "the", " ", "welfare", " ", "effect", " ", "of", " ", "exclusivity", 
       " ", "by", " ", "considering", " ", "also", " ", "the", " ", "second", 
       " ", "source", " ", "of", " ", "asymmetry"}]}]}], ",", " ", 
    RowBox[{
     RowBox[{"i", ".", "e", ".", " ", "that"}], " ", "on", " ", 
     RowBox[{"c", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"cmix", "=", 
     RowBox[{"tmpc", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cDWelfaremix", "=", 
     RowBox[{"tmpDWelfaremix", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cDWelfarepure", "=", 
     RowBox[{"tmpDWelfarepure", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "cpe1constr", ",", "cmix", ",", "cDWelfaremix", ",", "cDWelfarepure"}], 
     "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"K", ",", "c"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cmixswitch", "=", 
     RowBox[{"tmpc", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7657915012511826`*^9, 3.765791573923815*^9}, {
  3.7657916511464963`*^9, 3.765791735471962*^9}, {3.765793249159833*^9, 
  3.7657932660865617`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.47400000000000003`, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    450., {146., 154.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$18291$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$18291$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{(Rational[1, 8]/$CellContext`k) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2), (
          Rational[
           1, 2] $CellContext`\[Gamma]$$^(-2)) ((-4) $CellContext`\[Gamma]$$ + 
          2 $CellContext`\[Gamma]$$^2 + 
          2 $CellContext`\[Gamma]$$^3 + ($CellContext`\[Gamma]$$^2 
             Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ((
              2 $CellContext`k) $CellContext`\[Gamma]$$^3) 
            Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - $CellContext`\[Gamma]$$^4 
            Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) 
             Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ((
               2 $CellContext`k) $CellContext`\[Gamma]$$^5) 
             Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^6) Abs[-4 + $CellContext`\[Gamma]$$^2]^2)^
           Rational[1, 2]), (
          Rational[
           1, 2]/(((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
            16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (
          16 $CellContext`\[Gamma]$$ + (
            16 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
          14 $CellContext`\[Gamma]$$^3 - (
           32 $CellContext`k) $CellContext`\[Gamma]$$^3 - (
           36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
            32 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
            18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 + (
            16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
           16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 - ((
            32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
            1 - $CellContext`\[Gamma]$$^2)^
           Rational[
            1, 2] + ((32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
             1 - $CellContext`\[Gamma]$$^2)^
            Rational[1, 2] + ((40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
             1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
            40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
            1 - $CellContext`\[Gamma]$$^2)^
           Rational[1, 2] - ((8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
            1 - $CellContext`\[Gamma]$$^2)^
           Rational[
            1, 2] + ((8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
             1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
           16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k $CellContext`\
\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
           Rational[1, 2] + (
            8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
            Rational[1, 2] + ((
             8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
            Rational[
             1, 2] + (((-16) $CellContext`\[Gamma]$$ - (
               16 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
              14 $CellContext`\[Gamma]$$^3 + (
                32 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                36 $CellContext`k) $CellContext`\[Gamma]$$^4 - (
               32 $CellContext`k) $CellContext`\[Gamma]$$^5 - (
               18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
               16 $CellContext`k) $CellContext`\[Gamma]$$^6 + (
                16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + ((
                 32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                 1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] - ((
                40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2] + ((40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[1, 2] + ((
                 8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                 1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + (
                16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                Rational[1, 2] - (
               8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] - ((
                8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2])^2 - (
             4 (((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (-32 + 
             16 $CellContext`\[Gamma]$$ + (
               48 $CellContext`k) $CellContext`\[Gamma]$$ + 
             44 $CellContext`\[Gamma]$$^2 + (
               16 $CellContext`k) $CellContext`\[Gamma]$$^2 - (
              48 $CellContext`k^2) $CellContext`\[Gamma]$$^2 - 
             14 $CellContext`\[Gamma]$$^3 - (
              94 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
               16 $CellContext`k^3) $CellContext`\[Gamma]$$^3 - 
             14 $CellContext`\[Gamma]$$^4 - (
              36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
               88 $CellContext`k^2) $CellContext`\[Gamma]$$^4 + (
               56 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
               18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
              38 $CellContext`k^3) $CellContext`\[Gamma]$$^5 + (
               16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
              54 $CellContext`k^2) $CellContext`\[Gamma]$$^6 - (
              6 $CellContext`k) $CellContext`\[Gamma]$$^7 - (
              16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + (
               28 $CellContext`k^3) $CellContext`\[Gamma]$$^7 + (
               12 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
              6 $CellContext`k^3) $CellContext`\[Gamma]$$^9 + 
             32 (1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               64 $CellContext`k) $CellContext`\[Gamma]$$) (
               1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
              36 $CellContext`\[Gamma]$$^2) (1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] - ((
               32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2] + ((64 $CellContext`k^2) $CellContext`\[Gamma]$$^2) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + ((
                68 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + ((
                32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               32 $CellContext`k^3) $CellContext`\[Gamma]$$^3) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] + (
               7 $CellContext`\[Gamma]$$^4) (1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + ((
                40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               68 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] - ((
               13 $CellContext`k) $CellContext`\[Gamma]$$^5) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[1, 2] - ((
               40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2] + ((36 $CellContext`k^3) $CellContext`\[Gamma]$$^5) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
               1 - $CellContext`\[Gamma]$$^2)^
              Rational[
               1, 2] + ((13 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] + ((
                8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
               7 $CellContext`k^3) $CellContext`\[Gamma]$$^7) (
               1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] + 
             32 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2] - (
              16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - ((
               16 $CellContext`k) $CellContext`\[Gamma]$$) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - (
              32 $CellContext`\[Gamma]$$^2) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] + (
               8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] + ((
                16 $CellContext`k) $CellContext`\[Gamma]$$^3) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] + (
               8 $CellContext`\[Gamma]$$^4) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] + ((
                8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] - ((
               8 $CellContext`k) $CellContext`\[Gamma]$$^5) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - (
              32 (1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[
               1, 2] + (((32 $CellContext`k) $CellContext`\[Gamma]$$) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[
                 1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] + ((
                24 $CellContext`\[Gamma]$$^2) (1 - $CellContext`\[Gamma]$$^2)^
                Rational[
                 1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] - (((
                8 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2] - ((
               4 $CellContext`\[Gamma]$$^4) (1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[
               1, 2] - (((16 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
              Rational[
               1, 2] + (((4 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[
                 1, 2]) ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))^Rational[1, 2]), (-4 + 
           3 $CellContext`\[Gamma]$$^2)^(-1) (-4 + 16 $CellContext`k + 
          3 $CellContext`\[Gamma]$$^2 - (
           24 $CellContext`k) $CellContext`\[Gamma]$$^2 + $CellContext`\
\[Gamma]$$^3 + (
            9 $CellContext`k) $CellContext`\[Gamma]$$^4 - $CellContext`k \
$CellContext`\[Gamma]$$^6 - (-16 + 192 $CellContext`k^2 + 
           24 $CellContext`\[Gamma]$$^2 - (
            624 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
             32 $CellContext`k) $CellContext`\[Gamma]$$^3 - 
           9 $CellContext`\[Gamma]$$^4 + (
             756 $CellContext`k^2) $CellContext`\[Gamma]$$^4 - (
            48 $CellContext`k) $CellContext`\[Gamma]$$^5 + $CellContext`\
\[Gamma]$$^6 - (
            433 $CellContext`k^2) $CellContext`\[Gamma]$$^6 + (
             18 $CellContext`k) $CellContext`\[Gamma]$$^7 + (
             126 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
            2 $CellContext`k) $CellContext`\[Gamma]$$^9 - (
            18 $CellContext`k^2) $CellContext`\[Gamma]$$^10 + \
$CellContext`k^2 $CellContext`\[Gamma]$$^12)^
          Rational[1, 2])}, {$CellContext`k, 0, 1}, 
        AxesLabel -> {K, $CellContext`c}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {203., 210.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.765791501956335*^9, 3.76579157451427*^9}, {
   3.765791680278582*^9, 3.7657916909460487`*^9}, 3.765791736060422*^9, 
   3.7658176206755867`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "welfare", " ", "frontier", " ", "in", " ", "figure", " ", 
    "2"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"parameters", "=", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", "\[Rule]", "0.4"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"1", "-", "k"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cmix", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cDWelfaremix", ",", 
          RowBox[{"cDWelfaremix", "<", "cmix"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"cDWelfarepure", ",", 
          RowBox[{
           RowBox[{"cDWelfaremix", "\[GreaterEqual]", " ", "cmix"}], "&&", 
           RowBox[{"cDWelfarepure", "\[LessEqual]", 
            RowBox[{"1", "-", "k"}]}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Null", ",", 
          RowBox[{"cDWelfarepure", "\[GreaterEqual]", " ", 
           RowBox[{"1", "-", "k"}]}]}], "}"}]}], "}"}], "]"}], "/.", 
     "parameters"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Quiet", "[", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"%", ",", "%%", ",", "%%%"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.7"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"K", ",", "c"}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thin", ",", "Dotted", ",", "Red"}], "}"}], ",", 
         RowBox[{"{", "Black", "}"}]}], "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"FontSize", "\[Rule]", "8"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Ticks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1.05"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1.1"}], "}"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"AxesStyle", "\[Rule]", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", 
         RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7657917702250133`*^9, 3.7657917771335354`*^9}, {
   3.7657918879598236`*^9, 3.7657919001492224`*^9}, {3.765791932802888*^9, 
   3.7657919942146378`*^9}, 3.7657920664683895`*^9, {3.7657920982075014`*^9, 
   3.7657921313668237`*^9}, {3.7657922899506702`*^9, 3.7657922952624645`*^9}, 
   3.765792650248581*^9, {3.7657927041673737`*^9, 3.765792746970893*^9}, {
   3.765792779540782*^9, 3.7657928046785493`*^9}, {3.7657928967847557`*^9, 
   3.765792922487013*^9}, {3.7657929563058906`*^9, 3.7657929846440983`*^9}, {
   3.765793023340602*^9, 3.7657930663844786`*^9}, {3.765793106412031*^9, 
   3.7657931214907045`*^9}, {3.765793278301891*^9, 3.7657932972103195`*^9}, {
   3.767530907535372*^9, 3.7675309229948473`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0], Thickness[Large], LineBox[CompressedData["
1:eJwt03lUTXsbB/BERDSQBpVQ3G403oTQN00aJFRuRIqGN+WVIqUospKkSNxG
SXNpEA2kVGdzms/pdPauaBJFiaREJd7fXevda+2112c9zx/PfobVR0/ucxUU
EBB4TN5/vzljUzIvB19C4P/Pt3XbxfJPsLFNLFIs2/kK9PsN2RH+bIge4XS8
0byKsGSz4P+EshF+ynmEPRsBKUnbUaV4Nrr2zbzJuBEF3TmenASKDec1x5Uv
NsfA/3VcdLhcHUTfhSmcux+Pn9ETYi71dbj+9pDuHYM0GFtOs3fw63Cpekn8
9rQ0RM4XCFHsrcOzAE8bd6F0KJwX+fJqog6CQ+EuxnXp0D++hrt3VT2Mikw5
umaZCDbecwNn6xHr2PbpilYOBKfyxOXWNiCxa8D+V34B5JoNx6HRgBnZuf5X
fxZAJ7WTdtnSgMGrd/aXWRTC1XxBYoFVA2AfIDQ7UIi6+KNrDf0aUO8eM6kQ
WYRoPVk9D3YDppdXfR0reQj5oLBjZR6NGJfvst499Agb9yiYdvk2orS7xl1J
5DF2Kz9WmXOhEX3r5GS4Gx4juOnNJ4uYRiREO00WnXyMfvnt/j1PGzHYvz/8
9vhj5FSORwotboJEcPof4hMl0P3tVGpT0ISk1D+6RzvKsMuq+pJJeRNkske9
/L+V4ViiovWm2iZklb1Q7JUox41NPe9XME0YuusRtNOiHEMnHWT7Z5uQxrr+
/sqTciT12QV5WzXDY6to/MDNJ5hTa2F4faQZqweP5cyoVkBGPFc0eLIZ2lu0
Xl01qoC648LX3gIt0KnXNpl2qMDBabavrWQLWKaROy5FVuCxtkmG3LYWbJ4Q
k9AeqYBbGoRzr7WgZPCqv2rmMzRd1ml5qcrB1xSzzYZCVdATaxS8uZEDydzC
Smn5KmTHO29yMOCAG6hs1aJdhdCCqHujdhwsSVdc3HuE5Hd88JG5yMHI5NT1
mHKSvz5Z+ng7B+rjuzQOuzyH4dClovmGXFxXMzqmalONAPWWBs+dXOQ82JrL
OlSNIl/ZAe4uLqrGPtpZu1Vj5a9C2cS/ucgOsFqqH1CNqaXdlzROcHFbSTrx
3F2Sv22TnX0cFxuDPscEDlZD8cbHqZzPXEjnjLVOetWgyjk4p3ici7h2TccT
p2vg+NeyAxU/uMiseOXTGViDJEavvEmwFXkf9zvERNRARiHCb1SqFcXrOzXC
s2qwNFdlXAet0NE3n77WWwMhynXkeXQrmpNFQrXNapF+eyqxLrYVQVV38z13
18LY/bpla3wr3HrSAxNta3FpUUluf1or1Oa2rOl1qsWvPfM8hMpboa81EPLd
vxY/uu8PWPS1oudtlr9vVi0+fu/toTV5SND+4dEyW4tS9+haC10exIWPPbWf
y0JIu37m8608DH+oXN8pzIJUWfKJHFMeimIu3H62jAVDP4efQYd4+LLZM0T0
TxYSJhhZ5XAefGq1PQf3suDqEjYbd52H5xIXxpn9LGjyN75ZcosHvzddKlUO
LLx8FJv9PZkHm/azz7xdWRjz2bep8REPZb7e3u7+LJiNNdv69PKwR09F934S
C8ucz29+/46Has4DrzmpLPRwN8gfGubhpfhp3t8ZLJwuuvbW5BsPWnfFLIfz
WUg5ae4jK9KGHebu9ZlVLEx+oqKrddswU7ww43IPC+nDFQ2iUSTOXuG1QIbC
f/+xVjp+qw0ySZqRlnIUNhm/DXwR1wbGP040fCWFhuRFakFpbXDIX2g7rExh
bM+B6KHyNvCXJdyy1aKgXzZpQ71twwkxJacXZhSEXSIeKA61IchbKT7GkgJP
fKVQ4Oc2HDYSjrPfTcH1uEmp1lQbFv1z7neLDYVIhViZFFE+EkIC5NwcKXSG
anUHbOGjTqQn09CHwn3NFxtpfT7Mv54RSDlNwavbPkrTmA/HvHnnJ/woCGwK
wfvdfEwnn/4WEUhh3XBLqq0LHx3RdsFulymc3uPlphHNh8m6ipquWFLv7O+q
iFg+FAsie5vvUFiQe0t6MJ6Po+peZ8vjKCTMrahLSudDzdhO9VwShZrShesX
PeXjeUGKelEaBVGFrNF37/gIaplS+1hEwWB/aPfbIT6qT0t/cCim4BN9pLH/
Mx9m67y2sR9RYObIZPX94EOh6RHreimFu4Phjl2LaazMKq14VUGBq+i667UE
jQnd+6WrKikIHtih90qKRslVW0/nKgpujVPLO1bRGNaJkmirpqBedLy5TYeG
k+aSyrMvKDgNmVbwttA45Svw9dZLCjFrlHJa9WncnD30O5dNYTL29WWOGY2C
e47F9fUUqgJ2bWs8RENrVKq/vpnCl2IV1QZnGucPCRhVtlBYMzJPpt6NxpJJ
8YQ8DoUwx8rxl940dkUZbwlopWBlpJ5Xe5nGmGVIagefwoWgRfE1V0n91qay
6TSFopLBsOooGsozkunHGQqSKilHq+LI/5jNCgy1UzB1DtxTmUzDXf2PV/c6
KPgn/K3/7D4NQdNzfJtOCl2LxVc8fUDj5D9xenmvSL9NRxY8eUjj3syBfOvX
pN/Bdd/KSmlIj2pajxKnj4W0llTTSLn0QW1VN9kPZiz8IZ/G01DLMrNe0m+x
Fr+iThrt4smCbGKuWa5LYQ/p50LjOIM+CjoVRw3yP9CQfDdZuPYN6feEvvqD
TzTC3PM33ySOU5OTz/tK4pmisj+If6a0fc/+SaNjudDnsn4yj87Cgaw5DPpT
NgyJvyXzWBrZljmfgUmikrkrcYzlf2oyRBgcfLJeooSYumxcmC7OYHVRqLHA
OzKfylXJacsZWBq5D5oSq3z/GXF/BYMZY7HpcOJIjxK3e8oMZP+6GPqbeNgg
P1xElYHZ5XNbNw9Q2CmTkeunwcBoV1+mJ3H6aFLTGx0G70cq6uOJBdmxn3fp
MVjHWZpdS+x0N1K8HAy8TwyaDBJXnbmsrWTCYGqvTta8QQryVkG2URYM3FdO
chSIA5RP+01ZMzCOWU1pETMznnEudgwUorKvGBDrtB17yjnIoHNZwEoL4phc
hy49JxK3Ox+5m/jLRZtfGa4M1hYm0lbEuw9YrpLwZOBZXDq7kzhP08gwyJtB
y5/5wtuJhYW3urw/w0BN9uD0BmK3Xu2wfYEMCtixjDQxVaqaXRnCgGZpps6S
+tdErWlQCWPws2/2cA9xiOuKkVvXGKwxqRN/Sty9bano7xsMBDzsK28Q60ku
0jx+h8GqFb7uR4njPs7ZRycy4FzqXKpBPFk75WuQyqBZw5w1SfptmzB2Oy+T
QeiSoKAnxMWnhsqkHjCYf0bF8CyxmPmbzosPGQyqzpHRJG74zlWwf8bgfuMX
wVtk3iqcOrBqGCSFOShuJw7LrHZWZ5P6dBMO9pP92WFXlDGPRxwtuW0l8d0N
2eyT7QyEpcKHHv+7b3PvDb3qYvDFHpQpcXlxtNrD9wziZ2rFDpH9lYq4Yi3/
iUFeS96VXrLfvs7Bp658ZbBxp8RWR2J18ZMlh2cZHP7setSqh+zTe7f2OsF2
7E/d311J7mW4ynHqL+F2KIqwU/8kNruzXy5lSTvodI1HN7ooZJzYvX3RsnbU
JAgtHyf3JmhieuSMTDsM6KcNe4id5PUv9im0I+FHZXsOuVfz8fS9HYrt8O2W
F/Ui/h8kEsMC
      "]], LineBox[CompressedData["
1:eJwV1nk4VH0bB3BFZW+hhMquwtMi7TXftNuKUpayhiKPSkpaUKGINmRNsqRQ
tkqJUCbZjVnOGDPMzBH1IEvSgnrP+8e5zvW5ftd1fvd9vn/ct5b7iX2eUyUk
JOqo5//vhqifphYGBKLjCt/oS9BxPkOvV2sZgYffquv0F9BBBC2UiVlFoOQ7
U8ZzGx13lyhYHaERmGu9WOHzbTpkIvpZM20J6HkNJRss+YCxLXndx0Koc4nT
Pmm7a1Ge1ZcSGEbgZvDGUg3vWlyRNtofEUmgYrfpLq/IWii25ldnxhL4En9E
fWddLfRdnqV15hCIWKlu7LHzIw5eKrK3bSUQwi7Ry19ThxevSxuhxUXeJskU
r2/1OL/w59U9+ly4+GTerlRowJbL6zY6GXIxelUjcXBxAxp3v35yfjUXMbTg
y5xDDegmyiJemHFBN7pB1lc3QHmsYouhP3UeVCyTEdGIAOOa5/Pec1F3UFnb
Y6wJXiaa6Xc+cvFhY8BlHcVm2K+5eEO+mYvVKhXrKvWasXGDifvUdi58Ql0m
o22bMXVr1syvX7kI1/1WFVXYjFs2YT50tXasuOeYss+9Bbknt2sG+Ldjujgr
8JJdK1L90+UGA9sRauFc4O3WipiAiTHvS+04VdFgt/t4K06ee97kcr0dyWer
jgqCW7E2VPeCRVo7qvbE+npnt6LmlhRHu74dqeG1uzSGWtH1rOYGQ4uHK39t
nLMvMtA6INVvvJgH+rzE8t4wBqqMdljGGfGworW+XiOGgfRcurzdWh6cht1o
p+4z4P7oQwzfkofrboPHUyoY6Ln/8VZvIA+uWV8S1ScYGIhujJ1s4mEkoT9o
nX8bOhvkR52ZPHjrj2ywDmpDs6yVbRWXh/Hv1xJcQtvw7HqT8lWSh0f/udp5
3mzDybDmeOlfPGRPnziomNuG0QutCUq6HZgWLlok6mrDuA8rZen5DjD+1l7m
7WDCdo3TnWUhHYgQeeTEWjCRP6UnYlVYB9YJ5d/stGHCOfHHqc03O4Aky8bk
w0xU09V222R04G/Sm1Pj/kxc03QbPVffAZXhjyey05hQ4gxYflTj40llQ1jz
MBO+D89ubdLgw8ootpw5xkSN79+1bbp8yP7wozPHmTgrOVuHv4wP5X88j9RM
Y6F9hcmvwa18RLW1XzymysKDG+ezVY7zkaCm41UNFgxNZ/zxesOH/RWXEcF1
Fgpz8xZzq/hIlP6WnhPDgomytY3ZBz7kj43L+d5lYVNvYpYhgw+J70MrPqWw
sCfGwGKoh4/a6Xe8kp6x4N9ulRg0R4DDCnS+IpOF16fijKO9BTiky358cD4b
tI51hyf9BIi9mRpwdQEb77YLwv0CBEhXK3uep8lGvYp+u3WIACfo/z76uoQN
fkVpyNx4AZ4unC2grWdDQrajMa1KgJH+Jz3yDmzsytA6WqTSiYllj3aGxrNh
kqio/2FBJ1bLyS7rTWRD8+Z4N0+rE5uW7k43T2XjdxDbXcqoE+ZJvcYzMtl4
ahPpbLelE6Px+X52hWwoTRk+MHmsE/w96zXt6tnocqnablbWif/sj5z7Ms5G
44Gnks6VneAOvPze+4eNVxbJ7/xrOqGs8MKNnMLB3bUBW1KbO+HaID+bMYOD
HTOXbBoUd6LAjKl+XYmDvLe3VsXLdWHlnmvmRw04CFzooi063IUYmdexEwc4
cLdecZDv1gW/taYDt+052HN1ShTh1QVGZGKW9iEO9L9kDjed7MKa/dWraa4c
sJ5/rioL60LdxxLNgz4crLD0d4nL70KmW840uWAOPp8PT9010QUJ1XhxQiYH
/x00PPZQQgiDE8a6/GwOXIeUpmpIClFySzB90WMOLHQ+rVaTFmJYb0Fpcj4H
2pHX7s+aI4SW0vDPwBcctNo2+k7qCSHZvvLx+w8cGPUfkCOshDD3zTid38vB
K1vLyihrIbJ7Nvgxv3CwrWLradp+IVS18sU/+jhwvLm8I9teCDn+A9P1QxxE
rpDJCzgihEzjlzlpPznoCSg3nxMkhCAjkDksTSB9UjvKKkuIyUP3mloWEzDy
UqVNyRHihBR79MlSAqXNM0eePxFiIsWTfdmQQPODCYcFBUKs722pM1hOYNKU
s7TvtRAKcQnFbmsIOEZE1l1vEeKxwkUlz+0ElGYOSdf8FsJIfZVuszOBtoqo
a2aTQpxlKYt3uRK466s3veWvEEvc57Mq3QjMqXeU5EmJ8Iye75DrQTmcPjmo
KEI3g63o40Ng1njyiLqOCHuzDDbGnyEg37uDf9pChIzyt0syowg0xgsdf1mJ
kMC+yfh0g5pj2y+0B1uL8CjQiq0fQ0Auo5ATeUCEprZFI5m3CMg6qTMeuIjg
1hCTHhVHQJo5RG84LcKkP/OjbBoBqcqUAp1UEfyeSbYKCgjwNm3f3ZUmwr6v
GUVSRQQKyvqFyQ9FKK/pb1xaTPX/cvOcOTki1NxJeuH3nEDR064AiWIROv++
9SdfEXBO1dkgqBWBePdPSVA1gVdBeTX3vonQIFB/58ag5uKP/U77xkRUTvrr
97UROHJm4rvCLxEa42izTJkEFE9ZLQ7/I4LDf0qkKpuA57HByNMyYrS8ubDh
FZf6X3ar9lpriHH7aF/24y4Cx03etMtYiFGxrabbpZ9AVSs7/5WVGE/PGf9R
G6Dm8r9DIUetxXD+a5fDolyZradPPyDG711R+dsGqfxUbvuHuooxuTczddYI
gTe/POR+nKG+fyJK5PWDyuNeSGf2OTHsl+70lPtJ1WOcXGR7QYy4zw7XnlGe
ebzFrjhUjBpN5dyhX1Q//PVZ/94Qg+Z78orHBJVHpeLm7nQxbMwUTOWmcOF6
aOms2EwxSgSCOcmUX/zYRpo+EmPGKtbtxVOpub4iKPJBnhgPNkTF0SS5KHlI
sh1filGv7dh2eBoXh8Je+TEaqPpk5LocZbgo1GSahjaLUVX4h82iPK1iQHk5
Q4w8N+0IK1kuCr5rv4nmiOGgpjN3oxwXkkdjZuwWUf0bS0rNUKD2CjP39Ldj
YvxqfN/mPosLEyMtGn6JMaon/FxN+a2isKNyXIzsFMcBjdlctDKdVKolSOz0
I95zKY86Odx8L0vCbyqrdLMSFzR/64sfF5Hw3OBoyp7LRa3tTDUzLRLr7YzC
deZxYb22ubROh0R4IK/qJGX3CYtv9UtIqKSoakurcHEtYpdPkzEJ5qWVqQbz
qfuSafZtO0nInXs9QFPjwuHS5Pd9ZiRovfe+XaQsdimPZVqQOC5p9/s15VHd
DS0saxLZTkXyK9W5UC1YvZNwJHFQZ66t0gIuMu6MknZOJNJibU6aUTYKKLnM
dSFBL627E0yZtn5lRbsHiazIOz2fKLu/NzLh+5G40OvV83ghF33ZfYzDp0jE
Xj6+kaAccD33hOA0iXbiS5LUIqp+qyV5nedIML74nDlMOZ/Q0RZdIXHfTPaF
hAa1R5WJK93Cqf7Nj3sspvw29aGT+BqJ3AFvLSvKrW4aSWQ0CW6Q+Yd4yt/7
1Gb13CNhZNlQp67JRdz93trUJBK/o1fe2Ex51d7nIftTSbRl2Jk4Uz5VbDVY
9ZDEFo9/t6RSnuWhlhOYReJQfXrWa8oFc3udl+WQSLig/o1NeeBcaHNKPonO
s8ds5Kg9M9rAKmJfAQl7m/PuupQN+ao0mWISSkn7XDdR9kbJ07OlJB71t+h6
U5YeDvH8p4zEyMnC/kuUczIsF3aXU/XYNmfeofxpWk+0zTsS4gerxC8oh5UW
b5emk9gfVOzzgbKOd8jE21oSixIF3WzK79Qsn5+pJ1EeuNemm7Jb43xfoybq
vrkZhcOUJYI/6ZAtJIhhP8k/lB8sL+5IaiOxdOZecxltKj9RcKw1m8S8UV64
EmXBXQuLGVwSUnm5LxdQvrh9vuRbHokp7w8IdCmrj3WXBQhIqFqf/m1IuSyn
yN9QSKKvL0nRmLKDQ7CBWExi2UsXtbWUf8paiBM/kTA/4LhoI+WEcpXkvZ9J
PBtbpE6jvMav22Z6HwmnvVtnb6HM1iiSqRggcTvVfoopZcumlv62ryTUOdrz
/+//Af4YZUM=
      "]]}, 
    {RGBColor[1, 0, 0], Thickness[Tiny], Dashing[{0, Small}], 
     LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAaPU5HVTirD9mZmZmZmbmPwv/gVxH
Hq8/fW348X4n5j8lUe7ow4u0P4UQjkKvDuU/d845P5j0uT9TmvKOEt7jPxe0
Ed4BAb8/LhkA6snB4j+24kPMzzzCP9B+3EC0jeE/wmqdG1nsxD9kf271PF/g
P/UmPQ+tbcc/COpScTOK3j8C+asQGyXKP8uiZu9SJtw/Nv9gtlOuzD+xRcyK
GuvZP8yENM7GKs8/cB6d4R671z8fkOv5qe7QP8vECzCJW9U/6/ff3tUw0j8w
VcybmyTTP6Tqu8oOjtM/JLMq/xO+0D8OHafv5OTUPxSO6DuSxcw/jGm1ZqAk
1j8Oih+0TGDIP/ZAq+Rof9c/DSGSG9Obwz90MsS0FsPYP3UYUXtTUb4/367E
i9Eh2j8LJfWdmKy0P/tq1Jspets/bxKMXKFppj8rQQf+ZrvcP/+t9J5J/YI/
vJNEaLsR3T8AAAAAAAAAAOfYsMs=
      "]]}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJwdzQ9Q0gcUB3BSdjltNm3DrZPK5k7z3xo6Mun2Va+pCf2B6dwfU9OmRk2l
1HLXCFykLUm7jLY0ZyrN6Ql2SeclS664Wpy7TJz/oh+KSKgg607CXOp+7d29
e/e59773ArILed+6USiU7WS/nlGRr0uP3P/LgpaZHp33eT0Unk1XFqIt8Kb/
5jCbB1EmCKuUSqdQdUiV2xg4hBi2vE9pN+NFbLs5/9QwJJltUnasGcUMbRft
3gjuW67KixsmYVRozz0OGENNKz3Gz2HCv/zBui3fP0G57l3GbLwJoXGrl3N7
DOBnvhJxmiaQ2BSQd8OPgCGikBM0P47j9MzNE+lG7BT0F1RzxxFmS/Ua3j2O
1qCUae5BI9at/cdDuziOsYmNc8c9CVB765Qf1E9gQfxnY/cDAw5H9Yy+yTYh
5PJZju3QE7Tvym6888KEtiOs3nLfMThn179tkU2CFqwzRg6MQPV5onvtTjNk
XwpeDpcO41SS5NcuixluhU6NjDGEgKfJI82SKdz5jL+3e34QMdtO177PsKDq
gmuor06P9A2PXq7SW5B078CaV18NwKmTmorEz0Djm2M2LPXjZ2pGMS/QikZ7
RcStgkdYR6ia3LRWdFUElzgdfXjjB3HKdsE0bF6LHetZOlB+z1CafGdASZfE
l3Q9wNErSqnv3RlEy+Ieqlxa/BFa6eFTMIs1XOPTnsS78Ek+GlbubcMJ5Xf1
c+d6YQjv15epbdh0QXjgY//b6GxAoDnDDpGnO0F4qLBfyfShL9vxniS51G9t
J0SSa2JD2xworc+mtvHk6LDS67w5DmTNxNeHCWWovCrJIvY4QNnLcUQGynCQ
Z/9QwXVAdDM1nqW7BH+1unN3GumT+dZdtEv4qfqb+1XZDmi8z0flKS4in/nL
c88yMh852neNqMHm0+8krb5O3ruIxXDhGSxHn3xruJW05nnjDp0Eo/bJgevt
ZP4sNZFNk6Am7eb+hBtk3j/kYr7iR6yE8I5J1A7ExpaENhMiGB5XN7jryb2v
X/dWYSm6z7hy9H+TbtlB3UMrQS0rc0vzCGlm9r7DimNgyyO64gny39cdVjlR
hNsn/noonib3CRUMpjAXsvBPqrk20vwBXZEiBwJTfUqAg3Q1PaedyEIw54hR
M0+6My8oTvgFqKsGW2pcpBeW0m4R+zCuYvGzFkmLgn3ShAlQ85s/2rpEelOb
uVzIxOWNXs6VFdIUyoBmOvXT/wBilsWb
      "]]}, {}}, {{}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["K", TraditionalForm], 
    FormBox["c", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  LabelStyle->Directive[FontSize -> 8],
  Method->{},
  PlotRange->{{0, 1}, {0, 0.7}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.7657919963259907`*^9, 3.765792069043545*^9, {3.7657921031762443`*^9, 
   3.765792131811667*^9}, 3.7657922955706787`*^9, 3.7657927474795313`*^9, {
   3.7657927800694013`*^9, 3.765792806076847*^9}, {3.7657928972415447`*^9, 
   3.765792923136278*^9}, {3.765792971699719*^9, 3.7657929850560274`*^9}, {
   3.765793024075673*^9, 3.765793066942028*^9}, 3.765793122573807*^9, 
   3.765793297854596*^9, 3.7658176207972608`*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["The Test and figure 2", "Section",
 CellChangeTimes->{{3.7322460658106604`*^9, 3.7322460820496607`*^9}, {
  3.7328870346143274`*^9, 3.732887038616195*^9}, {3.7328873468067913`*^9, 
  3.7328873530875845`*^9}, {3.7657977436244063`*^9, 3.7657977458863564`*^9}, {
  3.767530653500843*^9, 3.7675306535985374`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "We", " ", "first", " ", "determine", " ", "the", " ", "p1H", " ", "that", 
   " ", "is", " ", "the", " ", "price", " ", "firm", " ", "1", " ", "would", 
   " ", "offer", " ", "if", " ", "the", " ", "buyer", " ", "does", " ", "not",
    " ", "accept", " ", 
   RowBox[{"exclusivity", ".", "\[IndentingNewLine]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Note", ":", " ", 
       RowBox[{"if", " ", "we", " ", "treated", " ", "p1H"}]}], ",", " ", 
      RowBox[{"as", " ", "a", " ", "parameter"}], ",", " ", 
      RowBox[{
      "since", " ", "it", " ", "would", " ", "be", " ", "higher", " ", "than",
        " ", "the", " ", "one", " ", "used", " ", "here"}], ",", " ", 
      RowBox[{
      "the", " ", "test", " ", "would", " ", "be", " ", "failed", " ", "a", 
       " ", 
       RowBox[{"fortiori", "."}]}]}], ")"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.71973394581548*^9, 3.71973397646988*^9}, {
  3.7238770855460873`*^9, 3.7238770911967998`*^9}, {3.7238793275910783`*^9, 
  3.723879407459399*^9}, {3.7262061365687647`*^9, 3.726206138836565*^9}, {
  3.7328600742369156`*^9, 3.7328601155409155`*^9}, {3.7328601553009157`*^9, 
  3.732860233660916*^9}, {3.7328901218246636`*^9, 3.7328901729097404`*^9}, {
  3.7650171174052315`*^9, 3.76501717104272*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "It", " ", "must", " ", "be", " ", "that", " ", "at", " ", "this", " ", 
     "price", " ", "the", " ", "capacity", " ", "constraint", " ", "of", " ", 
     "2", " ", "is", " ", "binding", " ", 
     RowBox[{"(", 
      RowBox[{"see", " ", "later", " ", "why"}], ")"}]}], ":"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"v", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"c", " ", "q2"}]}], "/.", 
     RowBox[{"q2", "\[Rule]", "k"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"q1constr", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], ",", "q1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "and", " ", "the", " ", "indifference", " ", "condition", " ", "for", " ",
      "the", " ", "buyer", " ", 
     RowBox[{"is", ":"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{
         RowBox[{"(", "c", ")"}], " ", "q2"}]}], "/.", 
       RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
      RowBox[{"q1", "->", "q1constr"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Ve2", ";"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"%%", "\[Equal]", "%"}], ",", "p1"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1HTestconstr", "=", 
    RowBox[{"%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.71973398246828*^9, 3.7197340673386803`*^9}, {
   3.7238770990970545`*^9, 3.7238771345614834`*^9}, {3.723877271441515*^9, 
   3.7238772744113846`*^9}, {3.732860201749916*^9, 3.732860240206916*^9}, 
   3.7328614088639154`*^9, {3.7650171815466156`*^9, 3.7650172149462514`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "p1", "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{
  3.7197340675882797`*^9, 3.7238771349449406`*^9, 3.7242473092362623`*^9, 
   3.724311880454739*^9, 3.724398047590413*^9, 3.724406674973675*^9, 
   3.725864552495533*^9, 3.726206162868765*^9, 3.726227573289364*^9, 
   3.726552021111391*^9, 3.726914471293395*^9, 3.727015589559619*^9, 
   3.727075444722206*^9, 3.727155541395439*^9, 3.7271656414118395`*^9, 
   3.7272466520793104`*^9, 3.7328602154819155`*^9, 3.7328874686810503`*^9, 
   3.7344381515360823`*^9, 3.7344413547663*^9, 3.7646487457917185`*^9, {
   3.7650171901536293`*^9, 3.7650172191600046`*^9}, 3.765509909748787*^9, 
   3.7657756094883595`*^9, 3.7658176208122497`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", 
     RowBox[{"1", "-", 
      RowBox[{"k", " ", "\[Gamma]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", 
     RowBox[{"1", "-", 
      RowBox[{"k", " ", "\[Gamma]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7197340675882797`*^9, 3.7238771349449406`*^9, 3.7242473092362623`*^9, 
   3.724311880454739*^9, 3.724398047590413*^9, 3.724406674973675*^9, 
   3.725864552495533*^9, 3.726206162868765*^9, 3.726227573289364*^9, 
   3.726552021111391*^9, 3.726914471293395*^9, 3.727015589559619*^9, 
   3.727075444722206*^9, 3.727155541395439*^9, 3.7271656414118395`*^9, 
   3.7272466520793104`*^9, 3.7328602154819155`*^9, 3.7328874686810503`*^9, 
   3.7344381515360823`*^9, 3.7344413547663*^9, 3.7646487457917185`*^9, {
   3.7650171901536293`*^9, 3.7650172191600046`*^9}, 3.765509909748787*^9, 
   3.7657756094883595`*^9, 3.765817620902975*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{
  3.7197340675882797`*^9, 3.7238771349449406`*^9, 3.7242473092362623`*^9, 
   3.724311880454739*^9, 3.724398047590413*^9, 3.724406674973675*^9, 
   3.725864552495533*^9, 3.726206162868765*^9, 3.726227573289364*^9, 
   3.726552021111391*^9, 3.726914471293395*^9, 3.727015589559619*^9, 
   3.727075444722206*^9, 3.727155541395439*^9, 3.7271656414118395`*^9, 
   3.7272466520793104`*^9, 3.7328602154819155`*^9, 3.7328874686810503`*^9, 
   3.7344381515360823`*^9, 3.7344413547663*^9, 3.7646487457917185`*^9, {
   3.7650171901536293`*^9, 3.7650172191600046`*^9}, 3.765509909748787*^9, 
   3.7657756094883595`*^9, 3.7658176209049788`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Note", " ", "that", " ", "the", " ", "buyer", " ", "would", " ", 
     "obtain", " ", "in", " ", "exclusivity", " ", "a", " ", "payoff", " ", 
     "equal", " ", "to", " ", "that", " ", "it", " ", "would", " ", "obtain", 
     " ", "in", " ", "exclusivity", " ", "with", " ", "firm", " ", "2"}], ",",
     " ", 
    RowBox[{"q2", "=", 
     RowBox[{"k", " ", "and", " ", "same", " ", 
      RowBox[{"price", ".", " ", "Hence"}]}]}], ",", " ", 
    RowBox[{
     RowBox[{
     "the", " ", "only", " ", "way", " ", "to", " ", "make", " ", "the", " ", 
      "buyer", " ", "indifferent", " ", "is", " ", "to", " ", "set", " ", "a",
       " ", "p1", " ", "such", " ", "that", " ", "q1"}], "=", "0"}], ",", " ", 
    RowBox[{"which", " ", "is", " ", "what", " ", "p1HTest", " ", 
     RowBox[{"does", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"q1constr", "\[Equal]", "0"}], ",", "p1"}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.723879418665333*^9, 3.723879545017068*^9}, {
  3.732860311348916*^9, 3.7328604229259157`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"1", "-", 
     RowBox[{"k", " ", "\[Gamma]"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.723879509495566*^9, 3.7242473094007397`*^9, 
  3.7243118806051493`*^9, 3.7243980476840134`*^9, 3.7244066753296237`*^9, 
  3.725864552635933*^9, 3.7262275733829637`*^9, 3.7265520212049913`*^9, 
  3.7269144714191947`*^9, 3.727015589757682*^9, 3.727075444815806*^9, 
  3.7271555415094395`*^9, 3.727165641521039*^9, 3.727246652349928*^9, 
  3.732860413223916*^9, 3.732887475161928*^9, 3.734438151844902*^9, 
  3.734441354949794*^9, 3.7657756308131*^9, 3.765817620909966*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"This", " ", "also", " ", "shows", " ", "that"}], ",", " ", 
   RowBox[{
    RowBox[{
    "it", " ", "must", " ", "be", " ", "that", " ", "the", " ", "quantity", 
     " ", "q2", " ", "associated", " ", "with", " ", "q1"}], "=", 
    RowBox[{
    "0", " ", "must", " ", "be", " ", "binding", " ", "and", " ", "the", " ", 
     "p1H", " ", "determined", " ", "above", " ", "is", " ", "the", " ", 
     "only", " ", "possible", " ", "p1H", " ", "to", " ", "consider", " ", 
     "for", " ", "the", " ", "test"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7238795584685698`*^9, 3.7238797252834563`*^9}, 
   3.724398372114213*^9, {3.732860425277916*^9, 3.732860486381916*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Now", " ", "we", " ", "calculate", " ", "the", " ", "\"\<Required K\>\"", 
   " ", "for", " ", "the", " ", 
   RowBox[{"test", ".", " ", "We"}], " ", "have", " ", "two", " ", 
   RowBox[{"case", ".", " ", "One"}], " ", "in", " ", "which", " ", "the", 
   " ", "equilibrium", " ", "exclusive", " ", "price", " ", "is", " ", 
   "constrained", " ", "and", " ", "the", " ", "other", " ", "when", " ", 
   "it", " ", "is", " ", "not"}], "*)"}]], "Input",
 CellChangeTimes->{{3.732861418161916*^9, 3.7328614394919157`*^9}, {
  3.765017262261693*^9, 3.7650172662440414`*^9}, {3.7650173115517745`*^9, 
  3.7650173323272347`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "required", " ", "K", " ", "with", " ", "the", " ", 
    "constrained", " ", "exclusive", " ", "price"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"qe1", "/.", 
     RowBox[{"p1", "->", "p1econstr"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"krconstr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"%", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"p1HTestconstr", "-", "p1econstr"}], ")"}], "/", 
       RowBox[{"(", "p1HTestconstr", ")"}]}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7197345003548803`*^9, 3.7197345801350803`*^9}, {
   3.723877342657971*^9, 3.7238773808250523`*^9}, {3.7328605150859156`*^9, 
   3.7328605305339155`*^9}, {3.732861445650916*^9, 3.7328614540999155`*^9}, {
   3.732864536669916*^9, 3.732864541124916*^9}, {3.765795728758974*^9, 
   3.7657957310986996`*^9}, 3.7657960104675083`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"k", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", 
     RowBox[{"2", " ", "c"}], "+", "k", "+", 
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{"-", "k"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], " ", "\[Gamma]"}]}], 
    ")"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"k", " ", "\[Gamma]"}]}]]], "Output",
 CellChangeTimes->{3.71973458055628*^9, 3.7238773820145397`*^9, 
  3.723879734867489*^9, 3.72424730945467*^9, 3.724311880650258*^9, 
  3.7243980477152133`*^9, 3.7244066753912888`*^9, 3.725864552667133*^9, 
  3.726206182249365*^9, 3.7262275734141636`*^9, 3.7265520212361913`*^9, 
  3.7269144714503946`*^9, 3.7270155898454037`*^9, 3.727075444862606*^9, 
  3.7271555415754395`*^9, 3.727165641583439*^9, 3.7272466524399724`*^9, 
  3.732860531799916*^9, 3.732864542494916*^9, 3.732887478820795*^9, 
  3.7344381521727743`*^9, 3.734441355208446*^9, 3.7646488528262978`*^9, 
  3.765017347777897*^9, 3.765775639867959*^9, 3.765796010972196*^9, 
  3.765817621025647*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "In", " ", "the", " ", "following", " ", "dark", " ", "area", " ", "the", 
    " ", "test", " ", "fails"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"krconstr", "/.", 
     RowBox[{"{", 
      RowBox[{"c", "\[Rule]", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"RegionPlot", "[", 
    RowBox[{
     RowBox[{"k", "<", "%"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7238774067589364`*^9, 3.7238774784421687`*^9}, {
   3.7238775828033714`*^9, 3.7238776100586796`*^9}, 3.7238799109594245`*^9, {
   3.732860539594916*^9, 3.7328605513099155`*^9}, {3.7646488686789665`*^9, 
   3.764648874583181*^9}, {3.7646491287512245`*^9, 3.7646491323806224`*^9}, {
   3.765017387374902*^9, 3.765017390499542*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJx12DGoFmQUh/HPCKuhwBqaGpL2IPoGIbpG0FLIVQrCyCEIGkT3WuXaUjhc
MIgGhwa7REKbREu2FIRD9IFDSPURiRZ9glOkOPze4YF3Ojzrw3nP+z/n6XdO
H3v3gcVicW7fYnG/Pry399iFl06+qF758ZmjH26+2MJHvnvy9NnN5cFvn/vp
+Hp5ZfATWwf+39n8MHh95+L27urq4MNHXj24Xv48+NPPb95e7q4G3/nvo+93
NtcGH3392fOr7V8H//LGe8/vrq4PPrPv0Gff7Pw2+LkvH9m/Xv4x+Pqb1049
ul4P/vjBvdVy98/BL1z64PCJl/8afOOt1y7ubG4M/uShpx7/6sLNwa98fev9
1fbfg/898e3vd+/+szXz1sof5g/zh/nD/GH+MH+YP8wf5g/zh/nD/GH+MH+Y
P8wf5m/WZ/XWyh/mD/OH+cP8Yf4wf5g/zB/mD/OH+cP8Yf4wf5g/zN/sXbbP
6q2VP8wf5g/zh/nD/GH+MH+YP8wf5g/zh/nD/GH+MH+zOdZ32T6rt1b+MH+Y
P8wf5g/zh/nD/GH+MH+YP8wf5g/zh/mbzf3Osb7L9lm9tfKH+cP8Yf4wf5g/
zB/mD/OH+cP8Yf4wf5i/2T/Zud851nfZPqu3Vv4wf5g/zB/mD/OH+cP8Yf4w
f5g/zB/mb5Yr+k927neO9V22z+qtlT/MH+YP84f5w/xh/jB/mD/MH+YP8zfL
Yc0V/Sc79zvH+i7bZ/XWyh/mD/OH+cP8Yf4wf5g/zB/mD/M3y63NYc0V/Sc7
9zvH+i7bZ/XWyh/mD/OH+cP8Yf4wf5g/zB/mb5bzm1ubw5or+k927neO9V22
z+qtlT/MH+YP84f5w/xh/jB/mL/ZXtSc39zaHNZc0X+yc79zrO+yfVZvrfxh
/jB/mD/MH+YP84f5m+2R3Yua85tbm8OaK/pPdu53jvVdts/qrZU/zB/mD/OH
+cP8Yf5me3f3yO5FzfnNrc1hzRX9Jzv3O8f6Lttn9dbKH+YP84f5w/xh/mZ3
iu7d3SO7FzXnN7c2hzVX9J/s3O8c67tsn9VbK3+YP8wf5g/zN7vr9E7Rvbt7
ZPei5vzm1uaw5or+k537nWN9l+2zemvlD/OH+cP8ze5gvev0TtG9u3tk96Lm
/ObW5rDmiv6TnfudY32X7bN6a+UP84f5m90NewfrXad3iu7d3SO7FzXnN7c2
hzVX9J/s3O8c67tsn9VbK3+Yv9mdtXfD3sF61+mdont398juRc35za3NYc0V
/Sc79zvH+i7bZ/XWyt/sLt07a++GvYP1rtM7Rffu7pHdi5rzm1ubw5or+k92
7neO9V22z+qt9R7ukj26
   "], {{
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData["
1:eJxFmXfYlcURR9/XDiKK9N57771JRzrCR++9g/QivX3SjBgMapQYFdHYiA0V
iRqMRqOikYgaRcVEiRKjIWLNnuc9+9w/Juvs7M7OmXuBO79UnjB30JzzkiQ5
Fv7n/LCWCJYGY69isILBLg1WKsniFwQraRy/QrACnitt/MJglbxXKFjZYBcF
uzhYGeP45dy7JFhlz14WrFawosGKBasarHCwy4NVMY5fPdgVwYoEq2Ycv4Z7
Vwar6UquOsGKy3dVsPrBGgQr7/sw1DUOXz1XuBvJQL0NZcBvYd3U1dg4+Zq4
VvCN0t5pZk/pTVPj+C3NAWtreeDrbB3U2sY9+Nq61jRWyje6+B41tjIfuToE
q20P2nmPHneSmTc6Gsdvbo2wdTUfPZgUrH+wAcF6yAlHd/nx+/o2HD2Nw93L
ldz9jMN0tX2kB72N4/dxr5VvtpE7z88P1kHB2ss3RB56do08+EPd485Ia+0h
Q1v7Mcx8sA537RZshCt3RnkPpjeCPR3smWBjrRuOMXLiTwk20BrHGYdpvCt9
mmp8cLCJ9gXWCcbxpxmHaborrHOtD6bZMlD7DONwz3TNk6ORn9Ms97gzWibq
nmMO8s4zN9zzXUdbSwf7u8A9uBfaC1hXWwfvL5EHvsXy418nD+eWGuf7tcZ7
1LjCPtKn5cEm6690j96s9Sw92BLsWmtZLw99Wmccf6NsMG0wjr/JPZg2u5Jr
q/kWBftNsO3BdgRb5fsw5BuH73pXuHfJQL07ZcD/pXVT1w3GyfcL1+t8Y5l3
dttTenOjcfw95oD1V/LAd4d1bAu21z34bnHdbGyJvV/k58Znc7P5yHWbPaUH
t3oP/3aZeePXxvPtF98Fvgd3ygD3C8EeDPZQsAeslbrukRmmu+0F/u+sg3P7
je82x145DgS7yV7eaxz/Pvf2+N4t1v6ENf022COyUfvDxvF/Lxv9O2gc/7Fg
+5Ls83/clVxPmu8uV1j5zO/3fRgOGYfvKVe4n5WBeg/LgP9H66auI8bJ9wdX
evOMfeHO8/aU3jxnHP+oOWD9kzzwvW4d/P31crBH5fuz6+PG7vGNu2Tis3nR
fOR61Z7Sg1e8h/+azLzxF+P4y8OPip3BdgQ7JgPcb9kLWP8e7CXreltmmP5q
HP8964DpuHF68IH34Hgnyb5z9PJvxvFPuEdvPvQstf8jyWp6M9hHslH7SeP4
n8hG/z42jn/KPf5N+NSVXP80H3z8oDodln8Fe9f3YfjMOHyfu8L9pQzU+4UM
+P+1buo6Y5x8/3Z9zzeOe+dre0pv/hPsff2z5oD1W3ng+9k6qPWce/B95/qp
sbd9I02z96jxf+Yj1w/2lB587z38n2TmjR+N439jjbCdl2b56EHV8N+Fg10e
7KJgX8lxQZrxw10ozd6G4+I0i8N9SZqt5L4szeIwFUyzPtKDAmkWx780zfbI
xZvn5C6eZp8frFekGQ98RdOMh55dmWY8+MXSbI87ZYJdaO0wfGc/SpgP1pKu
5wcr5QpfWe/BxPeIPyv8OamQZnXDUT7NOPGr+QY1VjQOUyVX+lTdeJFgVdKs
L7BWNo5fwzhMNV1hbRCstEx104yB2msZh7u2a3E5vvR7Wsc97pSTibrrmQPu
huaGu5ErZxu7wtrElR40dYW1hQwwNZcZv50M1NjSON+pVq70rL1xam9jj+hB
a+P4bd0jVwfPwtTd+qirk32Bqas8cHSxd/jd3OPOuGBXB+sTrKP5uN/DfPD1
dG0WrJcrfL1dW5ijhXx9ZaP2a8xLXf1lg2OAK70Z6EoP+nmPc4Pl5P4g4x2s
taVvDA3WOdhVwYbJCXeee/jD3YN7hGt34/Xty0j34B4tM6yj3MMfKzOsY4z3
th8V/bzHWx89mCgP3JNlhnWSe/izrJXapxiHdaorPZhtHI4ZwYbIPc04PZ5j
HL65rjAt8jOmrmutG455xuGb7wr3THNT0wL3uDNBJngWmoO8i81NfIkr3PwG
WpNkvy+Xugf3cnsB60o54dhg3dS1Wk5qWeNKn9a60o/rgk333Hr5ub/OOP4K
3+GNjeaGdbNs9GOTe/hb3INvqyv9W2bt1J3vHtzbZIbvevfwd3gH1u3G8Xe6
R127XOlBmmTzProAWkWlJJvH0TCYp6PmwYoWUNA4czsaRhnPoVtU9j56BjpA
1DzKeg6NobwxNIwq3uFt5m7mczQM5vWoeVT1HHoG837UPKp7LmocxNA4aunD
VNe86AHMtsy/Bay9fJLTOOrKV1+f+pgRo+bB2tA6mMdbJDmNo7H5muqX8WwD
e8EsHzWPZp6DqZW54GCub+371Ng5yWkcbeRpp1/a3JxlzmDeWGAvWpsXZmbT
qHmwtpeN3J1k7uS5yjI1t/au9ovZnVlzsnUwl/eTgXk56h+s3X2feN8kp3f0
tO4B3ucddICoc/T2HL3oY4xaB/l+1COGWSuzf5y/B3sOJmb8qH8M8Ry9zDPW
xRxRBxhh3kb6Xe1dX+uAZ6Tn4BulT33jkpzmMdbPgTqm2q+ocYwz3wT9Xp4d
bS+Y9aPmMdFzME0zFxxoA9OTnAYxL8npGjPkmaXf09ycbSxDtySnm0yTGQ0g
6iWzvT/S3FFTmes58i3wbVjRAfjOMR/xO/9162aOjtoG6yLfZE5fJd9Sz/F9
YqZfJsNqz8GMDhA1jxWem2aOlXKu8U7UKTbJgQ6wVg7m/ahtsK6XYZMxNAxm
2H3yrzUvbFvMC+tWfXjy9aPGkS/PNn1qZf7dYT5m8Jusm9lxV5LTOG6Q+Ub9
FcZ3Wgf3ouax23PLzL1d1j2+AR86QdQtbjYG515jUfvY6+e63hxw3moMNub9
qHncZgy2O5Kc5nG758bZl4XWdac9hSPqAbAxR0dt425j1Micfr9s+z0H6736
1P2A5+BEB4iaxwHPwfOg52B4SD/qFI9ZL3P/QXke9hx8j+jvsZb7ZDtobKcc
sO0z36P6T/gG8Sf1memZfd+Q85Ax2Pgz85R1H/YsdTCPv+DbR5Jsxol6xxH5
n9M/YPywnNyL+sfznttv7qdlO+obMKEZRA3jRWPwoBu8lOR0kJeTnF5zSM5X
jMHD7B/1j1eNcZa/D6L+8ZrnmKWYF3+07jftEb+n+Q3Jb03eY/6N+gfr+zIz
a0f9g/Uta2fWf9eaPvQ+PWDuj7rIce/Tp3eMRZ3ilLUwgzObM8czk/KjCCZm
+ZOynfQNmNAEov7xseeOmSPqA+T42X6c8g6fwQnrOGrtJ+T5zDqOW8dpzzE/
Rv3jC2PUwbz+jffPeI4azxqjd+gAXyU5feSM9aIDMOOjQVBj1CR+8jOKesc5
e3c6yWkzn3uWWpjZ6dcnnv1W/u+9/5HvnJWN3FEX+cFzfM5fWysMzMzkZQ5n
VmWGJS8+8zk8aAJoCvCgE3CHd4gz55OL+Zpz1FXYfPQLnSDqIqyco19oBcSo
Gw2hsGzM68X9/vI9jvoHK+foGbN/1D9Yi/jZowMU9ftEjmJpTu8oIQPzPpoC
PaL2gmlOBykpQ1nP8SazeDVrZfaP+gdrOWsiXtVcFT1HTTW8X8i+Rl2kkuei
3lHDmphN6/t2Q314anku6h34/H+h/J4uYb+r+vnByUxfR556+sXdq53m9I6G
fh7l3PvA7zifVdRBGqU5HaSxbzObt5MJHSDqH6zNrJV4W2tq6Tne7uB9esbs
H3WRVp6jX22MUW9H7/A+s3l3e8Q831m2Tp6Dh9k/6h9dPAdDN2ONzYEf9Q7y
Mucz447182hrHVEH6ZnmdJBe1sd8HPUP1qirMKMP9n5/z0UdpL+cfXyTXvD3
cdRFBnoONmbzIXKgCeT5PjWOkWe4sah3DE9zGg1nK8rQ1F7kmRdmdICohYz0
fi9zR11ktOeod7w9gocZn/mf2ZuZfJ11MI/PkoEZOuofk7yTZ3ymrFM8N9xc
s+0dOkHURaZ6Luodc6yD2XyhdS3Wh2Oe56LegR/1uyb2FC1huqzoAAvs60L9
0e7NT3N6x2I/5wm++az/lvBv2lCZZsiKBrDUN9AvVsmBBrDC+jbYO+6s9lzU
QVbLzNnl9oUeR11kredg22gu6kXv2OT7aBPb5dliLOodW+z7cs9OtN4lMm8y
L8zoHVELyff+UnNHXWSb56Legf7xf71spiQ=
        "]]]}, {}, {}, {}, {}}, 
    {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwt0E1KggEUBdDP/DIrtbSCGjYrsB0U2AIEFd2AGNSkpgmVlb+lZkvQPege
bA+6B9tBR2hw4E4e3PtOqw+l+0gQBHk2WOcjzrmiyA11hkyY8cOSXzYdnXDB
NRXueOaFBq+88U6TFm06dOnxwSd9Bgz5YsQ3T9xSJkeWY0JWeiyYM2XMgEdq
FLjkjEMOyJBmnz1SJEmwyw7bxNkitt5KSPT/X3+owxyq
      "]]}}],
  AspectRatio->1,
  Frame->True,
  Method->{"TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{0, 1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.723877461949094*^9, 3.723877478845685*^9}, 
   3.723877583284297*^9, 3.7238797383855715`*^9, 3.7242473098011703`*^9, 
   3.7243118809510565`*^9, 3.7243980479024134`*^9, 3.7244066758801613`*^9, 
   3.725864552854333*^9, 3.7262275736013637`*^9, 3.7265520214233913`*^9, 
   3.726914471623995*^9, 3.7270155901242876`*^9, 3.727075445034206*^9, 
   3.727155541769439*^9, 3.7271656417706394`*^9, 3.7272466527178135`*^9, {
   3.732860536916916*^9, 3.732860552494916*^9}, 3.7344381523051596`*^9, 
   3.734441355264627*^9, 3.76464887541092*^9, 3.7646491330259047`*^9, {
   3.765017387779817*^9, 3.765017397976536*^9}, 3.7657756461228294`*^9, 
   3.7657960166928577`*^9, 3.765817621039609*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"As", " ", "explained", " ", "in", " ", "the", " ", 
   RowBox[{"text", ":", " ", 
    RowBox[{"in", " ", "this", " ", "case", " ", 
     RowBox[{"(", 
      RowBox[{
      "with", " ", "the", " ", "cosntrained", " ", "exclusive", " ", 
       "price"}], ")"}], " ", "the", " ", "test", " ", "always", " ", 
     "fails"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.765017401028408*^9, 3.765017426890175*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"A", " ", "double", " ", "check"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"krconstr", "==", "k"}], ",", "k"}], "]"}], "/.", 
     RowBox[{"c", "\[Rule]", "0"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"%", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.764649369451745*^9, 3.764649382866509*^9}, {
  3.765017432071351*^9, 3.765017455574469*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13k0Vev/B3BDokmIpFmDSkoXN2V6F9JgiJBIdKW5zG5puChCCpWkDEma
FSIlQkWDIWOZjrP3OcZM55inztm/5/v7Y6+9XuuctZ717M/zGR5lF/c9h8VE
REQE5Pnfe9fhzqrC37YGp+mh6SIifEwxmu9BKWnhSqa722UxPjTvx8ZnKhkj
y61ro6QEH6blda8TlGywX4samT2dDzvX0Q83lVzRVlWgoSLPR7N6iNF1JR/k
SkzcPbyajySF3VeuKgVBct60pRus+AiUylwVphSNkLZTDwcf8rHP/kEavz8F
gvHW5q+O/ZjBBDpuX5wG/b10UvvsAay06uv8HJ6FaM9L6R7FAzjzYzNih3LQ
VDpb8DxqEIpZsmxR0QI06Ng8K7ceQjbXqKxC7xN2PgjUvak2jE8nEhbY9xRh
s9vdAFpiBMMq+rNfnv6KMctq/Qc1IxAbfyGzYGUJvPaESZZnjWIjczDb+lUZ
ZoUsUY4KGUNZkNaPL6oViNn0OF3TdhxLorrHn/VVQs83SMLmrwl0j1Lsnxuq
sckmS5I/PoGUrtwS6YgauL6+tii/dBLSi57wWltrcWKjsZt95B9cO/7mSNKK
Xwi9ZDumoCPAyJYXrcf867AxrFSkukUAH42irLmf6/F8i/V3U08hjmgtTbrx
rR7pvevPhnkLsW/jhfCZP+qxvmDlt2JfIXR1tFzEGurhsyt9h845IcQMU2b3
9dXjwrJ9OXKXhYi0CjpRPL8B56x+fAqIFuK5h/FSH68GUDn9NWbZQlCvisKr
lBvxtWpTU8CwEJW9U3o0VjWiyCS4b9+oEIVq28yi1RqRKbE8VH1ciKTnxTPt
tBshHiBjVv9HCJfHX66zzBqRIjYxdd4UBu0J3yI7zjTik9Txst1yDHqvld0S
lDdie8S8ovh1DNilM4ecahqxf8elKGN1Bj+mm9sU1jfC5BWnqmsDg1eh5fKX
Wxqxs8w9Q0OLgUfQj9tS4404MMv1Z5oOg6HzlXfmrGjCZ5cGA+ftDCZP1Mat
OdeEmIHtSyKdGdhsPHBjvX8ThkO7I7sPMkgVbb+iGdSEk1EycSYuDJxiRz31
I5qwo9PRf8yVwcfi+TuskpswK+yyr+kJBiFL/xk6W9IETs/u4pc+DOb86jX7
Np8F6mCA+z+hDE49+NewfAkLRtkt56PCGBSdYrSrV7Bg8dNFMf8qg3/FZZez
1rMwXuc8IX+dQcMGrXGeIQtbrisdzbjB4H74uUeKJ1nI+9h1M+Ueg7VbJYVH
clk4y28X83rBIP35i1X1hSx0e69pCElloCVvabXzCwv5tfMG4l4y0OuITVlb
xUKxSHhXfhoDi+uqpvx2FspvvOnmZTLwajCP9ZNrhvyeHFqQy2DEcOBjl2Iz
6g+5vx3NY3A+NaZ7/6JmWPG3lfI+MAjypwwMVjfDmZnyrLGAQcxKzzYxg2ao
uudrxn1mkOMZrXHteDM22d7D1xIGBk2bHAVuzdi8buOnlFIGn4ybg918iAdG
LgSUMShRVGmw9G9G5u28uxo/GLA+vPVXuN0MSx2LY4FVDESmN5UlFjajirdq
wfc6BtuTlY9mKLKxUz5XnOGS/cZKq3xZyMblv5I1YlsYLI2YbG1UZuP9O/Fy
9VYGE34/XaaosTG/I8DIoY3BS6swJ7stbEjwwjTiO0i8RPttBcfY2K0TOVjT
TdYbbZaXc2NDINtYbN3DoKenpEbFm43W3yKi1cRf6lOsLC+yIXbENON7LwO/
9H3mD2+wERtWOvyIx4ByLjTe+Z6sF1XMkx1kUGb7UtypgI3Bj3I4S/zO9N4n
ryI2DCXmDrOIb2r7bIn/wcaH9uLoB0MMts1ercfjshHOvXNfcYSBhoTCpHgn
G0cVnZU9iRdPir6f18tG1bxRqe/EY+1N2oajbNwcU5/mM8rgRX6k5u0ZFL5Y
C0qyxxjEZl0YeCZDYSDH/6z4OInf8+MZ+QoUZBxmhlsQO8UYqXcuobBoRReb
IpZ1G1XV1aLQ3rEfvAkGwkOtv3dvplD2pVJOfZJBl33VU1cDCjkrnu46TVy0
7YVKxA4KtmmaHa3EZxY5L+M4UjBx+FFV+IeBi+WGvax/KGhO0SgZILa4LHq1
7giFiJ5/Ny4XMFD5/bC/3INC09NTJ/yJ5Rb6rvzuS0E6S0zjBbHAwsS+6BwF
i1PGp38S12Z1Fr4PopBgeM9gpZBBYUfO0JswCiHqd2p3Eb+YH746I4KC3lFZ
thvxpYB1UU9iKTiY2Ji+JnbLFH5OTqCgazstrYrYvr1iNCGZQutF+Ss84g1m
Xs7RqRTc2NMjVBgGC/2NbkVmUDBVbM8HseRr+a9XsykMnRx1sSMeaG2bCM6l
oCDQPneamK34dn1gIYWHTg+mXCIu2RXqcqGYAnVnndht4jcX7WPOlFA4ubzO
6zFxUrpqiVcFBX1e7N5s4mstk4LTtRSeOrq9LCI+O7f8r+MNFA5tsT5TRXxo
Z+JhVzaFK1yjLBaxxQX3u84tFG4J9VzbiXXStpQ7dFLw/qwb0keswpUV3dtL
4WKN/qJhYlmFFi2rAQqexltVJoj/bM86ZjZKIei+cbKAuPNccPz2PxR2c0xu
MMRde9ceeyBCo9Nv++D/fJA/R2yJOI1yM5NvQuJfYX/i4iVo9KcbyfwhNl3e
9vd8KRqZHltKR4kL88or7kyn0fVdf7yfeOPe7OMKs2jUnNa/10WcyksUvzWb
xoLAra84xMvCQhJk5Ghw4sz+riOOXeahHSFP4+n3f9RLiaXz9lXNUKThGBYU
/4E4yHbryTAlGnvK3114RTzet0ZCciENvUmxygRit1C5+0GLaWj0HI0JJ25V
ntwkpkzjQU9PxRniSpuyU4KVNE5GuMWbEpv0ZU09v5qG2bSz6prEeSEJSWOq
NNJNcv9WIn7y3q12UJ3GX+mz4mlyXhba2Ll5atAQtVz35yPxzV5I8bRopN59
UvGA+L+lsnpdm2koSlRXOhIP5Yz/PKpHY1gzRqhNfMKa695mQKNepfm+LLHt
lcyHtBGNMtel+oXkvKv12M6oM6fhkF/ZMp34nY1ZwVVLGjBscf9J8snog6G3
gTWN2rLyNYnEDhHqTY/20TBZdWaVKnHYhmkvfA6R9aSszdRIfsrfZZxWH6Hx
OsB+ZyfJ7yTRETnWMRougbRPMvG7au45IzcaIcsr7WSJ233ydsn50bB+Pba7
gdQTr+bXwuLz5PeWj5+vEAu2PXvt9x+NEzlNRzSI5RVj5nMu0zit5KsbROqR
UY57V1oEjcar4cpypF4lCZZdNU+hsYzJEPwaIPs7omQg+oTGYTNH36PEb3/M
Hsh6RiMg9PTikX7S7+//sV+YRqOi2FlCmliw9dea7hwan9dzVVeTeutwJex7
aAWNswN7xiVI/W7v87+oV02Tuv3rnl8XA0+7f//i19LYPNXHo/s3g9DVh+7a
NdJ4r5f77nsng+wSveMqbSS+dV2fPNpJP5jNlyqaoKE2b133MQ6D6g9XQ3YK
yP49RwxKaRLfUyunVjA0dhkqSagRy5U4iDdO4UDEadXvTjZxcLGAJ82B4Uiy
giWLgczkvYEFyzlQv3t2be0vBjM7trG8TTmYI/ial0X6Y9lt2mHcnAO5A1oF
bd9J/hufb/jPkoOFzRk6CsQzktN/hdlyMGlam+D+lcH0Awuq7jtzcHz9+QVy
RQykavjFpd4cqH2qWytN+vOUgri05fEceObM8m4l/b9Rz3gHlciB/3athAoy
H6S976HvPeDgjo3c1BwyPzhk68vJPeGAznS/feUZg4yXlI/Iaw7mK6q+mfmI
9If45TrNXzkQk9lqURxHzoffi6KYQQ5euSSkd4UwiBi1PrBnhIOqwUveiVdI
ffL9MzxrnIOTMUygZTDJV0/zVcFCDpIDLl5Ou8Tg8DFemPc0Lrbltq6wv0i+
l53mbsslXPyTWr1tvxeDk1q5DdNMuQg8PKa/eD+pH5U/U9+Zc2Fma3H4oT0D
hdN8/6OWXNSqHRtR2ceg4NFKlWJbLub4ltitsSXxU4zyCjjIxcma2ysW7GaQ
O+46Y9SXi+hMuT2ZhuR7FkjrtyZx0ZAr8MhZTfrFTpek/BEuYnUmMjbzhdBS
UzbAOBfXWDccL/YJkS9NNxVMctEszP5U0EPm3ZoDih9FWtBTFfh5y28hhg7Y
R3ye3gIvE5kUTa4QBl6WF74tboGu0Z2dzTXk//cM9lWbtGDw1I4zRmR+Hu6e
L9Me04LNxy0e/XtGiDfW28WjjVvxKtWyro4SwH9H8P2s9lbkGgWGYasAys27
6h8Gt8HUZ4hWiP0DHe2gaCWNdsRFPUooq5mE4+KKcdGadpRe/DJ3yZxJDJdc
53oEdsDz0TVvT50JxE5x8tmzohOprW2OkifHMYf9JlmsiDjWVqYufgwSFwNt
Nnv+RpyzpHZ/7ihEnjmlceW6EJ7Vp+bXNQKve2nX5T51oXOBWLv/tBF8WBsq
JevWjcqkljyB+jBkd3mpXZLugfYELSN3fAisdZU1fnk90HxrvupmzCDSE7Gi
1akX3m43bMLqBnAgbaPsImEvJj3u/fipPICA4AeBrOd9mJrdG7zrUD9edi6K
kzbjwe/dUd3Wt3yEJgQfZFvw8EvWX2U4iw/XPb0rX1nx4J9sETn1NR8L8/LS
ze14WFGg3qiaysfVyP1frrnw8HwoxdYviY9jG+/2T/fj4Xj+3s51YXwsC5Lf
IfmYB8mTTOKwAx/CTRdm1T3l4UiipencfXw09LZUP37Bw4VHPF9tWz6i7DIP
mGTw0PFrmcn53Xwwqnu8g/N4cP3yrFrKmA9WVWSieA0PUzu3Jequ4+PdldFD
NT95YK9K2OCqyke0rvOah/U8KFkf3np9FbkPP1qfZcjmYUGROZtW5uP92fLv
gb954Cy7LxExl4+YdX9HWvXwwD2fGP5+Dh+e3HgbZR4PDaNzozpk+Fhtdooq
HOKh7bGvvNEMcv8WrU2JGuVB5atjtKcUH/Qb3RMHJ3h4yM2/mUTu33knHqpv
EPCgqBU/u5Lcz+8smUHGAB4Kbh38//v7/wHoi4P3
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 1.},
  Method->{},
  PlotRange->{{0, 1}, {1.0000000386582852`, 1.9999999526113417`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.76464937626013*^9, 3.764649383353165*^9}, 
   3.7650174560222282`*^9, 3.7657756538624516`*^9, 3.7657960255372033`*^9, 
   3.7658176210775824`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Now", " ", "we", " ", "study", " ", "the", " ", "other", " ", "case"}], 
   ",", " ", 
   RowBox[{
   "when", " ", "with", " ", "exclusivity", " ", "the", " ", "price", " ", 
    "is", " ", "unconstrained"}], ",", " ", 
   RowBox[{
   "the", " ", "price", " ", "p1H", " ", "must", " ", "be", " ", 
    "recalculated", " ", "also", " ", "because", " ", "in", " ", 
    "exclusivity", " ", "the", " ", "buyer", " ", "obtains", " ", "a", " ", 
    "payoff", " ", "that", " ", "is", " ", "higher", " ", "than", " ", "the", 
    " ", "reservation", " ", "payoff", " ", "with", " ", "firm", " ", "2", 
    " ", "used", " ", "above"}], ",", " ", 
   RowBox[{"Ve2", "."}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.732861557058916*^9, 3.732861580827916*^9}, {
  3.7328616706919155`*^9, 3.7328616911629157`*^9}, {3.7328617243549156`*^9, 
  3.7328617525789156`*^9}, {3.732861808450916*^9, 3.7328618157229156`*^9}, {
  3.7328625238359156`*^9, 3.732862548074916*^9}, {3.765017488916218*^9, 
  3.765017494621952*^9}, {3.7657756642446938`*^9, 3.7657756653736672`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"First", ",", " ", 
    RowBox[{"in", " ", "common", " ", "representation", " ", 
     RowBox[{"(", 
      RowBox[{"off", "-", "equilibrium"}], ")"}]}], ",", " ", 
    RowBox[{"q2", "\[LessEqual]", 
     RowBox[{"K", " ", "is", " ", "binding"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ve1", "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", 
       RowBox[{"q1", "\[Rule]", 
        RowBox[{"1", "-", "p1"}]}]}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1mon"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"v", "-", 
         RowBox[{"p1", " ", "q1"}], "-", 
         RowBox[{"p2", " ", "q2"}]}], "/.", 
        RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
       RowBox[{"p2", "\[Rule]", "c"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", "q1constr"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "%%"}], ",", "p1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1HMonkbind", "=", 
    RowBox[{"%%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.727075746457406*^9, 3.727075820370206*^9}, {
  3.727088424886129*^9, 3.727088429519329*^9}, {3.7270884858209286`*^9, 
  3.727088504318529*^9}, {3.732862607572916*^9, 3.732862677811916*^9}, {
  3.7328627108359156`*^9, 3.7328627113879156`*^9}, {3.7328630861239157`*^9, 
  3.732863109610916*^9}, {3.732864454164916*^9, 3.732864461114916*^9}, {
  3.765017512346527*^9, 3.7650175241868463`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "0.7350510257216822`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "1.2249489742783177`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.727075753337006*^9, 3.727075820588606*^9}, {
   3.727088477487529*^9, 3.7270885050517287`*^9}, 3.727155542524439*^9, 
   3.7271656425038395`*^9, 3.7272512445508857`*^9, {3.732862621482916*^9, 
   3.732862632213916*^9}, 3.732862712008916*^9, 3.7328630887579155`*^9, 
   3.7328874871193886`*^9, 3.734438153250638*^9, 3.7344413560637507`*^9, 
   3.7646489106134577`*^9, {3.765017508114849*^9, 3.765017524966801*^9}, 
   3.7657756756751137`*^9, 3.7658176213069043`*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"1", "+", 
     RowBox[{"4", " ", "k", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]}]]}], "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{{3.727075753337006*^9, 3.727075820588606*^9}, {
   3.727088477487529*^9, 3.7270885050517287`*^9}, 3.727155542524439*^9, 
   3.7271656425038395`*^9, 3.7272512445508857`*^9, {3.732862621482916*^9, 
   3.732862632213916*^9}, 3.732862712008916*^9, 3.7328630887579155`*^9, 
   3.7328874871193886`*^9, 3.734438153250638*^9, 3.7344413560637507`*^9, 
   3.7646489106134577`*^9, {3.765017508114849*^9, 3.765017524966801*^9}, 
   3.7657756756751137`*^9, 3.7658176213078995`*^9}],

Cell[BoxData["0.7350510257216822`"], "Output",
 CellChangeTimes->{{3.727075753337006*^9, 3.727075820588606*^9}, {
   3.727088477487529*^9, 3.7270885050517287`*^9}, 3.727155542524439*^9, 
   3.7271656425038395`*^9, 3.7272512445508857`*^9, {3.732862621482916*^9, 
   3.732862632213916*^9}, 3.732862712008916*^9, 3.7328630887579155`*^9, 
   3.7328874871193886`*^9, 3.734438153250638*^9, 3.7344413560637507`*^9, 
   3.7646489106134577`*^9, {3.765017508114849*^9, 3.765017524966801*^9}, 
   3.7657756756751137`*^9, 3.7658176213088984`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "can", " ", "calculate", " ", "the", " ", 
     "\"\<Required K\>\"", " ", "for", " ", "the", " ", "test", " ", "and", 
     " ", "plot", " ", 
     RowBox[{"it", ".", "\[IndentingNewLine]", "First"}], " ", "when", " ", 
     "in", " ", "the", " ", "common", " ", "representation", " ", 
     RowBox[{"(", 
      RowBox[{"off", "-", "Equilibrium"}], ")"}], " ", "q2"}], "=", "K"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"qe1", "/.", 
     RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"%", "*", "p1mon"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"k", "*", "c"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}], "+", "0"}], 
       ")"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"c", "\[Rule]", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ContourPlot", "[", 
     RowBox[{"%", ",", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "1.2"}], "}"}], ",", 
      RowBox[{"Contours", "\[Rule]", 
       RowBox[{"{", "0", "}"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kpe1constr", "/.", 
     RowBox[{"c", "\[Rule]", "0"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"%", ",", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"%%%", ",", "%"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7646506293243003`*^9, 3.764650666186776*^9}, {
  3.764650956825467*^9, 3.764650981925432*^9}, {3.7650175669374638`*^9, 
  3.765017567396274*^9}, {3.7650176239359584`*^9, 3.7650176761233253`*^9}, {
  3.7650178149409056`*^9, 3.7650178153318987`*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxlljtvE0EUhRcaOgok6AOGn5DWHYmpEC0FEhIVSUBI0PITIIuQ6JCiUNHw
WoOAIlhRUHiI4EAgtvOwjeO8bAeJFoJnJvesz9nIkvXl7s7MuffcuR66fO3C
lcNRFB09FEXuW//iXKH/eZZnLoGrxfH+56PEy2Afri6BK+Ef4H/77m8NPOnf
b4BPOYx/gRP/+gZ4xG+4BV726++Ar/oDdsDhb084ik5c+n380u8kb3qZS2DT
y/Ey2PQam15j02tseo1Nr7HpNTa9xqbX2PQam14+71T+/JGb/c/MgZ434HDc
OXB4fwHsX4+/gUf9gsvgMb/gisTr4JCPpjzfAof8tMF3/Ybb4JN+/105bxds
+oLeR3mu7yM8z/E9sNWf9UcRr1+S/H2U/ctyviXRXxW9a2Dzg7H5wdj8YGx+
MDY/GJsfWM9eJl/cr13p5ynxd1f8FB/wffjJ8smcwF9cjznx64LUZwFx85/F
mRP40eLMCfxpceYEfuX369LPTcSZE/iZ129J/7cRZ07gd4szJ/C/xZntfupJ
PXqoA/dDGg9+eHLAj/G8Mfu5iLjVX5n9NiP7z8h9Mot4yPd8hu35CR/4jLh/
Pfc1w9yfi4iH43/PsD3vy7H/A/HQj5UMc3/WEA/9uZph1ruOePBHPcOc7wbi
wS/NDPN920I8+Gcjw3wftREPftrMMN/XW4i/8OfbzjDfbzuIn/Xn62SY7/uu
+K8n9ezJ/RRn5rv525j9twe/m5/1vrfnzZ/qP/WX+kf9ofXX+mr9tD6af82v
5s/4nFvvz8Ow75l3+dPu++xrcM0tNzIHPuO+x76A/faj38D+PJWfYL//2ArY
9cf0/jrY6Z8fbYJdP3QmW2A3v45V22A3v4Zz22A3vy6O74LddreLXbDNa+YS
2OYzx8usrz+fSV9/PpO+/nwe1Ofm86A+N58H9bn5PKjPzedBfW4+D+pz89nY
/En8YJr1DD3l89x/C37llk/egb0frr3n9SofwN7PhQWw/97/yvmqpfX3/pxc
4vxNLIO9P09VOZ/RKp+nuMb1LNRJ33CuQfqm49Q/494Pvyj/89UWr1fcoHp0
cpviz02qz7GJbV5vdIfqNfxyl9eb7PB5oh644P3c4/zeukHx+PpzzletxPk8
9Inrda/M9Tn9g+vxsip610VfQ/Sk+fP9FaX999fXI/XrHZ//NB9DPt+p/tBP
U9Jvb6S/5lhPJH6LxV858VNxReKpX+z3Fz+f+sF+X5H/Cmm97fcTn7cr540i
1vdY9Mfy/Iycd57rn0v7y35/8P1SkftkVfTVRV9T9G2IvtTvNp+Nbf6yvp7k
oyj1mmV/9+chv79I/ejmId+XNVlvXfZrSP5aUu+25GNL8rEj+Ujr+R//qkJ1

    "], 
    {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
     GraphicsGroupBox[PolygonBox[CompressedData["
1:eJxNlnm41VUZhfdhFkFlSlBITFEJDJCZC2ggEF4ZZRKokBJkEFESJZwiBNQG
FUeQRNO0bLQ50zQbpczMcsicbbS0zHlqvc9+feyP9/nts+/+7bP3+tb6zt1/
8UkzV7UopVzQKKVlnocGPncKzaFN6BYmlPr3zmFSaBW6hMmhdegapoS24V1h
dtg97BOmhXZh7zAj7Ba6h2NC+9AjnBHWh1FhbugQ9g0Lwh6hV/hgGBgGhMXh
uDAoLA1LwuBwbOgYeoYTw8owNKwOJ4VhYU04JQwPa8OpYURYF04PI713s3c7
O5wVmsK5YWMYoyad1GtL2BzGhvPDh8Lh4X1qupe6dVbHaerUVg27qGmzWrZW
z26eZYb6tVO37uo4W/3ae/d91W6BGnRUr17qONeaUJuPhnFhv3BC+EDYP6wI
R4X3hFXh6HBA+EiYGHqH5WFZGBJODlPDgeFjYXroE04LM8NBYVEY71nODHPC
IeGcMC/0DZ8M88N7w6awMPQL5/lu/3BkOEJNx/mkBh/2b+j9fr+H+37W7x7o
945Sr4u8/2HefbC1WeGdunjfQe6PDkOtDXccbv244whr8/FSvdNdTYZZP+7Y
pO4bwifCaO872ppNUn/OcJx36/R/99xLHcZay0PVoYV3He/8p9ShoRZHupaz
zQoHl+pN1r87XFBqrtAMX05wz4mOOc8SPzNu5Vlbet5JarXMz4zxzuTyjo8n
+94E9+nk3FGuX+mY9dSdbOHd+WqEPtsd4w1yfLTakuOp5Z0skZk2zk1xfoqf
WU9+prmW/Mxwbrrze/uc7runOmYen871PDN9l1qf7mfG5PAY957luIfPWa6Z
4Xr2JIezfW+O4318zvHdsxwz38Ez8F6zOnR1bp5ryPyxriUDC5yb73xPn/O9
y0bHzC90PV7CE3hjgHMLXbPZMWs+7Zo9w2dK9Ra+Gu/47cySz4bzi1xDtvA6
fhjnmF400DUDnFvs/IWlZrK368kvuTjeMWsmuoY916t5D//OOvJO1vF0Z9cv
cU98yG8GfQ8vn+Caix3TG+kNeL2La5Y5z3O5Y7y8wjVbHbPnUL+jq2tWOk8N
VzmP1+gveI/+gde7uYbxAT5XO77Edxnj8ZNdT386xX2mOj7Q5xrHl7qe8WV+
bx+/q9l96G1kAK/iQ34L6dv4F9/T20c67u7ate7DmtN8l7+vc/0VpfYjetEo
69TDOiy1FrNcw56Xu89Bzq/3XZ5nOL6y1P7O2Zo8K1mY45h58nGO8/Rd+jD+
3+Z8X9ef6Xnmuaavzw2Op3vPPs7Pcx/6Flnq6fe9EX5Vas8mM738O/9D0MfI
0CbXX+W4n/ObHZMh/p/o79wW58nRee65w3F/dbrcupFL+vuejsnqQPckq/x/
sqjU30jySG7IGLkks/yWHFGq98kAucHLeJoc4Dv8h6/xEX7Cs/gIP+HBv4XP
l+ox6kntR6r3NmtFvm8Jz5fa47dbn03qMsb77VBLPHJreKFUL/80vFJq/n4U
Xiw1x3eEl0rNyp3h5VK9+fPwaql+/GV4rVQf7QqvW+ffhDet1W/DW2r/u0Aj
Iwe/tsbU5/dMZ/4Pef6n1D7zQPiKuj0Yvqpu94cvqzN9if9F6GMPha+p5x/D
19Xz4fAN9bw9/KXUvvFI+KZ6Phq+VWqeHgvfVtvHw3fU84nwXfV8MnxPPX8Q
niq1f/4wPF1qBm8Lfy61p/04/LXUPkMf/Vz4b/hZ+HupWfhF+EepOb0rPFNq
Nn9Sqg/wAHn4Z6n5uCc8W2oW7g3Plert+8K/S/Xz3eFfpeYOb14dWjRqRq/0
vnhzZ2jZqOfd6Znx2hfCbo2aietDu0b17LWhdaN6Fn+2adT9bgjtG9WDXwwd
GtWDXwodM/5TnjeXmi/8e2PYvVH9fl1o26g+vSns0ah1vsVa44Vb9cPT3qW3
vsC3Q6z/HXqA+t+pB6j5Ndb9KfXfz5pca13wCFnAJ1td36pRz03NuQe/8xvV
HO/gf/yDX/BzkzW83jriqV3q/Ix6HmwNb7COz6oVe+I1sjPaut1o7fAdORrj
vmQOv+BBMoUPv19qjg63/jfpAe5Jb8Cn5ArfkbPnrEs/603ub1Mjcn+7upB7
/Iv/6BP4Eb/SA97273XOcTd6wF2emx5wt/XDd/d7T/rBPX43/eBez0oPuM8a
48cHrAe+eNgaU5MHrTEefMga40Fyj7fa6TVqg38fsQZ481H1xZuPqyk1fkId
8d2T1hJvPlaqBxd7D7y23LPgtRM9C15b7Vnw6VLv0bvUXktvwF9rvBN9dK3n
xUfrPC9+vETt8dTZngVfbPDseOFcz079t3h26n++HsDjx1t/snKhZ9lZauap
OR7fas3J8aXWGY8c5vt4mfzjO/x7hXXGv2T+EOt/mR7As9usP/66yjrjxx3W
+XnPhaZ4f7u+eMEzot3NaoQ+L3re5XphuN/3umfh9+c1z4iOL6sf9XjFO6H7
G54XTd/yO9ERD/ZTx13uh1/e9B7o/qr3o2b4tL9a4+tB6os3h6gp3hxqLfHm
MPXFmyPUFD+OUkd8OlJ98f5g64QHm9QUz45Wr5esG/7Ds2PV939KmMMX
       "]]]}], {{}, {}, 
    {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6F2EWfnxYmoHbRfIOrf1iXZYg/jN3Js
Vu+UnALnR0QuXP/h4xI4n/t/Y4y73Ho4XzXw3YvD3Vvg/PJzlvYzvuyE88W3
CN5jZNwP52975HzmvM0hOP9Q1lzpyDdH4Pyvarb8a3OPw/lMP1cLSKuegvPN
/idsC153Bs4/02Jy7pjWeThffsLrnyvfXYDzX3+/f++qwSU4f8mr3af4+i7D
+Xyyy98/eXIFzu/J3Jq2QOUanP/NYfWTjPrrcH6J0ZEtYodvwPn31x3pvqh4
C87/nXVltmbVbThf25H9X9ruO3C++yLF9I3i9xDhJRuv9DDmPpyv8yaU+7rv
AzhfmP8Dx5FfCD7L/tnrlec8hPOzTXbf5PR+BOev9kxasO8bgv/1tZTAs2mP
4fytwe7MU1yewPn1Hq3ztzxD8BXvet1Y3PoUzrcyb5kiafQMzo+RO/+T8TKC
//VU76OCxudw/gyWuJIglRcI99/buojpCILPWtsYYln4Es5nWBm3/pHQKzi/
aNb6XqFDCP5e7Q4OwbzXcL6gV5FOE98bOP+O7oXLlXsQ/A3z7FWexL2F82PX
mwnK/kPwG1oXNt5Z9Q7OX/tCdjafz3s4X6lFxIN9GYI/XZ776///CD4AkL+C
dw==
      "]]}}},
  AspectRatio->1,
  Frame->True,
  Method->{},
  PlotRange->{{0, 1}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.7646506489348173`*^9, 3.7646506667970552`*^9}, {
   3.7646509651819925`*^9, 3.764650982188757*^9}, 3.7650175680215635`*^9, {
   3.7650176456638575`*^9, 3.7650176768943*^9}, 3.7657756802768335`*^9, 
   3.7658176213936663`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Also", " ", "in", " ", "this", " ", "case", " ", "the", " ", "test", " ", 
    "always", " ", 
    RowBox[{"fails", ".", "\[IndentingNewLine]", "We"}], " ", "can", " ", 
    "conlude"}], ",", " ", 
   RowBox[{
   "as", " ", "discussed", " ", "in", " ", "the", " ", "paper", " ", "that", 
    " ", "the", " ", "test", " ", "always", " ", 
    RowBox[{"fails", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.765017681426138*^9, 3.7650177042770386`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "can", " ", "calculate", " ", "the", " ", 
     "\"\<Required K\>\"", " ", "for", " ", "the", " ", "test", " ", "and", 
     " ", "plot", " ", 
     RowBox[{"it", ".", "\[IndentingNewLine]", "First"}], " ", "when", " ", 
     "in", " ", "the", " ", "common", " ", "representation", " ", 
     RowBox[{"(", 
      RowBox[{"off", "-", "Equilibrium"}], ")"}], " ", "q2"}], "=", "K"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"qe1", "/.", 
     RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"%", "*", "p1mon"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"k", "*", "c"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}], "+", "0"}], ")"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{"kpe1constr", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"ContourPlot", "[", 
        RowBox[{"%%", ",", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"Contours", "\[Rule]", 
          RowBox[{"{", "0", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Plot", "[", 
        RowBox[{"%", ",", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.765017877024794*^9, 3.76501798950887*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {221., 229.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$19564$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$19564$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ContourPlot[
        Rational[1, 4] - $CellContext`c$$ $CellContext`k - (
          Rational[1, 2] - $CellContext`k) (1 + 
          Rational[-1, 2] (
             1 + (4 $CellContext`k) (-2 + 
               2 $CellContext`c$$ + $CellContext`k))^
            Rational[
             1, 2] - $CellContext`k $CellContext`\[Gamma]), {$CellContext`\
\[Gamma], 0, 1}, {$CellContext`k, 0, 1}, Contours -> {0}], 
        Plot[
        1 - $CellContext`c$$ + 
         Rational[-1, 2] (3 + (4 (-2 + $CellContext`c$$)) $CellContext`c$$)^
           Rational[1, 2], {$CellContext`\[Gamma], 0, 1}, 
         PlotStyle -> {Red, Thick}]], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {278., 285.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.765017921074936*^9, 3.765017958845891*^9}, 
   3.765017990769492*^9, 3.7650180283329782`*^9, 3.7657756920773754`*^9, 
   3.765817621413698*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Now", " ", "we", " ", "generate", " ", "figure", " ", "3", " ", "with", 
    " ", "the", " ", "second", " ", "source", " ", "of", " ", "asymmetry"}], 
   ",", " ", 
   RowBox[{
    RowBox[{"i", ".", "e", ".", " ", "that"}], " ", "referring", " ", "to", 
    " ", "marginal", " ", "cost"}], ",", " ", 
   RowBox[{"c", "."}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.765775779459795*^9, 3.7657758147465734`*^9}, {
   3.765776482671138*^9, 3.76577650258785*^9}, {3.765776543654048*^9, 
   3.7657765684317303`*^9}, 3.7657935764007645`*^9, 3.7657968271040125`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cpe1constr", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"kpe1constr", "\[Equal]", "k"}], ",", "c"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7657892472871256`*^9, 3.7657892759424815`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"8", " ", "k"}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["k", "2"]}]}], 
  RowBox[{"8", " ", "k"}]]], "Output",
 CellChangeTimes->{{3.7657892566740417`*^9, 3.7657892762057905`*^9}, 
   3.7657936117572355`*^9, 3.7658176214325275`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "First", " ", "we", " ", "see", " ", "the", " ", "case", " ", "of", " ", 
    "exclusive", " ", "constrained", " ", 
    RowBox[{"price", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tmp", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"krconstr", "\[Equal]", "k"}], ",", "c"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"tmp", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmp", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", "cpe1constr"}], 
     "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"cTESTconstr", "=", 
    RowBox[{"tmp", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7657765920945663`*^9, 3.7657766769445267`*^9}, {
   3.765789034995672*^9, 3.765789122508584*^9}, {3.765789224478115*^9, 
   3.7657892356113377`*^9}, 3.7657892838134184`*^9, {3.7657893434708605`*^9, 
   3.765789349167624*^9}, {3.7657961877636895`*^9, 3.765796197284227*^9}, {
   3.7657968605565424`*^9, 3.765796861137987*^9}, {3.7658018345011425`*^9, 
   3.7658018479817615`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", 
        SqrtBox[
         RowBox[{"k", " ", 
          SuperscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "+", 
            RowBox[{"k", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}]}], ")"}]}]], "-", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", 
            "\[Gamma]"}]}], ")"}]}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        SqrtBox[
         RowBox[{"k", " ", 
          SuperscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "+", 
            RowBox[{"k", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}]}], ")"}]}]], "-", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", 
            "\[Gamma]"}]}], ")"}]}]}], ")"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.76577660500988*^9, {3.765776645399681*^9, 3.765776669306133*^9}, {
   3.765789023951182*^9, 3.7657891228357067`*^9}, 3.7657892254315643`*^9, 
   3.765789284066785*^9, 3.7657893494578495`*^9, 3.765793625390767*^9, 
   3.7657960446630497`*^9, 3.765796197747026*^9, 3.765817621667938*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$20011$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$20011$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[1, 4] (
          2 - (($CellContext`k $CellContext`\[Gamma]$$^2) (
            4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) $CellContext`\
\[Gamma]$$))^
          Rational[1, 2] - $CellContext`k (
           2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), 
         Rational[1, 4] (
          2 + (($CellContext`k $CellContext`\[Gamma]$$^2) (
             4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$))^Rational[1, 2] - $CellContext`k (
           2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), (
          Rational[1, 8]/$CellContext`k) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2)}, {$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.76577660500988*^9, {3.765776645399681*^9, 3.765776669306133*^9}, {
   3.765789023951182*^9, 3.7657891228357067`*^9}, 3.7657892254315643`*^9, 
   3.765789284066785*^9, 3.7657893494578495`*^9, 3.765793625390767*^9, 
   3.7657960446630497`*^9, 3.765796197747026*^9, 3.765817621672906*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "-", 
    SqrtBox[
     RowBox[{"k", " ", 
      SuperscriptBox["\[Gamma]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"4", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
       ")"}]}]], "-", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.76577660500988*^9, {3.765776645399681*^9, 3.765776669306133*^9}, {
   3.765789023951182*^9, 3.7657891228357067`*^9}, 3.7657892254315643`*^9, 
   3.765789284066785*^9, 3.7657893494578495`*^9, 3.765793625390767*^9, 
   3.7657960446630497`*^9, 3.765796197747026*^9, 3.765817621673916*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "see", " ", "the", " ", "monopoly", " ", "price", 
     " ", "case", " ", "when", " ", "in", " ", "common", " ", 
     "representation", " ", 
     RowBox[{"(", 
      RowBox[{"off", "-", "equilibrium"}], ")"}]}], ",", " ", 
    RowBox[{"q2", "\[LessEqual]", 
     RowBox[{"K", " ", "is", " ", "binding"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ve1", "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", 
       RowBox[{"q1", "\[Rule]", "q1e"}]}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1mon"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"v", "-", 
         RowBox[{"p1", " ", "q1"}], "-", 
         RowBox[{"p2", " ", "q2"}]}], "/.", 
        RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
       RowBox[{"p2", "\[Rule]", "c"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", "q1rationed"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "%%"}], ",", "p1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1HMonkbind", "=", 
    RowBox[{"%%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.732973153877777*^9, {3.7329731893808765`*^9, 3.7329732078085613`*^9}, {
   3.732973664858488*^9, 3.7329736852584877`*^9}, {3.7657936881139774`*^9, 
   3.765793694834005*^9}, {3.7657962430867248`*^9, 3.7657962872416286`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "0.7350510257216822`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "1.2249489742783177`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.7636436724463573`*^9, 
   3.765796258191326*^9, 3.7658176218823633`*^9, 3.7658604586746664`*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"1", "+", 
     RowBox[{"4", " ", "k", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]}]]}], "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.7636436724463573`*^9, 
   3.765796258191326*^9, 3.7658176218823633`*^9, 3.7658604586766467`*^9}],

Cell[BoxData["0.7350510257216822`"], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.7636436724463573`*^9, 
   3.765796258191326*^9, 3.7658176218823633`*^9, 3.7658604586786423`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"q1e", "/.", 
   RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"tmp", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"k", "*", "0"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}], "+", "0", "-", 
      RowBox[{"(", 
       RowBox[{"%", "*", "p1mon"}], ")"}]}], "\[Equal]", "0"}], ",", "c"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cTestmon", "=", 
   RowBox[{"tmp", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.726988357328991*^9, 3.726988464220191*^9}, 
   3.726988512236991*^9, 3.727266320968094*^9, {3.732972712029488*^9, 
   3.732972782204488*^9}, 3.732973236466292*^9, 3.732973627155488*^9, {
   3.7400722937561464`*^9, 3.7400723872256513`*^9}, {3.7400734392299027`*^9, 
   3.7400734432004595`*^9}, {3.740114069881284*^9, 3.7401140836609297`*^9}, {
   3.765793708757765*^9, 3.765793722601737*^9}, {3.7657937600156717`*^9, 
   3.7657937693457174`*^9}, {3.7657952133624225`*^9, 
   3.7657952196087165`*^9}, {3.765796545546974*^9, 3.765796583239007*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"c", "\[Rule]", 
    FractionBox[
     RowBox[{"1", "-", 
      RowBox[{"6", " ", "k"}], "+", 
      RowBox[{"12", " ", 
       SuperscriptBox["k", "2"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "3"]}], "-", "\[Gamma]", "+", 
      RowBox[{"6", " ", "k", " ", "\[Gamma]"}], "-", 
      RowBox[{"8", " ", 
       SuperscriptBox["k", "2"], " ", "\[Gamma]"}], "+", 
      RowBox[{"k", " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "3"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "k"}]}], ")"}], "2"]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.765796551079214*^9, 3.7657965836319923`*^9}, 
   3.7658176219042997`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"cTESTconstr", "\[IndentingNewLine]", 
 RowBox[{"cpe1constr", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1e", "/.", 
   RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", "*", "p1mon"}], "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"k", "*", "0"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}], "+", "0"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0", ",", "1.1"}], "}"}], ",", 
       RowBox[{"Contours", "->", 
        RowBox[{"{", "0", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%%%", ",", 
         RowBox[{"1", "-", "k"}], ",", "%%%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1.1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", "Red", "}"}]}]}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7400720399651966`*^9, 3.7400721312368803`*^9}, {
   3.7400721810824413`*^9, 3.740072211963564*^9}, {3.740072468741439*^9, 
   3.74007251728353*^9}, {3.74007297315242*^9, 3.7400729739014444`*^9}, {
   3.740073084442377*^9, 3.740073127255234*^9}, {3.740073293926479*^9, 
   3.7400732996236353`*^9}, {3.762845408838872*^9, 3.762845509066807*^9}, {
   3.765793749816949*^9, 3.765793808478056*^9}, {3.765793839016378*^9, 
   3.7657938870628753`*^9}, {3.7657941311689963`*^9, 
   3.7657941366892323`*^9}, {3.765795237090958*^9, 3.7657952453937516`*^9}, {
   3.7657953048986025`*^9, 3.765795355916154*^9}, 3.7657965719571805`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "-", 
    SqrtBox[
     RowBox[{"k", " ", 
      SuperscriptBox["\[Gamma]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"4", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
       ")"}]}]], "-", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.740072193616767*^9, 3.7400722125671773`*^9}, {
   3.740072475543523*^9, 3.740072517795896*^9}, 3.7400730886135025`*^9, 
   3.7400733010153294`*^9, 3.740381460467809*^9, 3.74074110953763*^9, 
   3.740801333330766*^9, 3.7408274342181797`*^9, 3.7628449760284543`*^9, 
   3.7628454402229347`*^9, {3.7628454974169645`*^9, 3.7628455094068966`*^9}, 
   3.7636436733110666`*^9, {3.7657937781421905`*^9, 3.765793808676524*^9}, 
   3.765793839694603*^9, 3.7657938875176954`*^9, 3.765794136864763*^9, 
   3.765795245866522*^9, {3.765795305259637*^9, 3.7657953562542477`*^9}, 
   3.7657961386973004`*^9, 3.7657962700915003`*^9, 3.7657965724737988`*^9, 
   3.7658176219122744`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$20630$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$20630$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ContourPlot[
        Rational[1, 4] - (Rational[1, 2] - $CellContext`k) (1 + 
          Rational[-1, 2] (
             1 + (4 $CellContext`k) (-2 + 2 $CellContext`c + $CellContext`k))^
            Rational[
             1, 2] - $CellContext`k $CellContext`\[Gamma]$$), {$CellContext`k,
           0, 1}, {$CellContext`c, 0, 1.1}, Contours -> {0}], 
        Plot[{(Rational[1, 8]/$CellContext`k) (-1 + 8 $CellContext`k - 
           4 $CellContext`k^2), 1 - $CellContext`k, 
          Rational[1, 4] (
           2 - (($CellContext`k $CellContext`\[Gamma]$$^2) (
             4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$))^
           Rational[1, 2] - $CellContext`k (
            2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$))}, \
{$CellContext`k, 0, 1.1}, PlotStyle -> {Red}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {278., 285.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.740072193616767*^9, 3.7400722125671773`*^9}, {
   3.740072475543523*^9, 3.740072517795896*^9}, 3.7400730886135025`*^9, 
   3.7400733010153294`*^9, 3.740381460467809*^9, 3.74074110953763*^9, 
   3.740801333330766*^9, 3.7408274342181797`*^9, 3.7628449760284543`*^9, 
   3.7628454402229347`*^9, {3.7628454974169645`*^9, 3.7628455094068966`*^9}, 
   3.7636436733110666`*^9, {3.7657937781421905`*^9, 3.765793808676524*^9}, 
   3.765793839694603*^9, 3.7657938875176954`*^9, 3.765794136864763*^9, 
   3.765795245866522*^9, {3.765795305259637*^9, 3.7657953562542477`*^9}, 
   3.7657961386973004`*^9, 3.7657962700915003`*^9, 3.7657965724737988`*^9, 
   3.7658176219192524`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "The", " ", "white", " ", "area", " ", "is", " ", "the", " ", "one", " ", 
   "where", " ", "the", " ", "unconstrained", " ", "pricing", " ", "occurs", 
   " ", "in", " ", "exclusivity"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7400728107906365`*^9, 3.7400728576583033`*^9}, {
  3.7400732644891996`*^9, 3.7400732655019054`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"The", " ", "relevant", " ", "boundaries", " ", 
    RowBox[{"are", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"cTEST", "=", 
     RowBox[{"Min", "[", 
      RowBox[{"cTESTconstr", ",", "cTestmon"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"cTESTconstr", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cTestmon", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", 
         RowBox[{"1", "-", "k"}], ",", "%%", ",", "%%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.726988694148591*^9, 3.726988769746191*^9}, {
   3.726989344962191*^9, 3.726989383244591*^9}, {3.7272663886568985`*^9, 
   3.7272664217264986`*^9}, {3.732972789818488*^9, 3.732972803477488*^9}, {
   3.7329732807061377`*^9, 3.732973285330063*^9}, {3.7329735456883082`*^9, 
   3.7329735461693563`*^9}, {3.7329735793726764`*^9, 3.7329735831470537`*^9}, 
   3.7400714607374763`*^9, {3.7400724030006504`*^9, 3.7400724263517027`*^9}, {
   3.740073132385877*^9, 3.7400731376569405`*^9}, {3.740073471647107*^9, 
   3.7400734962816257`*^9}, {3.740073611596332*^9, 3.740073611904185*^9}, {
   3.7401142199156427`*^9, 3.740114239282143*^9}, {3.7405733711032915`*^9, 
   3.7405733782001762`*^9}, {3.765793920175313*^9, 3.765793967429928*^9}, {
   3.765793998380149*^9, 3.765794007121769*^9}, {3.7657965964227643`*^9, 
   3.765796653552947*^9}, {3.765796725453643*^9, 3.7657967516179075`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.459, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.2}, 0, 1}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$20647$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$20647$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{(Rational[1, 2] (-1 + 2 $CellContext`k)^(-2)) (1 - 
          6 $CellContext`k + 12 $CellContext`k^2 - 
          4 $CellContext`k^3 - $CellContext`\[Gamma]$$ + (
            6 $CellContext`k) $CellContext`\[Gamma]$$ - (
           8 $CellContext`k^2) $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - (
           4 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
            4 $CellContext`k^3) $CellContext`\[Gamma]$$^2), 
         1 - $CellContext`k, 
         Rational[1, 4] (
          2 - (($CellContext`k $CellContext`\[Gamma]$$^2) (
            4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) $CellContext`\
\[Gamma]$$))^
          Rational[1, 2] - $CellContext`k (
           2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), 
         Min[(Rational[1, 2] (-1 + 2 $CellContext`k)^(-2)) (1 - 
           6 $CellContext`k + 12 $CellContext`k^2 - 
           4 $CellContext`k^3 - $CellContext`\[Gamma]$$ + (
             6 $CellContext`k) $CellContext`\[Gamma]$$ - (
            8 $CellContext`k^2) $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - (
            4 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
             4 $CellContext`k^3) $CellContext`\[Gamma]$$^2), 
          Rational[1, 4] (
           2 - (($CellContext`k $CellContext`\[Gamma]$$^2) (
             4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$))^
           Rational[1, 2] - $CellContext`k (
            2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$))]}, \
{$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.2}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7657966451295156`*^9, 3.7657966540476604`*^9}, {
   3.76579674109505*^9, 3.765796754982936*^9}, 3.7658176219362116`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Figure", " ", "3", " ", "in", " ", "the", " ", "paper"}], ",", 
    " ", 
    RowBox[{
    "as", " ", "for", " ", "the", " ", "elements", " ", "on", " ", 
     "welfare"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"cWelfare", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cDWelfaremix", ",", 
          RowBox[{"cDWelfaremix", "<", "cmix"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"cDWelfarepure", ",", 
          RowBox[{
           RowBox[{"cDWelfaremix", "\[GreaterEqual]", " ", "cmix"}], "&&", 
           RowBox[{"cDWelfarepure", "\[LessEqual]", 
            RowBox[{"1", "-", "k"}]}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "-", "k"}], ",", 
          RowBox[{"cDWelfarepure", "\[GreaterEqual]", " ", 
           RowBox[{"1", "-", "k"}]}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"parameters", "=", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", "\[Rule]", "0.4"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Max", "[", 
      RowBox[{"cTEST", ",", "cWelfare"}], "]"}], "/.", "parameters"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"cTEST", ",", "cWelfare"}], "]"}], "/.", "parameters"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTEST", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"1", "-", "k"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cWelfare", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Figure2", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", "%%", ",", "%%%", ",", "%%%%", ",", "%%%%%"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "K", ",", 
          "\"\<\!\(\*SubscriptBox[\(c\), \(2\)]\)-\!\(\*SubscriptBox[\(c\), \
\(1\)]\)\>\""}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}]}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "8"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1.1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Arrowheads", "[", 
         RowBox[{"{", 
          RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Filling", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"4", "\[Rule]", "Axis"}], ",", 
          RowBox[{"5", "\[Rule]", 
           RowBox[{"{", "2", "}"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"FillingStyle", "\[Rule]", 
        RowBox[{"{", "Gray", "}"}]}]}], "\[IndentingNewLine]", "]"}], "]"}]}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure2.pdf\>\"", ",", "Figure2"}], "]"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7657917702250133`*^9, 3.7657917771335354`*^9}, {
   3.7657918879598236`*^9, 3.7657919001492224`*^9}, {3.765791932802888*^9, 
   3.7657919942146378`*^9}, 3.7657920664683895`*^9, {3.7657920982075014`*^9, 
   3.7657921313668237`*^9}, {3.7657922899506702`*^9, 3.7657922952624645`*^9}, 
   3.765792650248581*^9, {3.7657927041673737`*^9, 3.765792746970893*^9}, {
   3.765792779540782*^9, 3.7657928046785493`*^9}, {3.7657928967847557`*^9, 
   3.765792922487013*^9}, {3.7657929563058906`*^9, 3.7657929846440983`*^9}, {
   3.765793023340602*^9, 3.7657930663844786`*^9}, {3.765793106412031*^9, 
   3.7657931214907045`*^9}, {3.765793278301891*^9, 3.7657932834800415`*^9}, {
   3.765796886194971*^9, 3.765796906231382*^9}, {3.765796967550435*^9, 
   3.765797121708129*^9}, {3.7657971966227646`*^9, 3.765797224685708*^9}, {
   3.7657972622681913`*^9, 3.765797293627319*^9}, {3.765797326173272*^9, 
   3.7657973574805384`*^9}, {3.765797436805379*^9, 3.765797468209387*^9}, {
   3.7658552101767673`*^9, 3.765855211017519*^9}, {3.7659725863849783`*^9, 
   3.7659726299872785`*^9}, {3.7659730997735896`*^9, 
   3.7659731035026464`*^9}, {3.7659731603814297`*^9, 3.765973187871931*^9}, {
   3.7675307093108845`*^9, 3.767530713179613*^9}, {3.7675310861447697`*^9, 
   3.767531087039096*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJztfXlUje8admRIUSmaCRUhSVKE7krSPFDm5gENSiUiyVCSEkoqRZrQrFnj
rnbzsPduj6Vx70ZKEirE95z1nd7zrayz+qxz1lnHbx3/WO/a77af93nv+7qH
63pua61dDtrNZ2Nj27GIje1vf+vYDZJwQ6YqbH//40G6Uu7+gQVCZguuCIkz
YPa19niCMUOcDjP3NwROqulu+sf1I3Guzz9/jmLXn9fv5UlzrgEXniCeF1a3
YP5UCq+oVD3Etvcd/ZGWDoo/LfMOpTdC1LMNHaOMfGi8qdBcvYkAE0+1dqov
LAXxe++mXr4ngtjLMdIXp3J4N9HVSZVrgYfyk2eapysg4W1RPfddMqjUiDgt
FsID96rno729FLjWPLXlXSYegs7k2sdK0oBr+7UbP3vx8EU1pff0VTqsZHN3
eKJVAx7y+ByBSgbUHV6xzvZLE3Sl4++Q1rbB9Z/G5oneJPjmQHm88dIbIP2s
uda2nwyb1Rb/sC9qh6PXLT52BFDgQNzaU68EO+G7bJKm70MqXFhlsa7nZBcE
L3kd+t2UBjLDplx0/W7QcYpzTx2gAT/PBw78126QEd0u2WxOhwVljzMkonvg
bDo7sSODDo4KRa1LdJlQsg/fazFMhxRt69jSL0yYaqxsseZlwOd3Irz94SyQ
0WuoE13DgNxDB9jDNHoh/Oi5KbonHa5q+T3N6e+F+S6fceHyNFjbocOI9+uD
0v0OhgWfKKCsdDNMWL4fgu5P0Bofk+HkasLUPHI/aFVaLf1+rAU+1wczXa8N
gIBDr/LqaSJELDD3OCg5CLEjt2TzzhKAvzM3bj5+EHJuSZ//PNoIC69cM9l1
bgiGub6mieyuB7aX5hlMvrfAdtJP/XxODbhFZQTzVbyFneFqdbkTeCjZHMCx
/Ow7WGrc1VF0oAKW67jJXOcehosZztHv75RB+xYi2at4GNbc97HaJlYImU9A
std8BHw52Ts7OXLBLENx+aofIyDkp+MpyJMJvn7PrrUnvwe2FwN9SgcTIW1w
1WNuvVGwfKseLeMTDv+PPbb8zc6/h3zisa2rhWDWScVw1XgQ8/a3yT/TAFNi
7YYGQ9kwr0JHPXi4CcT7bV5+21QE6kPXMxepE+HOln02mw7hYCHebrgshASV
MVw35LUqQGusycStqwX0laUV46IrofXGtg6vXRSo4+pMUnfDg/4+2ZSKm1R4
q+v7jEHBg5ppZuKCFhpIhKzYs5qJh9zX+Y2wlgEpe9gf24/XQ7KrxhoPt1ZY
xEy4cOUIEUaCGkOnm9rg46Nhr51uLcBPG9GrFWmHl2UNN5vHyPD6XJh80JkO
OCFJfXFYiApdFjgN7cJOeHvU5uLQNyoMXvKLPvC9C9iEHzIfxdMgdnpdoH5C
N0yfCG8ibKDD0oH97e66PRBXXCodH0iHAq8UfPh4DzR0iFZYkejAVca9tzeW
Ccbay9S45jGAGKVytEWTBVwXX4+oiDCAKv5qSckIC+5FH52nto4BIgb2xgkP
e6HRZrtZPoUG626u0FqcNAq+E51ft/j4w8U3ESEBorUAvf6rLsVFQoiysPKZ
mnr4vrL041juK4juNvV21W8C993ckX33X8OLzTGCDnQCyI7rbTWzLQO+ZOlx
BSDBZhXtr3e6yiHqE01YMqAFrlbIO/YbV4JK/pdDeBYZ3HkkLKu08CCb6dBE
VqDCEbllJReq8GDfJe9/8DIN4mvCaIL9eDh85dVREyLyG2q2VKpiHYQY33So
EmkFufDjjw9aE6A/pjZk4EIbWCYMRYh+J8GtNVafLta/AcGxWpfEJ2Rwa9WP
8OLrgJPLqtq5yRTgnzdmOn26E9oNdq05Uk8FOT03i7DULoi3er6Qy4cG/R7F
Onxe3dARd4E8xkEH3m9RH0UlesAwYdPuh+fpYB4todxR0wP0ii3ZXuV0KJqy
5Zo4z4R7LoE99hN0UHEz8q5dzQI75eNq1JUM6FvYH2RcwQLm0+3MXGRHg8TD
m8Sce0HO/GBKjRQdTitGjnF6Ifvf3tr4rPMeXNUwugcX6uCuOXnk1raX8LJk
PGjh0kbgupqwgfdTLtjHA0fynWZ42X/74qakYsjco2R6NIIICt7vH1zux8Fk
R1yfTjcJOljPL7o/r4AvI/gQnCIZvmQtSbzZWQkeRk72W0MooL6+qLw9DA9O
tLGAVxQqZN3QzdfqwsNMvAgKyyxaz1YFK76UqG52Y0CwV9aSOP9GwIcsoK2r
b4Vov5oD4h+I8Oky8RG/5BtY6Nezugf52dM7lxIFHdvhkYiEfTlQgI3zTeMT
XAd8HH7Zv/QYFVJKQ7Y/5OqCbQa3dE5togHRpNFpWqob2Fu3vaispsFx/9t1
AYRueLHMm99Ogw4c5A9VDe49MO1GruV8Qge+I9sNjcTRfp96l/iiiw4nbhac
JTWg6yVcXceXMMC6Ukah/SwLLg/Y979YxYCqXd7+0sK94Bm0eDy9iQ7tpJAn
7GS033yCBXI+nqA4z5EQha8Bq3UOkteaHkBtpLWUumc9NJ968GVVUCYMuZwQ
Zk43wqPK4IFbrwtAmTHoJnSNAGNfpoIfFJSC0KpAz1EBEmRsbt0a8Lwc1D1P
fPc+2QL9Ox19uTdWwpjRsZChAjK08EeFmmzDw5P+APP2pVRY/zyvqK0ID16S
Hp5ThjTY92Atfhuy9/UW6U86n9PBf5uovK1mLcxXT+B5/54BfpLjuMDMZrBO
qg5u12uDAKtRx8clJCivEtEyjnsDPyOLzn1zI4NB8CbdD/3tULPovn1kOgXS
jG+bH1HthE8PU88eyaQCJWcQV3izC+pqs9ccdqDBbbklKR423bCkcYjvySQN
+Pyqpke5e6CXROV2cKDDq7QuD7asHuj8WerGKqADv+A9N19LJkwbxkfzfqTD
J7Njdys5WXB2PiV/Lz8DRi76Nj9OZUGn52ljLmTvBnwEAcbRXrB9Y9ViaECH
wJAT1UHWo4DjvqtwKj0UVBzWEY3X1IF2piZBUSsJmGJ7L3YWNkAn83DAw/Ec
yJHfnyi6pxn2fuJZLj9cBFN8Hde3OqO4JyH4+NITHPwwWnBmYQEJlLf1+U5c
rICnLtpuwlxkUNQ+VZdUWgnr3zY/M7GlQFOI6VX7m3hoX8orUphKBatHEcop
bQh/eF1yzaaR3b23s9bvxEMvvdA/VxvZjcwdVn15Ayj5Sl7WfdIKOINQpzOJ
RHC92fyQY6oNEhd9P8yd3AKtcgpTo+rtENjS6n1amALtJflXVz7sgLRVyztU
dlFhP4/0nlFmJ2Rok0UD+BHe3r4Vw8vXDWv5xyYv5NJgWo228d3rblgW9ijL
SpEOnGaipKcWPWDVEBwbGEYHu9Ojt92XMIFQdFm5gEGH7Gcs6vE8JtSvO95y
ciEDhDN2aNKPs+CwxEoTfjEGNKUK1Lqx94J9UouLyBQdfm466O5XPAqqquc3
x3f6wpjbQaWG7BYocnd1PXWxEoJWhQk95aZAtK+XqL05Hkq99PY0nET2OSrA
rGvCg0nU2MOUJBoELvP2fo3yM5v2XQnOd5ig4uR63fY7HW75H3BokmcB+cq2
6E1CDOh4oKu7mMGCBSnJeWIo3pTnLdnMWUiByvSnspnxePj+lDzx4juKgysX
vs9H8XWJ/zCFx4QOUvYfojZJVwP7qeDFWj1M+CrPvmDxMgak0iXW9VxnQYw2
Zy4bym8LLzbVXRtC/qt5S17Rxx4EVpiMSkTWAPehbz2J9+6Cnfbix+n69WB0
1GvhdF8GGPieXUylNIKj3zf1FM0CuJF+N3bUlABf48WXdlmUQjRNuaBxPgnS
3h0+8SCwHATyY5xfarZA3gOfh8X8lVAfw7nFO54MlmlLTN5K4oE2T+h59yQF
VjVmVwbn4WF+Tdh7PWWULxD4XlT0ofyWmFoeH0qHoYc2opp1NbBbWcF6fisD
HHwtpoNMmiE2uWrpEaU2MBuzUjkXQwLziIlze+++AYjUa4w6SYY9AxEJm0nt
wPb5g1zfYwp89aJaL5DpBJ3IAfnF8ei9DMWPNbl2geKh8h0qlshu7259k3i0
G7jan6rt+oD8t/44e9uCHkivSj2WbEuH43l7+fie9wD+fmTu2Rw6lCVKra8y
Rft7IDB13ygdiGQzwXI2FmiepVcyljPgXJb+KO4ZC1RtnVWjUf46fzvXsjyD
XvgeOdQXak0HseLiTP0jKF/wPj2oLfAQVl3h+tD2qRa+DwbYatQmwNXGnhGd
Bw2QFmL5JdMlB45/rXE3WdEMeZpBateDimD1jwzhxyhveualz6fihYPrnLnJ
zHgSyLA3r+uyrACPzDus/Z9bYNsTHt23aZXApuQLAwYojjzx+Bx4GQ8rpJ9a
l0ZQoURrmm2IjoeCrJAtr1DeHvqtgudkNx4atV6/vLQDxSsVn2u0Ew3gejGn
ySKgFaI8cac6fIiQHtC04garDZLeWh6xu9sCnuzLJdpl22HFFjsb/EIK1Auu
bzW62gEuVc5J76Wp8EDJQzW6uRMsG5YuJy2mga5E3w4Rjm4YkxLLj0qlQfPT
78fEMrph1wChbtNWlI/FZdJum/ZAU8vqj/EhdOA+p7/B70cPHHvLzxKm0sFC
zuv20xQmPFUODFNhZ8AnSWUCxYgFiWavlm4TZYBxP2vw0SQLzLfvlCVyM+De
kWwzzVfI3sU2hZ5OvwHV2WEvJmJaQJd+odjVrhLsHPbnbZsiw5JHl342H0L1
U9ibmwQtKsTHmmfV1eGhYw8f9897NPhx+mjJPWSfPI6EI1m+TMCvWZH8AeGD
9Xfd8XppFgg+Fl7HIcgAq0YhJ5kmFiStjMscQ/gdxV5UG51AAVkN002XovGg
UGStmjZIBb7eLxlSPXh4IL1M30YF1WtGG5YN3quCjM/rioJoTDgmIrFyNxcD
bulLp3ReZAFpyOH8ydUM0E2UzVHvRPZzPG0wsdMV7BumVjLWUIGpcHc5GYeH
D9cO/Ui0o8H2jMdUfRQPz0B2mmc+Ws8wQfIMWk/CmC8pF0eF9OuDW9Z04CHR
2WAvJz8dqqMWrhx/gweVXdtKWm1ZkHD7fn8fwkN/85LxalcqHLqrscuLhIf6
CeKqo8U0SGz4MD+UhYdjx3w2MZkskM2zEFFCeIW/qZGRwEuDlZk3NNgQ3hGt
xCNZQSxgeOlUP0T4I63n1IX7hN5H5qkNaj6HwT9G6+rpGzVQdM5quGY6EBSe
tVJtd9VD9+3ww/k6GWDzWNxQqaIRUvOrxLuWF8CLSCulE6oEqLssqd8sX4re
M/+xokkixBa1ubVeLgdfukpS2e4W6B0s2dzKUQlKGqzLVRFkaL8YwR2wGg9u
IRYNzPcUMFjvtKcmGw8HhBKTPbei/EGvO8kRvd/rHDKH/G/TkX+oHbC/XQNH
Fb3vLG1mwA7Bkp1lUs2Ak9mvFybTBnLE+nrxYBKkzuv3337zDezsXlqkaUwG
hRVGxtrV7bD09DcupwcUWHP3W2/b2k7Ys1ErVieaCgY35gXS7buAdDsiYd0J
9Lsl6u4qh7pBeG0qc+IdDR44SS0i/OwGaWshSpkVHTIKh7ujnvVAMX64cWMW
shPnD1dPGTHB/OeR55QROpRyd78p+8aExMfHR8QR/mw3zLl6KJoFLXFHFMwR
/pzct5EjUbsXtLzSRnOd6GB7cEQq3RjZT7ap+u76hxC0iM1XvKsWir0cD51a
mAAGkjnS83waoGO9qBBRJgdkzZe8cWVrhl118vu/niiCTHfhPqIeEXBj70wN
7XGgcSpYlxRJAufOhMuPTSqgkygjdvJtC9TyerQcSawEp46jd+U0KGCbsuDK
J088ZOb2++PuUmHjtxUJDjQUz9hjh9raaTB2FPCayB9Ur+3cbbYZ+fUN8YjR
DQ0Q7PH9y5krrXCupOGIliMRmjn1TXCMNvj2+dYjC98WwDv9VGqRbAfOibNV
5G9kqNDo8Dvr0QGxIoU5KcgvCnSjKtzwnbBiWa4Vax4NLD/wzxdn74bskI5F
q1/QIL+Z52POy274/tiOem0zyts1Lrf6GPVA0gV96vpgOtic//552VQPNIap
8KqR6ZA7sY+llsSExdsp9zbMZwDTojiUrMsCR/YjX1+jepH/ho7XpnEWtE05
LEsRZkDrCKslKQXla7cXHNAV8AM5yo6eZaEtYNPTLl16ohJaeFcvvPyeDHb7
OCKOGiA8WCfxkqRChdDpkz+Ta/Cw7u66eml/GnztnjbrRPZpJx/1yuQyE8IG
j91Kn6SDkVJzfp0EC/wutOFcBRggcebq99IaFqyO6OilIn9fnBwq2B9JAWdZ
pwsFEcgftZJtMzqp8GOJRoQqwnu616olwdtRXvSZvMRuXxUsLBlZsZXEhBSr
df76nAzwCEh26XBnQSt9KHIBwp+w3RYb4xnIfxWtjRzT3WH+MTXlNgEqpN02
cbQqRfhGtikkHKdBK7/Xah2EP5vbhVWWZLGAP/Kg5R60HtWrtZ/z86ggMipn
OIrw5m2p+dR2VCfycNU824jwSMYj+xrDggVV+XX3fRD+rBteIFRnT4VlX3ij
UggIf7V7Wq+9okHXpnlCcghfRL/0Fnp0sEDYyP3rZoQ/lnxB5KRFNFB8LKFt
h/CpNPqZGfMWC5JHzqzVR/hzjhltsnYUrT9klU1KpyWUnr8pL7Ef2Z+xwvMF
aL0ZKwfMZZ+z4NFl0XEq8p+LUUdUiuOo8G3/JcqhVjy4W109d+sjDdQPLN9t
juq9iHfzDlIf06DyeivfVvR+nm7NehPZwoKNPIY6S9B6IraIiqV8pAJPErfw
JLLvFLl96t6uNKjdmMaxF/3e8zi9Vb3FyF9NmuPvo/2xFFO51r2KDjGTJfSX
KL/2T8JZydbQQEAx6jgT5XuPigWjDAdZkP5ltagK+velJ74HxonQ4IsGz9cA
tB/dubsdLL+i5/OVXn7ERxNUmOo1gRdrQNqCwOiRuw2iTerjsLUe+ETYL97+
ng56+rjr+wsaYcOLUaeLn/NBmadh/v0dBBBIzigRFCuFUqurL7PGiRBJlzN3
9iiHvFMhFTqKLSDKYVN4lL0Szj4ylHAIJYNItFyQrijy38M3OlhDFGjwEBw8
kYXer2paABeqU9VuXtq9E+1PccK7xxdu0uGuz+588TM1YK+wJvZ+LQOqd3tc
k+BuBuLIgmH5DW1QJRBRPHCTBCaKZvdlr74B/x7b56G6ZMhMTtnAwLVDBMd4
7PNgCihEcK+vFuuEHVycsgMor7E2kjvcbtUFZ5XURu4dpUGBiV5ZoFE3JPYr
nyUP0aClJPCW9nQ3eFJWMA9Y0qFtj4ZW15MeOPg+7tWCV3TAEampBfpMSLso
/0ME4auCzFoVmGLCJ6nuwXJeZP8xAzXRkSz4GrTtzl5kHwG6BX5iB3rhw+mQ
T9Xn6BAQ42fZaYD231BvdLtkOGjofq1Ro9RCEm5Z5N74eNhhtEqz3b0BUjrK
T0lw5YAQbzL31S9NILFrW9vtfUXgJdtc73iACMmpu5MrT+Ig4eHU49owEpwv
fZLmaFAB/FZXdg70ItwjpDrNe1YJcXJVO6gqFND9eJ7tqQcefLw5I8tvU+Gr
oaZwAhXVyzIvalzoNOAQCBjKQfZ3adXkDYP1DLBwiL9XtqwBot1iuUYvtIKv
rnnGGSsidDYs/WROboMz6z8qG3m1gNMzT/Um8XbQlwktJn8hg8qbnSenz3ZA
6N1ojxtiVGg0TWM3L+sExkje54EfVHh7ePPpZ2zdsMlFXrI9kQYy9sIq8553
g8sC6qeXG+nQ+LD7+JR+Dzyi3iX13UF2MHHI7OCXHuj3WL/rYAsdLE9s5A2N
Z0J2Rwdf1DwGHLsy/fmgNgtUBsLHvUV+7df/2Om9jP4CxTPcWOyeej+ws/Wf
jghugezlPuO0w5XAYRuYKj5EhsuuEpEPdPFgOaRZ1ILqShd3to+h1XjA5216
UeKL8tBKuWfTyD55w692Jl5kwtGNmnZcCF9rTHhEtNeyYNcRGT8JhK8387M0
OKpYcMgry6Ea+avK9M/SwDAKrE4P6moKR/vN0+yZ2UqFKt6Y+TUIHy7FSQ2s
laXDs/HyuvViVZC5hqzm28wEXOYPKmUJA94lviOdPMeC0GuOu+mrGFDgP2FD
piL7SdizwEDgPBDF7fTeLKfCF8W4vDUlqH765hhha0oD/rsvbqki/AjapO9/
MIMFR40vWUui9XBrDi9+/YoK0d+OpRkifA0asKfXzqeD6bPDHSUIX+Puf2Id
MWPBk1BjV22Erx+ypDfVW1Hhwkm2fSXNeMg6N5QvgPLyaQ9p9QsIT7w1hNhL
21gwr9K0QxLhjWxrRt9zFEcpT2WGeBG+7ihklln5ofij42i7Ab2P8C07QoyH
0fodWupd023A8kkQbwHQwMG5f3//3/bXVuT5hQQWnKiPTXiN/EfT6rJRSQwV
LGQ3tMUy8CAQeMtQbIQGac0pt7rQ/imv4JRzCEf5rIj7KWv0fTafPgkWgQX0
sbPsP9Dz2n9SkU0docLNU2k77yP7Njimu2a5Iw08svKmD6D94Ri7arelkAUf
XTOHr6D75+/XtDgvRAdNamG9EdofaUItVJbTINr/hPhe9DyTnLrMiD4W6Jge
X70bPe+XkjUx8StpYLDvVL8m2o8F8ygJ9ybQ801OH8nrNIKE0ejGHgUaDA8X
1UWi9WUpCG7r+cyC6HBSzN4VDPC1ExkOvYPy4f21vIXo8woRvZzz9SwovmBo
3IvW8yD5RLsyqkOXm14JMkDr1Qo/LPp0GR06ErZm32vHQ+HzV26bu1nw7l0k
tzxazwPd0+WJXDQwfb15eS5ar5i+t8ldHRqcXv2FsAp9/0vFlLvqMxqUb9Wu
/ILWq9LjE2pEZYHApzY/fvR9Do7dtgPn0X4KH/8qg+6f4bt8O8S4nVC8UTzb
a7zoHQvMDNWXq6L7ix3it8pNo+ddk9x73Ufxl/7m7O/P8G0zvMQ1juwNt4XD
oPhURd52i1E4euxZxoexBHB4u/Bzd+Z74Pp57eSB1RnA060UKMr9HqSM3w9W
3smBNzuY12+dHYELzbsg4tNr2FYtNOlUPgyCOcs7580rgyt1e/Fd4sOQx9zX
SNhTAQcXjy5tdH0HFQ4xoseG8WCUKPR6CP8WZvi5fXlyxWGSbzF+DjePuvu1
5xDGz8njTvE5UgYxfq6p003PYMcgxs99UOJkTwkYwPg5zgX3eB8O9GP8XDpn
XNTkzn6Mn/M6JxMQHNyH8XPKuomNGSO9GD/nZ5EcrKvai/Fz1f0xiR5PWBg/
d+/FKmXBUSbGz12vXyn/Tp2J8XMOFt999eJ6MH6uXdZFb8Onboyf0zhHPBti
3I3xcy82mAwZ23Zh/Fxbj/j7C5ydGD83ea02tqCmHePnNj26rTd85g3GzyU7
7S67zteG8XMC0vVd21v+x8/9Lj8Xu9LQP1D4JiRX9lMjM0Z/4Y86tt7aFyzs
AbFjF/sa6aO/8Buz++9HbCdKHgjbQjSHunP/u9Ff+sOz+5ez+3+6TfSsGGET
EA5bv2388+gv/anZ/ZPZ/YfZ9fz2pxHR2cIawGgVCp1CeejsenN2PTS7npid
n8/OZxfsE3HtElaAgu/L8d4Il2bnW7PzgdnxdHZ8mo3ns/FuBs961jRv2L6d
jOGZRWV2ls/9FgzP9GuSrHaNkTA8wyc3DXOeJWF45th+sXTJAhKGZ9FO10Eq
i4jhmfbXC4c97hIxPFtf9lWcFEfE8MyDceln8yIShmf+iVyyl/EkDM8uHasK
eLWWjOFZkUr8e9G1VAzPBDInlm1KoWB4pvn0QP5iVC/P4Jl2qyDO5xgZw7On
jQOum9NaMDzzJDyNDF7UguHZ3arN4+rOJAzP6iQE5VfVETE8KzxU97hsGxHD
M0FXwUolcQKGZ0HTspfse5swPKsIUVmYVd6I4ZmtTtN0+O0GDM9W7zks9/50
PYZnh64MBVob1WF4pnZUwCtxXS2GZx+u7PxwmqsGwzMG12JXpa4qDM/0Eklb
ewrxGJ6lDHodVE2txPDMuiI7cSigAsOz/vEOZt+lcgzPwp2Kdk244zA8c3tl
mSn1qhTDs9jLkkOk+GIMz7LkArw4zhZieBanWZguZFWA4dk6c/eC21Z5GJ7h
GDTJRco5GJ5pNp4vsVbOwvAML+WYvIc/E8Oz0/3usg0fUzA8e/GF2ci37AWG
Z/iloZePt8ZjeObK/2GDfd9TDM8CRoxkSrQjMDzL5JcV41txD8Mz3O0nC7je
+f6/ePbEyEUVw7PqV29SBrpbQD51+SIxjmSwbA90EkgjgemLRw3uy7LAsMI8
sWMHCZp5VqyQVc2H0JCIT3I0IhwoT+RuulQMOiUFbilRRLAyTzJ70YkDfKRD
By2ECMVJH9zDwiqhpUxH4wiyr3Yt55XsW6rhgISp25ajJJjRO2zzP+d8yqwF
0zu0SSXliyymYHqHnq51bpemKZjeYfGTHbSMgxQMfy1Lzx0n97pi+Pu+PoA3
fwkZqq63Hl905TkcvmR8KaSZBCOHhot1mzPhbYPAYkVjElySu/Zjsi8XAgdH
7k29Q/ZeM5qUpVQE57bMHxRMJIJi9JGksK04cH+XvEgsmAivNUTWZA1WgNlP
02ynbCIQjvkJpQdVQX5E4RVzGRKmHxiPlbz7hasF0w9ks7eEHkN+OaMf0C1h
pwyvp2L6gWE/mw8kH8o/4kXuSo6+E15Q8l297bFeNmQVO20WFSPButGkjTZR
BcChYFXTVkGEjMITngMlJSAkdK+aO5QIQWs+rygOLof62xp9n8OJUMZRU+Op
ioeqk1lvvvUSYVDJlO9oUzUIlLiF5QaSML79iThdJfl1C8a3R4gmHP8WRMH4
9vDwia+7KBQsfql2bmYv7rHE4heHdKSy5WoycJ/d63dZKQk+OEyGlHWR4PXL
8Nx82UxQ37XYxc2CBERcvnvnzlxY+nZgX9EEETY3rHCXCi8ECwN3Df0UIqh7
Wj5cmVkGx3yVInXQfhfwb/2Ce1ABi8XeWl1OJoKW9fKoG3uqYPCzMwdNiITx
11ffrt24eICE8ddrTgV33z9MxvjrbyxZude7qRh/nXSPKjWB6r6ZeNu9J8c5
MuIK3D440rI4LQv4OhYvqJVG7/NqxxOtkXy4WBdXrtBIhG8lvurHxUrAyNOb
zxftr2eZ/i55xXKIIXT6Ux4QoZT+JsbvbSVoJ95Rd0T+Ya3aE7rlSjXkJ4Wf
eOBKwvjeNXuMv4kHtmB87wM1vnxTLQrG9/JkJfNQBilY/Pft9058a3IGJGN1
bvOH5kHjosncum4ihOLr26C1CBITefMDnxJBb/rHtdW3cPBD6IzkR7R/hecX
6sSrVELZybJnr0qIcNh4KpzRXgU+x5WSPdVIUJhbbejpVgvzN46x22xvAQNj
o64f0U0guOmHwRY+FH/MXXOuHHgNL8MHBqQLiWCTr5jsYVEKL+NVv5rdI8Kz
a9Ef9veVg4h+/TbNaCLgdmWNnUJ19GT9uveCn4ngap78TMasEcIStf3lqBQs
f/HdMCGl0G2E5S8xG5vu4qXJkG3jIpIXhvKwn+RT7oNov17Sbd6UZMAWLe/j
2fYk+MpxSNaYmQN2EqeUSCi/JOltaDXfXwiVdVMaielEkFn5+vWdo2VgYLHw
OQ49v9LlXVa1pyqgf9OLdT5JRPCzpx8/u6IKJqq1dsTzkDD+tI/Sq+dJJWH8
6WvVJQnVu8lwachHdGNjI+y97JPzbS8V408/FFh2c8dSsHzLcn9Mukr+VXC5
ok7Ya5YFhw4ljO3fSoL4movHisLzYYfT+OhqEtovCH0R2lAMC1a79PpEEGGY
+5KuM2c57OS79HbbfSLshX6O4DJkP6cSH2URiPBU47mJkGk1+K+blNhoS8L4
xvMHwcLRvQXjGy8ujBPX30DB+MZmMcccqXEKlv+pXmgYFwhxBsPBvn3+e/JA
2cp/pWE/EXZpdqh6BRRBaviB0d0oXynX2xx27AQOQiKAZYf2T7mDJzeZvxLZ
e/WgTQERHpiWHanMqYJlDpez8hVJEFmb4fJTsxZe8lv4nhBH+b8QOU3pfBNc
MAr1uiNGhYkkLpcPHwrA2POdu1MpEZbs0uZN5y6FpQ8sBmLQ8wqQaudfe10O
ly5eOn8hkgiqz4pPujji4dBrx2v0YSIs5TYUjFRohJjqk0+fZVL+kb/eYLC5
Gx+D1Hc3CgjsOBi+FWrCj9a7M1XyzuuSCmjx/2Fdj+xB/QVD56VUE+Dv7bQ1
3kYF0z1n29c4l0Cxxyt8RhgR5rmu3TBhVQ56pmncOHRNS2txYWXh4FVOIWcF
yudKdkhq7M4sBekL6jRDFM9k5F07OZdXQNCDG2E2yN/I6QtlcH6ojvHN+5T6
lfKPfJopEOLZpYrl06tPOTz8uoUM/uYcdof2JcKFmL1SlGESSFJkLJefzYBd
EGNy0oEEvGmxdzjzcyBjpbL8EBsJEoLlgr6hOma0PFXfMpMIcbZ9DdUyZWDY
V93Oh9b3Jb1UQO9gBZyQqngVk0CEhNPKRTaorr8is8J6CxcJ4+fayVGK/Y0k
jJ8rXH06KFGWjPFzbKtiq/UUqBg/9y3YhiM6kYLl/7FvJrkO2vgCk8+56eiO
LHgTaRd5V54EBY7VeR6O+dCdVjs/nozyR9/oE3Iob9qda+Ubgt5nkuI9SuAn
HPKna7cuI7z47uZYyptcCZajLhZeCE9LNTlzl6lVw9b01MJV5iSMz7KtYws6
dLoF47PmpZEdhQUpGJ+1NLc5w3CSgtUjbHY3bQ+muoBt0PZnsDwPDp3eXSg+
hOznVv/4SssieHeF52lCPBG8PdRWXdiPA7bQTcU7kb185X3oIPujAgZPFDzq
yCVC5pF1BQWxVaCu6HLFZxsJOA4m/Ny3rRYktTLfhq1sgVrvFStNrJqgYb4b
rgjl50t1jzW+rCoAh5xBoyc4lN94HazU6S9B/vhzvxGKB6TJzjtP4suB3Vpe
fAvydzaqGt+4KR40deIVOgaJ0Ga39qDhmkZYHdOT++oJ5R/11D2LopOBZtC0
XuFG25syWNHHxbUBrXey66Xq3hcVsK0s7H5EKvKfpSJZVcubwP/9ceZNRSpI
X7kQUqJRArX7XLkfPET51yOlzBV65SAsayhYjvKD+9TBSbYYHOyte3bXGNnP
Pc8tE/RbpdAWc/MZEdl3/zH/U9LfyoG42e5LfQyyt0UMe89zjZDTz1lCHKD8
o757JPWpxFAb8quCnhvdLIO7tg9br6D1FZOjfX8MNQJF/YLBe1UqbBuwqTBc
Uw57Czdv+4r8fZHUSq4953Dg02sRH4/uV5wEs+VKpSDVoFA1gexjrNJ5a5Yw
Do6rvnrMgz4X8y/ur6rFQdQiYvk+tL63n0TuP2GUgijte/YbtH6svlR9uE6y
Sw6rL9VSvYLD5cgw+saEM04kEVbwblRYNEqCiDNHzGU0M0DwZeqIvBMJRK4e
UD71LAcuclidujifBNyyuX11HIVwxK06UO0VEU4GfTPpFSiDzHGbbDX0ezSt
a2PBBypAgvfTaA6yp+whR0fzL3gY+Cqo+Y2DhPE10WOJAqm1JIyvyTuhPSqF
4tsMX/P6RmR36iYqxtcEeZ8dtX5Bweph3/Gysi3PfSHa7Lqe/dos2B6TfmiH
Agkq9zrbkUzz4fxXpfJBChE616zN/XG3GLijtHjFUP59U0c0MnIIBz0v5v9Y
j/azfals5MGnlfBwMe5cXz0Rmmp223EoVUNWtpXiuhMkjN9Yme68jGHdgvEb
983OX+LnoWD8hok3z2QvwreZ+pzt7YECbzNXcDFvM4z+lgu5Dc9877xF+dAG
R/1e3SK4M0kYO4nw6FhAY4+fMg6knVNMpdH7bEs+st91vALC3bZcjstB+QLj
0Ons8CrIfvPo+DtZEuDCnxywX18LpKiBIhxvC2TJ5mpZH2kCy+QIORNJKgiu
Yru8KLMAzGwuKheVozpYhC4m3FICJ0Qz2NORv6UvdTBKiyiHsHVha0MeIfs4
u2BEQRcP6/j8nIdQvKu4H+iySaARaFsWWRIeUrD+gm+2q2xvkgUEGOgsnawq
g+1xfq2KaL0MLyfRqzEV8NL02elbKD9lKy3sIy9ugnf31EdX76LCg1XfB+/I
lUD7zsqoxSgfjEyp8JBQK4fXy37e1EL+dnbIvYTnAQ7OfaG9Fkf281UgyyjJ
vRRWLRgqWYneD955uYzSh3Ko7Xsrugj52215tZvGpxrBq+/eZq9Oyj/6He+/
4hYF6IPbSJzc2bNl4Gw9ZRSD1pfktzdnaXcjME0XyNzeRwXub+/9zVeWg//Y
y+ZQ5G+9O2MJOvY4CBvJSruO7o+NwOd1rSuFHZ959bXR5830yXEcNw7kI5d5
/s3fpiIPpFBKcCBCNixmQ/5m8vDpWyd8KTwx2y+7Al1j/RaNnwOjBrtgYA9B
/aV6GVRqSNIH0Pdn50tPLPOOnjbCAXguA330Od/PVV+Lx8pg0uWKvCi6zik3
U/j4HAebppnPb6H9+R7juXp7VBnkOnvst0afb1weqLnFGweN5/bX1aLrFZlM
h3hJHFw5pFP/t3iP9XtUpcP5u9ZgercRC8nS+vpBIAlWTBzoaoSeDK78YrQ/
s9en9/f7fYzHSx8hvJp93uRPPR/yv37NX7Nf86ecD3HXzk1i4gjY+ZDGnZeG
ra41/9Kv+VPPW4jp7ly9jdj8S7/mTzm/oLFkr++oC+GXfs6feh6g+aC6R9pE
8y/9nD9FXx+IvxluFUH4pd/zr+rVxaxsq6I1W8GXwUVyGyL8th59dr9mLr35
PaXOARFaI4w/OeN9QOe/R28eu6KpzZWL8Eu/5k/RbxcctNgbm0r4pZ/zr+qh
Dx/7JPhKrhUWlOv3qhYQflvvPLsfM5eeuVZ7RUnrglao818vdI6TMKeeeS79
Mus0xS3gZCscDX9Ak6YSftEvz+7H/Kl6ZUexa52HVhJ+6cf8KfrfRYcvTeHy
CL/0a/5VPa2b6R61IqlWoIW+F7gVTPhtvezsfstceti+/Sf7WVMMaLxhmVzW
0TynHnYu/SubnVj0A+NWkBVUPq7fRfhF/zq73zJb7/q7+tZdZqnvk3a3gvnn
4eXXmYQ59a1z6Vn/qX717/2YP1W/ykl8kbNfhPBLP+ZP0YM2Frx7RSoi/NKv
+Vf1lb6Huk1V17RCKpeF0fcLhN/WT87ut8ylj/y0j+3b6U/I34Sc6nfUNM+p
j5xLD8ltg8sU1GuFN+47Jix6Cb/oIWf3W2brH39X76h1wohdRrEVJu8VnHVt
Isypd5xL3/hP9Yx/78fM1jPO1i/aHomQUdzcCuplG+XH4whz6hd/V6+4yYKj
ba1aK7DVNg34vSfMqVec3b9pLW2uWy5Fh8MF/bbaI3jgLPu/15djhUQvOPdi
19dL1dW6ES78/+oZ/6f/+df0P/+bN/LX1jP+qfqfmf4T3243G6UrxL/8fJI/
Xd8001/ziBY0FIsnYv21+/bSokuWEP9y80z+2/RbM/1A5oHISWfkH3+1eSZ/
uh5tpt/JXCOmLJxHxPqdHO4jly1XEf9y80/+2/R2M/1ZmUTZ/YYOxL/c/JP/
tH5wpv/MHalptH4R8bfnp/y79Ye/O1/lv12fONNvPyo9uVdS81d94kx/PN7I
71BUGRHrj+Ms+vlCNhD/cvNY/tv0lzP9/O85Cl4V7sS/3DyW/7SedIavCLyk
EoWbJvz2PJd/tx71d+e9/K5edYYvYfK+pmznJ/4yD2YuPevseTCz9a0z/Em4
txhJfSvxl3kwv6t/nWtezJ+uh53haxz3cAaewBMxvoadb1LouQzxLzdf5r9N
7zvDL4WHu+R7XyT+5ebL/Kf1yzP82Y0LFM9P7MTfnk/z79Y//+78mt/VR8/w
d7Gt3m+1hYi/zLeZSz89e77NbD31DJ+XsbtdjSRC/GW+ze/qreeafzOX/nr2
PJy59Ngz/KBC853dkeOEX+bhzKXXnj0PZ7Z+e/b8m3+q5551XvhP1XPP8I09
hDeGxdVEjG/86IjX2Y7i7V9tXs5/m159hh9tM8j52XqJ+Jebl/Of1t/P8L/3
Tie99kH1/O/O2/l36/d/dx7P7+r7Z/jnJTpFElSE57Pn9cyl/589r2f2eYAZ
PrqT5rTgBi/xl3k9v3teYK55PnOdH5g932eu8wQz/Dbx6uHG1EnCL/N95jpv
MHu+z+zzB7Pn+fzT8wh/n/8w13mE2fN9Zp9PmOHHb8knH3SYR/xl3s9c5xdm
z/uZ6zzDDF8udj58mecE4Zd5P7PPO8w13+fl2JRQdX819v9bzL7+P2+i+vs=

   "], {{{}, {}, {}, {}, {}, {}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwVzjkshEEYgOGxy6JGI1nJNqLRWPfNum9aR6EQR7IaVu2o0UioHTUaCYlG
1I4ajYREIxqVwvMXT975vmJmUvOrU9lYCCGPBdbiIRRogknnjvwQ/jSt9/pD
lfOR3vBJhXlD97nkjTK7OV1hhzOeKbaf0HHGGGWEYYYYZIB++uilhwzddNEZ
/Yt22milhWaaaKSBeuqYZZltTnmiyD9qNcceF7xSaj+jd3xTaT6I3tBfrdar
6G5913Jd0lu+SJm39IRHCs1pXWeXc14osZ/WRTY55oGEfY0ecs0HSbt/0lIu
iw==
         "]], PolygonBox[CompressedData["
1:eJwV0s9Pz3EcwPFPPzgooQNaNqHWJP1aDVn+iIRyQSqXfoiLUrig0MGPaQup
LiFxIMuWFbOk6OJH5ODH2FiYkRGjHt/D4/t8vV773L7vZcVV+ZXhQRCE0UPO
7CCI1A1+piKCIEMHdK1+1hXapJOsMl/XV8Sat+ofMs339CtJ5jO6Xn9qqt7S
HH2ncbpL8/S3pusdXaOfNEEPaa5+15Xaodk6qrM0U/+SZb6v6/SbJmuz/iLN
fFs/sMS8V/uZYLn9hP4gxXxNx1lgLtK7fCHRflp7eMtie5n28ZGl9oPazmMi
7Rl6ll7eE++2R4/TzUvmuxXqKW7yhkVupXqANh4R4Zau1RzjKi+Y575FT3KD
1yx0K9F6LjJCuFua7qaRLsaIcd+sO6mjlWHC3FdrFQ1c4Tlz3TdpMfu5wENC
DydVKznKZZ4R7V6gO6jlPENMh94QFRzhEk+J8v1G3U4N53jA/9D/QzmH6eQJ
c3yfr9vYRwuD/Au9F2YAaC9d9w==
         "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1XV4lWUcBuDDBkMaxVYQvDCwW6/LBKUEQTolhh1gKyAtDQYpICWNUlJj
wahtMDbGElCU7lGiMNr7/ePe83ve9zvnOuc779mpFtutadeoSCRSjAP+1C4e
iawtEYl0oBQb9FF8RR3qss56R0qToo/ma+qx3lonypCqj6E7O/XuVGeXvoD6
bNA7U5Y0fSxnzD/wLGf1Hvxl7sFd7NYXcsU8iToU41VrKTKWcmzUx/Gv+Uee
45zek7/NPbmbPXqZmEhkrrkZi/Sr8mfqUtlevIziWvNC2YY7zcmygetTZZfw
/qyVlzfKpfJBucl+jJyh3ycbySoyQT4qx9v/zzyKe/Tn5a1ypXxIFtkvL3/V
75ctZVWZJL+xtytkeCy3WF8h91ova55nbs5iPaJPNtcjmuv0RbItDe2nyTep
QLpe0v5Mc2N+0s/K0bzAeb0Xu829uJd9+hKKedwUvT7Fec3aRvkWFdmsT+Cc
eQwvckHvzR5zb2qwX/+dRmzS3w73nwx9IkXmsbzERb0Pe819wn3mgL6UxqTr
74T3TKY+ib7s0/uG+8pBfRlRXv/UcJ4oQSV9sWzH6/Y3y3fDWbReSd4kl8kt
9q4xzwrXhfOjn5fjqMklvR/7zf14gEP6cpqQob/H9WTpk+lPU5rRnBa0pBWZ
rnufG9iqT2EAB/T+4exxWF9Ba7boH4SzSbZeymudbW7CVP2CHB8+S+u15G0y
Tj4sL9uvIH/TW/GtflAOCGeUI/pK2pClfxjuCzn6NAZyKDwuPB9H9TjaslX/
iJvJ1acziMP6QB7hmL6KdmTrXcNZJ0//hcEc0QeF7xSFejztydG7he8U+foM
hnBUH8xjHNcTeINc/ePw/inQZzKUY/oQHueEnkgH8vRPuJ1t+iyGUagP5QlO
6kl0JF//lMps12cznOP6MJ7klL6aThTon1GFHfocRnBCH85TnNaT6cw2/XPu
4A99LhfDd5iXuaKP5KR5BE/zj76GaJ/xNL0BMcRa2y6/oCp/6vO4ZJ7AK1zV
v+OUeSTPcEYv57nmm1uwVi+uTzc3pGQ45/oS2Z4u9nfIL6kWzoK95XKn9dLm
Oeam4T2ZE+V865flRGpYqx3uv1wVzouMyIpyQfieydbheeXq8HnL7z3+tDna
peH3r8BvXz555JJDNlvJYguZZLCZdGqG/0tyI2mkksIGqnvi9XIda1lDMqtJ
IpEE4lnFUQo5yRmKuEIc/wNsaAvK
        "]]]}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl0EdOAmEch+H/UAwX8ABK4gVc6R3YuGdD7AXscgrLFdzqyhMYPYQKggVr
jEYJaGzRx7h48n6/yWRmMn2lykg5FREJRf7OR8YxJ9Soc0qDJmecc8ElLa64
5oZb7vjhnQ7PPPKQ/L/kQ7u88ETi2qe+0iZlf+kbaedvzei9rmYiBnsi9rMR
eS3qHr3OOS2wTdY+dG+XYXuDNlv2Lk3ydpU6K/YySyyywDwVyswxywzTTDHJ
BOOMsckODfo9c40ao/YBHYbsAd+2rmm/4xehCzuq
        "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
     {GrayLevel[0], Thickness[0.005], LineBox[CompressedData["
1:eJwt0klLVnEcBeBrgdnowsqsVVsHSC2NxAikctZsdKdWilYOK5u1WuimSdMI
i0Ixi0ZSy+wjWNrwDVIXtSmSIrDp+UOLh3POb3Hh3vddX9NU0RgTRdEIG2Oj
aJHc5TAvh2klnw3UuycwoV+mijgq3H79f8ZxCkinwX0lr/UrVLOY3W6/5Sgn
KCSDI+6reKNfpYYl7HH7I59zkiIyOeq+mkm9i4MsZa/bX/mCUxSHd+OYeyJT
ejeHWMa+8AEYE6cpod1O5qN+l02ED7WGt/o1DrOc/W4xvNTPUMo5O4VpfYgs
muwk3uk91NJhp/NJf8QKDtgLGNfPclHP5otexnk9lRn9XngXPZfvejbN+lre
631yO73hN5Bb+KbX0aln8Fm/LQt4rPfKbaHz0x6UZcTrlXIhQ7yyb8g8ntBm
X5KbecBX+44s5Bnl9gWZxn1m7VtyJ0/DLXxXuZUf+oAsCc/TW+Q6Pug35Q6u
h/+JzOEhc3a/LGaYfyMLVr8=
       "]], LineBox[CompressedData["
1:eJwV0ldIFmAUBmCD9lTb5d42LGiAZZlmA4Io28OGLVva3nsPKwgi2zvCijLq
rr3rur27qaABQRBFFz3fxcN5z6u/4H++xOKywtJqERER/yhhq6UTX+ULRDLa
Xp2r8hoGk808XQxP5AqmE8UYXQ2uyWsppBvzdbE8lfcxg2jG6mpyXV7HELqz
QBfHM3k/M2lMka4WN+T1DCWHhbp4nssHmEUTxulqc1PewDB6sEiXwAv5ILNp
ynhdHW7JGxlOTxbrEnkpH6KUZkzQ1eW2vIkR5LJEl8Qr+TBlNGeirh535M2M
pBdLdcm8lo8whxYU6+pzV97CKPJYpkvhjXyUubRkkq4B98I9w/3IZ7kulbfy
sXA/WjFZ15D78rZwv/A92bP4JFfSmxX2NN7Jx8M9w+/bO/NNvkhrptgb8UDe
Hu4bvkd7Bz7LZylgpT2d9/IJdss5/Aq3D5+Vu/BdrmKvnMcfOYapciQPw/sw
CyiXd5nZ/Az/pzmAonAbsyOVfAk3MftTxTn7HjOX8/y2nzQHcpk+9lVmBmf4
EH4e3hyxTNNF8UjeEd4cfYkjngQSSSKZFFJJI50MMmlDW9rRnixK/N1oHss7
w/ukH6t1mXyUT4X3TLm9Kz/kS1TI+fyVT5uDuBJuYf8P4QtvCw==
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV0Gk2AlAYgOHbsBHntBE76FhCC9D2KFMSoUgKJTJTIpQhQ3r68Zz3u/fP
/c6dSaXn5iMhhCQLhjFfDOjTo8siGbIsscwKq6yRY508iVgIG1pgky2KbDMb
D2FHdylRZo99KhxQ5ZAadY6I2u9YT2jQ5JQWZ5zT5oJLrrjmhlvuuOeBf0YM
eeGJx+kneORb33nlmYi7H/3gbbqH869+EjP/aVw7OgGWmkCK
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV0ftPjXEcwPFHKXeZIUYq/0TJ9QdFLj+IsLlWfiDUhjJkyH1ztyEmjOU2
l0S23DfEiDHXmUuWS8JGLm2E1/PDa+/P53vO85xznpOYnZ+R1yIIghqiIoKg
juMsZSJDSCKaVrzlBMuYRCrJtOYdJ1nOZNLoy1eqWM8MRtOG95yimCkM5TfX
2M5cUvjGeTYwkwwiIoPgtu5hIW35QDkrmMow/nCdHcyjH41cYCO5tHOvh1rG
GCLtd7SUbuZXuoiO5id6hB7mN+G11HOans5Wamd9rgk6LXw2el976wGN1dfa
R9O1mRvE2XdqV32piTpfO+hjjdfD2l1rtT/fucgmujh/obNob36khxhLS3uN
7mUxMfanejR8Lx+pYBVZ4f/j9Qd6kOH8pZoSChjADy6xmdlkEuW6u7qPovC7
08AZVpPNCP5xk10UMpCfXGYLcxgXPnM+cZY15DCSwOfc0t0sYBC/uMJW8hgf
/k4+U8lapjOKwTRxlW3kM4Fo972n+1lCJ/szPRbOfOEcvZyv0/8B3mpi
       "]], LineBox[CompressedData["
1:eJwV0Dsvw1EYwOG3SCQ26lqXqmrd6n7Zq3sJk44SbMXWqR+Alc0k6eYD1Mpm
knQTWz+Arkye//Dkd94zvefkzq9P6qmIOCXdH/HdF3HBkHNHW1RJmT/0iQZl
fnnjgRvOGOaHNndccsQhI6QZZYzx5H4gYkInmSLDNDPMMkeWeXIskGeRAkWW
WGaFVdYosc4Gm2yxzQ677LFPj1fuueKYCn+888gtNQb9wac+00zeav7Sl2Rv
526ymx7oP2g1Hro=
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV0ttPiGEcwPGngy7kkC7I2ISspRxqmtP4I3LMDRJuKIcbOnGjKC4cxiY5
3VBUF8q0ZWJNcrqRUy7Q2LTKjBoy9HkvPvv+nt/e7d2e951dUJxXFBNCaCE3
IYSMuBD+8pDzHGAzeYyPD+GFXuMIu5jPP7qo5SBbWEOi53v0OpXsJpP/POIC
JWxlLRM8/1LrqaKILIJ9t9ZRSgHrmGj/Shs4SjELiLF/rBcpYxvrmWT/Wm9w
jD0sJNb+iV6inEKm2r3XW5xkA5Pt3uhNqtnLIuLsn+plKtjONLsP2sIpNpJk
91YbqWEfM+w+6R3Osph4u2d6hUPMcv6i7ewgxfmjtnKaNOchvU8+U5x7tSn6
PuYfepw55gG9x35mOn/WtugezD/1HOnmb7pcOzVH/2g248zPdYle1Qz9riv0
sKZqvy7Vu9H96C9dpTt1uvZprt6Ovq+O6Eo9o/P0qz6I3mce1U0km99pc/QP
mYf1BHPNg7pMO6L709+6WscAj7pd8A==
       "]], LineBox[CompressedData["
1:eJwV0DksRFEUgOErI4wajYRkGplGY9/GjLHvS2spZApLQmOpLTUaCbWlRiMh
0YjaUjONhEQjGtUUvld8+d85xX03N7GwNr1aFELIsR4Lobo4hE+95Zh6Suye
9JRtFpmh3P5NL9lngwZK7Z/1jB0S5m+9Z4kq84c2643W6Z926pHW6o8+MEuF
+V2vOGCTRuL2L3rOLsvM0RSdTQuttNFOR/QPUnSRJkM3WXropY9+BhhkiGFG
GGWMcSaYpMw9XvWCPVaYp9I+r9ccskWN3ZfecULS/KuP0dv5LkT30in9Bytg
Lnw=
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV02WYVVUYBtBLzNCh2AoCKord3UpJSXcNnUOntHS3gHR3d3d3d3cN3bH2
jzXv9+59zn3uPbNPhpjY/LXiRSKROH+yJIxEVkRFIqVJwmq9N43ISjZWWi9D
UtbofWhMdlZZK0sy1up9acJhvQlvc0yfQg5W6+VIzjq9HzfNPfmBO3pTjpib
8g7H9ak8MQ8mK/H4y9oaGUMK1uv9uWXuxY/c1Ztx1NyMTJzQk0VHIuPNBZim
P5X/k4209hbK+DxnniqLkdG8TOZ0/VpZPvw+aynlS3KW/EhusB8tR+nvyzwy
nVwkP5MD7N829+Zd/Sf5mpwnP5b37KeUk/QPZGGZXi6R/9g7FjLcy6vW58qT
1pObJ5gLMl2P6EPM2UnA8/o0WZxc9tfJCqRio57I/mhzXv7T78g+/Mx9vTnH
zc15j1P6DOK5b6ieg4TktrZeViQ1m/SB3DX35Rce6C04YW5BZk7rM8nDBr1S
eP5s1gdxz9yPX3mot+SkuWV4zpzRZ5GXjXrl8JvZog+mFaf0VuG5clafTXzf
f1g4T0SRRp8uS/C3/U2ySjiL1tPIl+VsudVeYvOYcF04P/p92Z/feKS35rS5
NR9yTp9DPjbrVXmBbfoQ2pCfAhSkEIUpwhbXVeNFtutDacsZvU04e5zX51KU
rXr1cDbZoSfxXcea8zFMfyAHhP+l9d/l63K+/EQ+tp9KTtaL8K9+VrYNZ5QL
+jyKsU2vEZ4LO/XhtONcuC98Hhf1+RRnu16TV9ilj6A95/V2fMolfQEl2KHX
Cmed3fpIOnBBbx/eKS7rCynJTj02vFPs0UfRkYt6Bz7nir6IUuzSa4ffz159
NJ24pHfkC67qiynNbr0Ob7BPH0NnLuud+JJr+hLKsEevS1r262PpwhW9M18R
py+lLHv1eqTjgD6OrlzVu/A11/VllGOfXp83OaiP52F4h/mDJ3o3rpm78g03
9OUk8D8eruckmhhr+2UD0nNIn8Aj80D+5KnenThzN77lpp7CZ000F2KFnlAf
Yc5FonDO9RmyJOXtH5ANyRDOgr058rD1pOZx5vzhN5kXy4nWH8tBZLaWJTx/
uSCcFxmRqeWU8J7JouFz5dLw/5Y93H/dnMCl3WUma9/JW9ZXUoGDeiMyckSf
RE8qUonKVKEq1ahODWpSi1hqU4e61KM+DTjkMxvzFkf1yfTiht6D77mtryLK
dxup5yZxeN/1mbJUuN+8PJxJ2dC1zwC6Gwbf
       "]]}, 
     {GrayLevel[0.5], LineBox[{439, 1088, 438}], LineBox[{806, 807, 805}], 
      LineBox[{1092, 1091}]}}, {{}, {}, {}, {}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["K", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(c\\), \
\\(2\\)]\\)-\\!\\(\\*SubscriptBox[\\(c\\), \\(1\\)]\\)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  LabelStyle->Directive[FontSize -> 8],
  Method->{"AxesInFront" -> True},
  PlotRange->{{0, 1.05}, {0, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.7657919963259907`*^9, 3.765792069043545*^9, {3.7657921031762443`*^9, 
   3.765792131811667*^9}, 3.7657922955706787`*^9, 3.7657927474795313`*^9, {
   3.7657927800694013`*^9, 3.765792806076847*^9}, {3.7657928972415447`*^9, 
   3.765792923136278*^9}, {3.765792971699719*^9, 3.7657929850560274`*^9}, {
   3.765793024075673*^9, 3.765793066942028*^9}, 3.765793122573807*^9, {
   3.7657968926836753`*^9, 3.765796911542176*^9}, {3.7657969776295166`*^9, 
   3.765796985409707*^9}, {3.765797048005252*^9, 3.765797123049579*^9}, {
   3.765797198205574*^9, 3.765797232146796*^9}, {3.7657972836440196`*^9, 
   3.7657972943872857`*^9}, {3.7657973286905394`*^9, 
   3.7657973584519825`*^9}, {3.7657974375883408`*^9, 3.765797484408062*^9}, 
   3.765817622819845*^9, {3.765855212170449*^9, 3.7658552241075015`*^9}, 
   3.7659726331648207`*^9, 3.765973104643571*^9, {3.7659731660463133`*^9, 
   3.765973197726529*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
The Local-as-efficient Test and figure 3\
\>", "Section",
 CellChangeTimes->{{3.6609772427701063`*^9, 3.660977245635023*^9}, {
   3.6953576318725967`*^9, 3.6953576323561993`*^9}, 3.7235333374468145`*^9, {
   3.7242473342897243`*^9, 3.7242473377307477`*^9}, {3.724247390075876*^9, 
   3.7242474036244593`*^9}, {3.7265552161009912`*^9, 
   3.7265552298439913`*^9}, {3.732889799276472*^9, 3.732889806527178*^9}, 
   3.7328898472823796`*^9, {3.765018068435666*^9, 3.76501806969728*^9}, 
   3.7658175351534314`*^9, {3.7658178129745274`*^9, 3.7658178161659846`*^9}, {
   3.7675306575742598`*^9, 3.767530657675946*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "required", " ", "K", " ", "with", " ", "the", " ", 
    "constrained", " ", "exclusive", " ", "price"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"v", ",", "q2"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"q2", "\[Rule]", "0"}], ",", 
        RowBox[{"q1", "\[Rule]", "q1e"}]}], "}"}]}], "/.", 
     RowBox[{"p1", "\[Rule]", "p1econstr"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"qe1", "/.", 
     RowBox[{"p1", "->", "p1econstr"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"p1econstr", "*", "%"}], "-", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"k", 
        RowBox[{"(", 
         RowBox[{"0", "+", 
          RowBox[{"(", 
           RowBox[{"%%", "-", "p1econstr"}], ")"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"%", "-", "k"}], ")"}], "p1HTestconstr"}]}], " ", ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "First", " ", "we", " ", "see", " ", "the", " ", "case", " ", "of", " ", 
     "exclusive", " ", "constrained", " ", 
     RowBox[{"price", ":"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"tmp", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "0"}], ",", "c"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"tmp", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmp", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", "cpe1constr"}], 
     "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTESTconstrLocal", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"tmp", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"\[Gamma]", "\[LessEqual]", "0.5"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"tmp", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"\[Gamma]", ">", "0.5"}]}], "}"}]}], "}"}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7658019131766834`*^9, 3.7658019815001855`*^9}, {
   3.765802021060556*^9, 3.765802071441811*^9}, {3.7658021015676346`*^9, 
   3.765802123409256*^9}, 3.7658021593082447`*^9, {3.765802726176676*^9, 
   3.7658027263591366`*^9}, {3.765802903003643*^9, 3.765803012293025*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", 
           RowBox[{"6", " ", "\[Gamma]"}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Gamma]", "2"]}]}], ")"}]}], "-", 
        SqrtBox[
         RowBox[{"k", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "\[Gamma]"}]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "+", 
            RowBox[{"k", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", 
                "\[Gamma]"}]}], ")"}]}]}], ")"}]}]]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", 
           RowBox[{"6", " ", "\[Gamma]"}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Gamma]", "2"]}]}], ")"}]}], "+", 
        SqrtBox[
         RowBox[{"k", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "\[Gamma]"}]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "+", 
            RowBox[{"k", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", 
                "\[Gamma]"}]}], ")"}]}]}], ")"}]}]]}], ")"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7658021281844683`*^9, 3.765802160030264*^9, 3.7658027268977165`*^9, 
   3.7658027764727345`*^9, {3.7658029834511137`*^9, 3.7658030129748363`*^9}, 
   3.7658176242689433`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$21317$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$21317$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[1, 4] (
          2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
            4 $CellContext`\[Gamma]$$^2) - (($CellContext`k (1 - 
              2 $CellContext`\[Gamma]$$)^2) (
            4 + $CellContext`k (
              1 + (4 (-2 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), 
         Rational[1, 4] (
          2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
            4 $CellContext`\[Gamma]$$^2) + (($CellContext`k (1 - 
               2 $CellContext`\[Gamma]$$)^2) (
             4 + $CellContext`k (
               1 + (4 (-2 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), (
          Rational[1, 8]/$CellContext`k) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2)}, {$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7658021281844683`*^9, 3.765802160030264*^9, 3.7658027268977165`*^9, 
   3.7658027764727345`*^9, {3.7658029834511137`*^9, 3.7658030129748363`*^9}, 
   3.765817624276923*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"v", ",", "q2"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"q2", "\[Rule]", "0"}], ",", 
      RowBox[{"q1", "\[Rule]", "q1e"}]}], "}"}]}], "/.", 
   RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"qe1", "/.", 
   RowBox[{"p1", "->", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p1mon", "*", "%"}], "-", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"k", 
      RowBox[{"(", 
       RowBox[{"0", "+", 
        RowBox[{"(", 
         RowBox[{"%%", "-", "p1mon"}], ")"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}]}], " ", ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"%", "\[Equal]", "0"}], ",", "c"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cTestmonLocal", "=", 
   RowBox[{"%", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"cTestmonLocal", ",", "cpe1constr"}], "}"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{"%", ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.726988357328991*^9, 3.726988464220191*^9}, 
   3.726988512236991*^9, 3.727266320968094*^9, {3.732972712029488*^9, 
   3.732972782204488*^9}, 3.732973236466292*^9, 3.732973627155488*^9, {
   3.7400722937561464`*^9, 3.7400723872256513`*^9}, {3.7400734392299027`*^9, 
   3.7400734432004595`*^9}, {3.740114069881284*^9, 3.7401140836609297`*^9}, {
   3.765793708757765*^9, 3.765793722601737*^9}, {3.7657937600156717`*^9, 
   3.7657937693457174`*^9}, {3.7657952133624225`*^9, 
   3.7657952196087165`*^9}, {3.765796545546974*^9, 3.765796583239007*^9}, {
   3.7658022928046913`*^9, 3.7658024076951623`*^9}, {3.765802582652746*^9, 
   3.765802593815933*^9}, {3.7658027678856716`*^9, 3.765802770922556*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"c", "\[Rule]", 
    FractionBox[
     RowBox[{"2", "-", 
      RowBox[{"9", " ", "k"}], "+", 
      RowBox[{"12", " ", 
       SuperscriptBox["k", "2"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "3"]}], "-", 
      RowBox[{"2", " ", "\[Gamma]"}], "+", 
      RowBox[{"6", " ", "k", " ", "\[Gamma]"}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "2"], " ", "\[Gamma]"}], "+", 
      RowBox[{"4", " ", "k", " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "-", 
      RowBox[{"8", " ", 
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "3"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "k"}]}], ")"}], "2"]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.765796551079214*^9, 3.7657965836319923`*^9}, {
   3.765802362658636*^9, 3.76580240840325*^9}, 3.765802594256729*^9, 
   3.765817624308837*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$21335$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$21335$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{(Rational[1, 2] (-1 + 2 $CellContext`k)^(-2)) (2 - 
          9 $CellContext`k + 12 $CellContext`k^2 - 4 $CellContext`k^3 - 
          2 $CellContext`\[Gamma]$$ + (
            6 $CellContext`k) $CellContext`\[Gamma]$$ - (
           4 $CellContext`k^2) $CellContext`\[Gamma]$$ + (
            4 $CellContext`k) $CellContext`\[Gamma]$$^2 - (
           8 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
            4 $CellContext`k^3) $CellContext`\[Gamma]$$^2), (
          Rational[1, 8]/$CellContext`k) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2)}, {$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.765796551079214*^9, 3.7657965836319923`*^9}, {
   3.765802362658636*^9, 3.76580240840325*^9}, 3.765802594256729*^9, 
   3.765817624315816*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "The", " ", "white", " ", "area", " ", "is", " ", "the", " ", "one", " ", 
   "where", " ", "the", " ", "unconstrained", " ", "pricing", " ", "occurs", 
   " ", "in", " ", "exclusivity"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7400728107906365`*^9, 3.7400728576583033`*^9}, {
  3.7400732644891996`*^9, 3.7400732655019054`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Identifying", " ", "the", " ", "relevant", " ", "boundaries", " ", 
    RowBox[{"are", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cpe1constr", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cTEST", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cTESTconstrLocal", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cTestmonLocal", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", 
         RowBox[{"1", "-", "k"}], ",", "%%", ",", "%%%", ",", "%%%%"}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.726988694148591*^9, 3.726988769746191*^9}, {
   3.726989344962191*^9, 3.726989383244591*^9}, {3.7272663886568985`*^9, 
   3.7272664217264986`*^9}, {3.732972789818488*^9, 3.732972803477488*^9}, {
   3.7329732807061377`*^9, 3.732973285330063*^9}, {3.7329735456883082`*^9, 
   3.7329735461693563`*^9}, {3.7329735793726764`*^9, 3.7329735831470537`*^9}, 
   3.7400714607374763`*^9, {3.7400724030006504`*^9, 3.7400724263517027`*^9}, {
   3.740073132385877*^9, 3.7400731376569405`*^9}, {3.740073471647107*^9, 
   3.7400734962816257`*^9}, {3.740073611596332*^9, 3.740073611904185*^9}, {
   3.7401142199156427`*^9, 3.740114239282143*^9}, {3.7405733711032915`*^9, 
   3.7405733782001762`*^9}, {3.765793920175313*^9, 3.765793967429928*^9}, {
   3.765793998380149*^9, 3.765794007121769*^9}, {3.7657965964227643`*^9, 
   3.765796653552947*^9}, {3.765796725453643*^9, 3.7657967516179075`*^9}, {
   3.765802446669272*^9, 3.765802449901623*^9}, {3.7658026866192975`*^9, 
   3.7658026918861303`*^9}, {3.7658027917469006`*^9, 
   3.7658028006071053`*^9}, {3.765803028755994*^9, 3.765803034177494*^9}, {
   3.7658031085980887`*^9, 3.765803128429944*^9}, {3.765803181236577*^9, 
   3.765803185344863*^9}, {3.7658032363366375`*^9, 3.7658032364632597`*^9}, {
   3.7658034330246525`*^9, 3.765803478210758*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.2}, 0, 1}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$21352$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$21352$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{(Rational[1, 2] (-1 + 2 $CellContext`k)^(-2)) (2 - 
          9 $CellContext`k + 12 $CellContext`k^2 - 4 $CellContext`k^3 - 
          2 $CellContext`\[Gamma]$$ + (
            6 $CellContext`k) $CellContext`\[Gamma]$$ - (
           4 $CellContext`k^2) $CellContext`\[Gamma]$$ + (
            4 $CellContext`k) $CellContext`\[Gamma]$$^2 - (
           8 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
            4 $CellContext`k^3) $CellContext`\[Gamma]$$^2), 
         1 - $CellContext`k, 
         Piecewise[{{
           Rational[1, 4] (
             2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
               4 $CellContext`\[Gamma]$$^2) + (($CellContext`k (1 - 
                  2 $CellContext`\[Gamma]$$)^2) (
                4 + $CellContext`k (
                  1 + (4 (-2 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
           Rational[1, 4] (
             2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
               4 $CellContext`\[Gamma]$$^2) - (($CellContext`k (1 - 
                 2 $CellContext`\[Gamma]$$)^2) (
               4 + $CellContext`k (
                 1 + (4 (-2 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 
          0], 
         Min[(Rational[1, 2] (-1 + 2 $CellContext`k)^(-2)) (1 - 
           6 $CellContext`k + 12 $CellContext`k^2 - 
           4 $CellContext`k^3 - $CellContext`\[Gamma]$$ + (
             6 $CellContext`k) $CellContext`\[Gamma]$$ - (
            8 $CellContext`k^2) $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - (
            4 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
             4 $CellContext`k^3) $CellContext`\[Gamma]$$^2), 
          Rational[1, 4] (
           2 - (($CellContext`k $CellContext`\[Gamma]$$^2) (
             4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$))^
           Rational[1, 2] - $CellContext`k (
            2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$))], (
          Rational[1, 8]/$CellContext`k) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2)}, {$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.2}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7657966451295156`*^9, 3.7657966540476604`*^9}, {
   3.76579674109505*^9, 3.765796754982936*^9}, 3.76580245483142*^9, 
   3.7658026925782948`*^9, 3.765802736871648*^9, 3.765802800911317*^9, 
   3.7658030348168216`*^9, 3.7658031289475174`*^9, {3.7658031818389654`*^9, 
   3.7658031857687283`*^9}, {3.765803439173191*^9, 3.765803471241395*^9}, 
   3.7658176243327723`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Defining", " ", "the", " ", 
    RowBox[{"test", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cWelfare", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTESTLocal", "=", 
     RowBox[{"Min", "[", 
      RowBox[{
       RowBox[{"Piecewise", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"cTestmonLocal", ",", 
            RowBox[{"cTESTconstrLocal", "\[GreaterEqual]", "cpe1constr"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"cTESTconstrLocal", ",", 
            RowBox[{"cTESTconstrLocal", "<", "cpe1constr"}]}], "}"}]}], "}"}],
         "]"}], ",", 
       RowBox[{"1", "-", "k"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Quiet", "[", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"%", ",", "%%"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7658031592783074`*^9, 3.7658031630352974`*^9}, {
  3.7658032414787993`*^9, 3.765803255522358*^9}, {3.7658032906589003`*^9, 
  3.765803324836119*^9}, {3.765803402547134*^9, 3.7658034047044086`*^9}, {
  3.7658034826897783`*^9, 3.7658034891086583`*^9}, {3.765803747542333*^9, 
  3.7658037551956043`*^9}, {3.7658039990659075`*^9, 3.7658040049611363`*^9}, {
  3.765804035338915*^9, 3.765804039929571*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.2}, 0, 1}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$21369$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$21369$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Quiet[
        Plot[{
          Min[1 - $CellContext`k, 
           
           Piecewise[{{(Rational[1, 2] (-1 + 2 $CellContext`k)^(-2)) (2 - 
               9 $CellContext`k + 12 $CellContext`k^2 - 4 $CellContext`k^3 - 
               2 $CellContext`\[Gamma]$$ + (
                 6 $CellContext`k) $CellContext`\[Gamma]$$ - (
                4 $CellContext`k^2) $CellContext`\[Gamma]$$ + (
                 4 $CellContext`k) $CellContext`\[Gamma]$$^2 - (
                8 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
                 4 $CellContext`k^3) $CellContext`\[Gamma]$$^2), 
              Piecewise[{{
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) + (($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2) (
                    4 + $CellContext`k (
                    1 + (4 (-2 + $CellContext`\[Gamma]$$)) $CellContext`\
\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) - (($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2) (
                    4 + $CellContext`k (
                    1 + (4 (-2 + $CellContext`\[Gamma]$$)) $CellContext`\
\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 0] >= (
                Rational[1, 8]/$CellContext`k) (-1 + 8 $CellContext`k - 
                4 $CellContext`k^2)}, {
              
              Piecewise[{{
                Rational[1, 4] (
                  2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) + (($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2) (
                    4 + $CellContext`k (
                    1 + (4 (-2 + $CellContext`\[Gamma]$$)) $CellContext`\
\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
                Rational[1, 4] (
                  2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) - (($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2) (
                    4 + $CellContext`k (
                    1 + (4 (-2 + $CellContext`\[Gamma]$$)) $CellContext`\
\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 0], 
              Piecewise[{{
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) + (($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2) (
                    4 + $CellContext`k (
                    1 + (4 (-2 + $CellContext`\[Gamma]$$)) $CellContext`\
\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) - (($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2) (
                    4 + $CellContext`k (
                    1 + (4 (-2 + $CellContext`\[Gamma]$$)) $CellContext`\
\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 0] < (
                Rational[1, 8]/$CellContext`k) (-1 + 8 $CellContext`k - 
                4 $CellContext`k^2)}}, 0]], 
          
          Piecewise[{{(
              Rational[
               1, 2]/(((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (
              16 $CellContext`\[Gamma]$$ + (
                16 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
              14 $CellContext`\[Gamma]$$^3 - (
               32 $CellContext`k) $CellContext`\[Gamma]$$^3 - (
               36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
                32 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
                18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 + (
                16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
               16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 - ((
                32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2] + ((32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[1, 2] + ((
                 40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                 1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[1, 2] - ((
                8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                1 - $CellContext`\[Gamma]$$^2)^
               Rational[
                1, 2] + ((8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                 1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
               16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2] + (
                8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                Rational[1, 2] + ((
                 8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                Rational[
                 1, 2] + (((-16) $CellContext`\[Gamma]$$ - (
                   16 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
                  14 $CellContext`\[Gamma]$$^3 + (
                    32 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                    36 $CellContext`k) $CellContext`\[Gamma]$$^4 - (
                   32 $CellContext`k) $CellContext`\[Gamma]$$^5 - (
                   18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
                   16 $CellContext`k) $CellContext`\[Gamma]$$^6 + (
                    16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + ((
                    32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] - ((
                    40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[
                    1, 2] + ((
                    40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] + (
                    16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - (
                   8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] - ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2])^2 - (
                 4 (((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (-32 + 
                 16 $CellContext`\[Gamma]$$ + (
                   48 $CellContext`k) $CellContext`\[Gamma]$$ + 
                 44 $CellContext`\[Gamma]$$^2 + (
                   16 $CellContext`k) $CellContext`\[Gamma]$$^2 - (
                  48 $CellContext`k^2) $CellContext`\[Gamma]$$^2 - 
                 14 $CellContext`\[Gamma]$$^3 - (
                  94 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                   16 $CellContext`k^3) $CellContext`\[Gamma]$$^3 - 
                 14 $CellContext`\[Gamma]$$^4 - (
                  36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
                   88 $CellContext`k^2) $CellContext`\[Gamma]$$^4 + (
                   56 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
                   18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
                  38 $CellContext`k^3) $CellContext`\[Gamma]$$^5 + (
                   16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
                  54 $CellContext`k^2) $CellContext`\[Gamma]$$^6 - (
                  6 $CellContext`k) $CellContext`\[Gamma]$$^7 - (
                  16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + (
                   28 $CellContext`k^3) $CellContext`\[Gamma]$$^7 + (
                   12 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
                  6 $CellContext`k^3) $CellContext`\[Gamma]$$^9 + 
                 32 (1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                   64 $CellContext`k) $CellContext`\[Gamma]$$) (
                   1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
                  36 $CellContext`\[Gamma]$$^2) (
                   1 - $CellContext`\[Gamma]$$^2)^
                  Rational[1, 2] - ((
                   32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                   1 - $CellContext`\[Gamma]$$^2)^
                  Rational[
                   1, 2] + ((64 $CellContext`k^2) $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] + ((
                    68 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] + ((
                    32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                   32 $CellContext`k^3) $CellContext`\[Gamma]$$^3) (
                   1 - $CellContext`\[Gamma]$$^2)^
                  Rational[1, 2] + (
                   7 $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] + ((
                    40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                   68 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
                   1 - $CellContext`\[Gamma]$$^2)^
                  Rational[1, 2] - ((
                   13 $CellContext`k) $CellContext`\[Gamma]$$^5) (
                   1 - $CellContext`\[Gamma]$$^2)^
                  Rational[1, 2] - ((
                   40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                   1 - $CellContext`\[Gamma]$$^2)^
                  Rational[
                   1, 2] + ((36 $CellContext`k^3) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                   8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                   1 - $CellContext`\[Gamma]$$^2)^
                  Rational[
                   1, 2] + ((13 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] + ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                   7 $CellContext`k^3) $CellContext`\[Gamma]$$^7) (
                   1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] + 
                 32 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2] - (
                  16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[1, 2] - ((
                   16 $CellContext`k) $CellContext`\[Gamma]$$) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[1, 2] - (
                  32 $CellContext`\[Gamma]$$^2) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[1, 2] + (
                   8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^3) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] + (
                   8 $CellContext`\[Gamma]$$^4) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] + ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] - ((
                   8 $CellContext`k) $CellContext`\[Gamma]$$^5) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[1, 2] - (
                  32 (1 - $CellContext`\[Gamma]$$^2)^
                   Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[
                   1, 2] + (((32 $CellContext`k) $CellContext`\[Gamma]$$) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] + ((
                    24 $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] - (((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[1, 2] - ((
                   4 $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[
                   1, 2] - (((
                    16 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[
                   1, 2] + (((4 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2]))^Rational[1, 2]), (
               Rational[
                1, 2]/(((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                 16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (
               16 $CellContext`\[Gamma]$$ + (
                 16 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
               14 $CellContext`\[Gamma]$$^3 - (
                32 $CellContext`k) $CellContext`\[Gamma]$$^3 - (
                36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
                 32 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
                 18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 + (
                 16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
                16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 - ((
                 32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[
                 1, 2] + ((32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                  1 - $CellContext`\[Gamma]$$^2)^
                 Rational[1, 2] + ((
                  40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                  1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                 40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[1, 2] - ((
                 8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                 1 - $CellContext`\[Gamma]$$^2)^
                Rational[
                 1, 2] + ((8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                  1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
                16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                Rational[1, 2] + (
                 8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                 Rational[1, 2] + ((
                  8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                 Rational[
                  1, 
                   2] + (((-16) $CellContext`\[Gamma]$$ - (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
                   14 $CellContext`\[Gamma]$$^3 + (
                    32 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                    36 $CellContext`k) $CellContext`\[Gamma]$$^4 - (
                    32 $CellContext`k) $CellContext`\[Gamma]$$^5 - (
                    18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^6 + (
                    16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + ((
                    32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] - ((
                    40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2] + ((
                    40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])^2 - (
                  4 (((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (-32 + 
                  16 $CellContext`\[Gamma]$$ + (
                    48 $CellContext`k) $CellContext`\[Gamma]$$ + 
                  44 $CellContext`\[Gamma]$$^2 + (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2 - (
                   48 $CellContext`k^2) $CellContext`\[Gamma]$$^2 - 
                  14 $CellContext`\[Gamma]$$^3 - (
                   94 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                    16 $CellContext`k^3) $CellContext`\[Gamma]$$^3 - 
                  14 $CellContext`\[Gamma]$$^4 - (
                   36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
                    88 $CellContext`k^2) $CellContext`\[Gamma]$$^4 + (
                    56 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
                    18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
                   38 $CellContext`k^3) $CellContext`\[Gamma]$$^5 + (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
                   54 $CellContext`k^2) $CellContext`\[Gamma]$$^6 - (
                   6 $CellContext`k) $CellContext`\[Gamma]$$^7 - (
                   16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + (
                    28 $CellContext`k^3) $CellContext`\[Gamma]$$^7 + (
                    12 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
                   6 $CellContext`k^3) $CellContext`\[Gamma]$$^9 + 
                  32 (1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    64 $CellContext`k) $CellContext`\[Gamma]$$) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
                   36 $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] - ((
                    32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[
                    1, 2] + ((
                    64 $CellContext`k^2) $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    68 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    32 $CellContext`k^3) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] + (
                    7 $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    68 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] - ((
                    13 $CellContext`k) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[1, 2] - ((
                    40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[
                    1, 2] + ((
                    36 $CellContext`k^3) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^
                   Rational[
                    1, 2] + ((
                    13 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    7 $CellContext`k^3) $CellContext`\[Gamma]$$^7) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] + 
                  32 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2] - (
                   16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] - ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] - (
                   32 $CellContext`\[Gamma]$$^2) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] + (
                    8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^3) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]$$^4) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] + ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^5) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] - (
                   32 (1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[
                    1, 2] + (((32 $CellContext`k) $CellContext`\[Gamma]$$) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] + ((
                    24 $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - (((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2] - ((
                    4 $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[
                    1, 2] - (((
                    16 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[
                    1, 2] + (((
                    4 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]))^Rational[1, 2]) < (
               Rational[
                1, 2] $CellContext`\[Gamma]$$^(-2)) ((-4) $CellContext`\
\[Gamma]$$ + 2 $CellContext`\[Gamma]$$^2 + 
               2 $CellContext`\[Gamma]$$^3 + ($CellContext`\[Gamma]$$^2 
                  Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ((
                   2 $CellContext`k) $CellContext`\[Gamma]$$^3) 
                 Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - \
$CellContext`\[Gamma]$$^4 
                 Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) 
                  Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ((
                    2 $CellContext`k) $CellContext`\[Gamma]$$^5) 
                  Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^6) Abs[-4 + $CellContext`\[Gamma]$$^2]^2)^
                Rational[1, 2])}, {(-4 + 
               3 $CellContext`\[Gamma]$$^2)^(-1) (-4 + 16 $CellContext`k + 
              3 $CellContext`\[Gamma]$$^2 - (
               
               24 $CellContext`k) $CellContext`\[Gamma]$$^2 + $CellContext`\
\[Gamma]$$^3 + (
                9 $CellContext`k) $CellContext`\[Gamma]$$^4 - $CellContext`k \
$CellContext`\[Gamma]$$^6 - (-16 + 192 $CellContext`k^2 + 
               24 $CellContext`\[Gamma]$$^2 - (
                624 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
                 32 $CellContext`k) $CellContext`\[Gamma]$$^3 - 
               9 $CellContext`\[Gamma]$$^4 + (
                 756 $CellContext`k^2) $CellContext`\[Gamma]$$^4 - (
                48 $CellContext`k) $CellContext`\[Gamma]$$^5 + $CellContext`\
\[Gamma]$$^6 - (
                433 $CellContext`k^2) $CellContext`\[Gamma]$$^6 + (
                 18 $CellContext`k) $CellContext`\[Gamma]$$^7 + (
                 126 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
                2 $CellContext`k) $CellContext`\[Gamma]$$^9 - (
                18 $CellContext`k^2) $CellContext`\[Gamma]$$^10 + \
$CellContext`k^2 $CellContext`\[Gamma]$$^12)^Rational[1, 2]), 
             
             And[(Rational[
                 1, 2]/(((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                  16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (
                16 $CellContext`\[Gamma]$$ + (
                  16 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
                14 $CellContext`\[Gamma]$$^3 - (
                 32 $CellContext`k) $CellContext`\[Gamma]$$^3 - (
                 36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
                  32 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
                  18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 + (
                  16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
                 16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 - ((
                  32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                  1 - $CellContext`\[Gamma]$$^2)^
                 Rational[
                  1, 2] + ((32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                   1 - $CellContext`\[Gamma]$$^2)^
                  Rational[1, 2] + ((
                   40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                   1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                  40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                  1 - $CellContext`\[Gamma]$$^2)^
                 Rational[1, 2] - ((
                  8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                  1 - $CellContext`\[Gamma]$$^2)^
                 Rational[
                  1, 2] + ((8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                   1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
                 16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                 Rational[1, 2] + (
                  8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[1, 2] + ((
                   8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[
                   1, 2] + (((-16) $CellContext`\[Gamma]$$ - (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
                    14 $CellContext`\[Gamma]$$^3 + (
                    32 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                    36 $CellContext`k) $CellContext`\[Gamma]$$^4 - (
                    32 $CellContext`k) $CellContext`\[Gamma]$$^5 - (
                    18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^6 + (
                    16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + ((
                    32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] - ((
                    40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2] + ((
                    40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + (
                    16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - (
                    8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])^2 - (
                   4 (((-16) $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^5)) (-32 + 
                   16 $CellContext`\[Gamma]$$ + (
                    48 $CellContext`k) $CellContext`\[Gamma]$$ + 
                   44 $CellContext`\[Gamma]$$^2 + (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2 - (
                    48 $CellContext`k^2) $CellContext`\[Gamma]$$^2 - 
                   14 $CellContext`\[Gamma]$$^3 - (
                    94 $CellContext`k) $CellContext`\[Gamma]$$^3 + (
                    16 $CellContext`k^3) $CellContext`\[Gamma]$$^3 - 
                   14 $CellContext`\[Gamma]$$^4 - (
                    36 $CellContext`k) $CellContext`\[Gamma]$$^4 + (
                    88 $CellContext`k^2) $CellContext`\[Gamma]$$^4 + (
                    56 $CellContext`k) $CellContext`\[Gamma]$$^5 + (
                    18 $CellContext`k^2) $CellContext`\[Gamma]$$^5 - (
                    38 $CellContext`k^3) $CellContext`\[Gamma]$$^5 + (
                    16 $CellContext`k) $CellContext`\[Gamma]$$^6 - (
                    54 $CellContext`k^2) $CellContext`\[Gamma]$$^6 - (
                    6 $CellContext`k) $CellContext`\[Gamma]$$^7 - (
                    16 $CellContext`k^2) $CellContext`\[Gamma]$$^7 + (
                    28 $CellContext`k^3) $CellContext`\[Gamma]$$^7 + (
                    12 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
                    6 $CellContext`k^3) $CellContext`\[Gamma]$$^9 + 
                   32 (1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    64 $CellContext`k) $CellContext`\[Gamma]$$) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - (
                    36 $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] - ((
                    32 $CellContext`k) $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2] + ((
                    64 $CellContext`k^2) $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    68 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    32 $CellContext`k^2) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    32 $CellContext`k^3) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + (
                    7 $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    40 $CellContext`k) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    68 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] - ((
                    13 $CellContext`k) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] - ((
                    40 $CellContext`k^2) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2] + ((
                    36 $CellContext`k^3) $CellContext`\[Gamma]$$^5) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2] + ((
                    13 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[1, 2] + ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^7) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] - ((
                    7 $CellContext`k^3) $CellContext`\[Gamma]$$^7) (
                    1 - $CellContext`\[Gamma]$$^2)^Rational[1, 2] + 
                   32 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2] - (
                    16 $CellContext`\[Gamma]$$) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - (
                    32 $CellContext`\[Gamma]$$^2) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]$$^3) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^3) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] + (
                    8 $CellContext`\[Gamma]$$^4) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] + ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^4) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - ((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^5) ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - (
                    32 (1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2] + (((32 $CellContext`k) $CellContext`\[Gamma]$$) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] + ((
                    24 $CellContext`\[Gamma]$$^2) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - (((
                    8 $CellContext`k) $CellContext`\[Gamma]$$^3) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2] - ((
                    4 $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2] - (((
                    16 $CellContext`k^2) $CellContext`\[Gamma]$$^4) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2] + (((
                    4 $CellContext`k^2) $CellContext`\[Gamma]$$^6) (
                    1 - $CellContext`\[Gamma]$$^2)^
                    Rational[
                    1, 2]) ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]))^Rational[1, 2]) >= (
                Rational[
                 1, 2] $CellContext`\[Gamma]$$^(-2)) ((-4) $CellContext`\
\[Gamma]$$ + 2 $CellContext`\[Gamma]$$^2 + 
                2 $CellContext`\[Gamma]$$^3 + ($CellContext`\[Gamma]$$^2 
                   Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ((
                    2 $CellContext`k) $CellContext`\[Gamma]$$^3) 
                  Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - $CellContext`\
\[Gamma]$$^4 
                  Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) 
                   Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ((
                    2 $CellContext`k) $CellContext`\[Gamma]$$^5) 
                   Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^6) Abs[-4 + $CellContext`\[Gamma]$$^2]^2)^
                 Rational[1, 2]), (-4 + 3 $CellContext`\[Gamma]$$^2)^(-1) (-4 + 
                16 $CellContext`k + 
                3 $CellContext`\[Gamma]$$^2 - (
                 24 $CellContext`k) $CellContext`\[Gamma]$$^2 + $CellContext`\
\[Gamma]$$^3 + (
                  9 $CellContext`k) $CellContext`\[Gamma]$$^4 - \
$CellContext`k $CellContext`\[Gamma]$$^6 - (-16 + 192 $CellContext`k^2 + 
                 24 $CellContext`\[Gamma]$$^2 - (
                  624 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
                   32 $CellContext`k) $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 + (
                   756 $CellContext`k^2) $CellContext`\[Gamma]$$^4 - (
                  48 $CellContext`k) $CellContext`\[Gamma]$$^5 + \
$CellContext`\[Gamma]$$^6 - (
                  433 $CellContext`k^2) $CellContext`\[Gamma]$$^6 + (
                   18 $CellContext`k) $CellContext`\[Gamma]$$^7 + (
                   126 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
                  2 $CellContext`k) $CellContext`\[Gamma]$$^9 - (
                  18 $CellContext`k^2) $CellContext`\[Gamma]$$^10 + \
$CellContext`k^2 $CellContext`\[Gamma]$$^12)^Rational[1, 2]) <= 
              1 - $CellContext`k]}, {
            1 - $CellContext`k, (-4 + 3 $CellContext`\[Gamma]$$^2)^(-1) (-4 + 
               16 $CellContext`k + 
               3 $CellContext`\[Gamma]$$^2 - (
                24 $CellContext`k) $CellContext`\[Gamma]$$^2 + $CellContext`\
\[Gamma]$$^3 + (
                 9 $CellContext`k) $CellContext`\[Gamma]$$^4 - $CellContext`k \
$CellContext`\[Gamma]$$^6 - (-16 + 192 $CellContext`k^2 + 
                24 $CellContext`\[Gamma]$$^2 - (
                 624 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + (
                  32 $CellContext`k) $CellContext`\[Gamma]$$^3 - 
                9 $CellContext`\[Gamma]$$^4 + (
                  756 $CellContext`k^2) $CellContext`\[Gamma]$$^4 - (
                 48 $CellContext`k) $CellContext`\[Gamma]$$^5 + $CellContext`\
\[Gamma]$$^6 - (
                 433 $CellContext`k^2) $CellContext`\[Gamma]$$^6 + (
                  18 $CellContext`k) $CellContext`\[Gamma]$$^7 + (
                  126 $CellContext`k^2) $CellContext`\[Gamma]$$^8 - (
                 2 $CellContext`k) $CellContext`\[Gamma]$$^9 - (
                 18 $CellContext`k^2) $CellContext`\[Gamma]$$^10 + \
$CellContext`k^2 $CellContext`\[Gamma]$$^12)^Rational[1, 2]) >= 
             1 - $CellContext`k}}, 0]}, {$CellContext`k, 0, 1}, 
         PlotRange -> {0, 1}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.2}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.765803163526944*^9, 3.765803325325797*^9, 
  3.7658034052558794`*^9, 3.7658034904041424`*^9, 3.765803755982628*^9, 
  3.7658040051366243`*^9, 3.7658040404162664`*^9, 3.7658176243656845`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Figure", " ", "4", " ", "in", " ", "the", " ", "paper"}], ",", 
    " ", 
    RowBox[{
    "as", " ", "for", " ", "the", " ", "elements", " ", "on", " ", 
     "welfare"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"parameters", "=", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", "\[Rule]", "0.6"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTEST", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Max", "[", 
      RowBox[{"cTESTLocal", ",", "cWelfare"}], "]"}], "/.", "parameters"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"cTESTLocal", ",", "cWelfare"}], "]"}], "/.", "parameters"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTESTLocal", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"1", "-", "k"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cWelfare", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Figure3", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "%", ",", "%%", ",", "%%%", ",", "%%%%", ",", "%%%%%", ",", 
         "%%%%%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "K", ",", 
          "\"\<\!\(\*SubscriptBox[\(c\), \(2\)]\)-\!\(\*SubscriptBox[\(c\), \
\(1\)]\)\>\""}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thin", ",", "Dashed", ",", "Black"}], "}"}]}], "}"}]}], 
       ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "8"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1.1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Arrowheads", "[", 
         RowBox[{"{", 
          RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Filling", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"4", "\[Rule]", "Axis"}], ",", 
          RowBox[{"5", "\[Rule]", 
           RowBox[{"{", "2", "}"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"FillingStyle", "\[Rule]", 
        RowBox[{"{", "Gray", "}"}]}]}], "\[IndentingNewLine]", "]"}], "]"}]}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure3.pdf\>\"", ",", "Figure3"}], "]"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7658035214463105`*^9, 3.765803585538064*^9}, {
   3.7658036165576377`*^9, 3.765803712124841*^9}, {3.7658037873188*^9, 
   3.7658037879500756`*^9}, {3.765803833776551*^9, 3.765803852399762*^9}, {
   3.7659732782431765`*^9, 3.7659732830583076`*^9}, {3.7659734131971254`*^9, 
   3.765973457823748*^9}, 3.7659741227205467`*^9, {3.7675309893592887`*^9, 
   3.7675309923332644`*^9}, {3.7675310653106976`*^9, 3.767531068111615*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJztvHk0ld/7/49UQiokSiOpZAqVBi4kMoWIqDSYMhWRBg2GKNJkSiISMmQe
jsyzc4xn4BzHPB1DmYpKQr/9Wuvr7rO03qvV9/36fNb78/u++qd1r/ucY9/3
3vu5r3099vPafP7SMQsWJiYm+lImpr/+17AYJBUPHVdg+j//uDXTCbIzDGiz
fmEXvLQRFl6f2tDwjZnSD0fKznHOGJN/uX62kePzjx9jMP97e36czdZProXm
1dNb7+32g9q7svWVog0QUH/a/OjH17DxyYdv8aNE8HHeFMpyKBk+fO3saJIi
Q/UV2QSm0HSIfp9XzfWIAouKrOyv784CrvVvxvr6GmGY0Pp4a1M2+FlnWUYK
U+GAYLU3JOLgi2Ji34U7NOBsYuwe+ooDZ+nyTL6yZpAKPqrRXIGDzuTyB6TN
LaCxYUCEvAkH320aX+y40Qp+t/2XCNwogZ1KS+cs89qgjZosLyBfBWpRm63S
1nSAv7LJJbPkGri6/syW7lOdYOjyiGm4vB7Eho9z0LS7wEE0rpTpERF4Voyz
lU93Qe09jtBdviRgLXqRIhTWDQmCnkdbFclgK5tHX6bZA47Bdjsd6WRIVD8f
WfilBwxY6jpn1Cnw+cPalf3BvSAm5b7Y8RkFsvTVFgWq9MHYric7JMgUuHPE
KyKzvw+UDETe5E9SYHO7RvNrLwasaF9/T2pJI+zfezdQQLof/J5+pda+oPzS
P5+rH/Y4uA8An03f/g2zRAhhNXU+JjwIkSP3JLIvNgBPR1YUS/kgZN7bfuXz
WC0svuVusM9xCIY5ppPWHqgGpnjTlB7u98B0ykv5SmYVXA5Nechd+h7kgpUI
WV/LoWDnfbZVFz8Ap15ne55aKazSuCzmwTUM11Lsw0YfFEGbOJFyPX8YNj29
fW6XYC6kvgThPtMRcGNf1NHBlgWnU/asWj83AvxeGi5rVqSCm9cr97aEUWCK
G2DsPRYDSYPrX3BpjcHZ98phYreD/+t4I/81jplLNZQfDtfBW/YLRPf3L0B5
yCN1iTIRDhkZjxp7xcPicovhosckeLeM2/UcSxoc+VhncLmTDF9skzYtYc8E
uueu9uv7GmFM6XAeeWM2aB+SSCy92wT2w+sEBPRxoHQ8NYaVTIWgwucV0704
yHqHq4XNzaDic/GS4jAOEhxUNjlfpkPfCdUrPm44GPGrDZita4GEpm+p+5/l
Ag91RAu/tg1qS/IcBV6WwzvHQGk/63Y4vbtP8dFrAnSeKVZRz+0AoVLua8IG
dTB4wytMbaYT9pqYp9xgJkLk7BZf7eguaGMJsNbnJQHnwOE2J81uMN9lpbr5
AwlyrieWB090A6F90V0HfzJwFHHJ90X2gOFlZ8uu1RQghiqcIKv2gnE7l1qR
EwWaNqYtKxjpBfcWU08qjgJrj1rqRQf1QWW/Gy6HgT7PPXhAbA8D1Hu+rjj1
gwISvlbZHa0M0PJg4gxe1gg1CTuqHnr0g03CW8e+aTJsuct7ZGnsGLh97ZgW
v+0NYV3Hbzpo10GReTH+qlIQxO0MX2NDa4DBnuVH+2mxwJ2wfUIWSCA1pbM8
cl0qhE5SBYTvk+Hq8u6Y1SczQAH3Rb+8lwKM9968UWlZIJFqU0eRbYLTUZx7
uQVwYNkp7X3MlQqnn5VsdqjFgeGttBMGRBo88wzPfvoZB4/17tpUrKUDj5lP
3OtYHPSH4x8PXG0Bp47G3fTBbLi36dzktepWOC3gOHhmYxlcpmuHXOduBxIr
bt/uW3jgYf54fPZCBzzaFu5+634tSGldPhP4thOcnD3sBi80QL9zvgb39S7Y
b80ifppChJXfQz+tE+qGxc2KN4XzSWAaJrS/vaobLvPH8nHYkiHvmznH1ys9
EOHXuaZ4igwKl3Vv4jf0wvqkJrm4M+g5F/f76ZX2QvjDjf72cRQYJBqKCtr3
gVrddjefNgrEJWXbO3AxoERoV6nPNLqWMVYrSWXA2g1XEs3ZGoHlIzVJ36Qf
ZtYfiz6hSYELe55/ZL+O5ocMvfZVxxOIL5jwW8xZC0JOJidf8VwHy9fAlvCg
Hi6U0BoYXK8g9eDe4ydCiJC7w9BebTYRptqjGBpdJDh+64UTjZoGX0bKHxfv
ocAGj8Rk6ptMcNa1s5R83AiXTw3WlLtlgx314/20xibQsTI9n+yJA8Ea8Yrs
7TTw4yeP63/CAe+XAsWdl5tBo0D1qGIbDsofs1K3VNPhouC4BBXNr0lX4jMe
4VZY/Giakr2kCCIe3IhZY9sG7AVxVzq/VwATe2vty+J2MLJmWrwpoxoSCx/L
BHF0wtkSG7Vn3PVANKi1m93aBXGaBxi96kQw8fYh3G/ogl0WI6YSeiRgo4xX
1Dh1A96s7JbeGjJwG8no6G5E/XEq1HcXjgwn7+ZcJNX0wK7g4mvDUhQ4XyYm
23axF7J6Ey4c86ZAxb6b3tsF+qAkWvxgfgUFtGquXBMr7IN2Y4J15QgFpq4K
sA+eZkBMWfa7A4saIbPrytaZJf0QosCbtfQTBdpIj18uoqD+4F6TI3XbBYYu
nRToma0FnRgn8xOFT2F/8+BlfvcGcOWa6P1uGwP8631dxvhI4GT/3ENQOQWU
XU7O3DxFBpFdyyq7ZtLho67x46EcCtxW3N584koWvOy/b9rG2QRLDvpvPTuV
DdeFnV2+6VBha/esEG8BDkTOJL/seEODqtDIe6/Q+siiHL1idLQZEpYejdiI
w8H52MqHbVotQHQ9YuC3GAclFWuP6EW1wjNeFtoXvVI4+lBUc7y/DQrqmpyC
uqogSc/H1EixAyTvxoYbrK+FxszB4ty7ncAjH6kuy98APlLLEp3NuiBhOU+B
YhoRuL0qZse4uiHJr9jX7zUJ0pI6nZnSuyHagnX2qCEZeNY8uex2tgcUt/VJ
nB0iw+Rp40dl7L2wM7Vw65LjFBi55lb/4m0vCLcHNWyJpMBR7ga+5hN9cEJ9
FZsHjQK838O9/af7YAdHH2/ZVwqYs5EfS79gwOii2Du2KH7ZECj+ao9qP5TT
ogv8kf75Pj5Z6Xd+DIq5HslaJQdAj6D8tY7cGqBOLmb6wnMOMqUPx6w7WA8n
3YLjLbkj4Bt3u4ekPRFsQsgPq6sSYE6X1XpxDgnArN+v6WIaRFxSvyzAQYH9
X1/QWU5mgsj7+lcG5o2gemXGdVAvG9o4V67NfdsEF27nfvK1w4HEyktZp2ep
EHJJ2EcVrR99tFzvLPVmsC6JzVjFwMFeN2FXzZd0qK6SNpqzwYHD3fogtm8t
ULZIKUOwOx/oUrLfxpTb4H7sVat63QpoK8DdWR3UDsnPP9QvlqiGwyu2Hxzr
6YCP5mPCnzLrYIvPvfCV3F3QI7c4RV6ECLNK1B0f3nXBvcGjH0CGBOyn15Ei
znRDqUjO7SfMZLC4MObjtKwHttNP6gvFkCHjVW+TSXYPlNVmmr0RooBAym5V
mkkvPCBfMJa7RYG6t3z4y4tQf3x3rZ4qpEAG56j5YHwfGGlvXd87hPqjgkmI
XYMBYi9ic62ZG8Exa9Te/iMDblzksyKi9eSH6DEnr/wxUFS8svN1hxv4rQ/k
j+BqhJIPt7zs32dB4XWtgzWnmmCLtMikxl4cGIR+DEqMpQJoPC06T8eB94tM
7uopGgQ/fnK37CPSn3PmFWGqdHhzTPXMxUAc2ARVP/0U1QIKpokcR4RzwP1x
h/xZ9z5oOFn86XA3BQ6ebTA4uoUBAlvqClbNUuCDadecTiUDSOhFrkftm4mg
fI2baQKpOHz3kxAcLPMeblxhQIOl0rHXpL7gQIW3ZDoytBkc6tl+NJJw4Ccq
/bHCkQGbJjcsorA2wleO2TZfwX7gHlys+r6SArnX6gjuQ0gPVO9J77ltCU/2
dgyspdYC5YXzp5Pdj8Ez+VHk2PEGYMavdvRKjYZq82cPuBeRIDlfaOB+RTLw
4cLt41XJkCDuqM9Wmw7V4eziN19TIPuCwtX241lAZeZ/0zXVCJdedfTwDmQD
S1XgqNZ+KpDbuHuuZ+KAi/i25HUADRblfGD+gfTgwH7Z8yz0ZjAi4piyCnEQ
mVDBabS3Be4E8p4/zYMD05CvjvKPWqFs/fc9FgMlcHAgJHonqQ3u8n5UzH1c
BdPXm86zinWA6IT1Z6P+GhAZev2xzqET5i5GKfeN1oPJI8nWmBNdcFC1trki
AulBtcmiFtZu2EZQqvsaTAKTbHlu7jfdkPlZzvatJhmKYraKVBzvAbfvlwk3
uslApJxeU8LUC+DE7fdIhwKO6dpjxa96IfCUyygVxbssMhzLs4/2QbwlR353
IwWqX60KeD3eB6PZSgNqXyhQeplL1vYJAyqj+XWoKF5+y2heu/1gP8TJHq1O
uUcBwfz8VG0jFL/cvDCozhcEd2q7RzT8a0DxLbv/06J+BZPpKicD3nqwbz3a
zO0RDhvmUgReGBEhzmXEfO/2BPBgz0roQbr20TwLv3NfGjinPug9/JkM3pK4
OxwymcC01w0GjjbCxisPtqruywbe7RHnC0OaIM+8KlnwLA5y0h+Lpw1Q4ZTo
u6PWgzioPfIu/sbuZmBy5//cjq4drmXWnblPh72jwfxTV3CQfL+O17O3Bex4
N9z4XpwHLotWCbVJtMGEuoiq41Q5VK8RoeveaQfD4eS3N4YI4L/XWTGsvgOe
F658/OluHWgKMXavZesC6tBSWyZeItRHzBgLpnRB/6LJiSEhEnBEpVJ9jndD
c/G5Lxe/kIDLUXub11w3aOnNlne8IMMZqes+EYk9kKNtq98oSIFJ4f0Njbq9
4Nx2r+HeNQro9fcOPpvqhSVyjyKd8ihgKS56sjIC6QFXVDd1AMWbds6S6xQZ
UDN6ysaGqRGIG3dyx/YzoOjjh2+5aL49Mco4rZqG5oegaMCFZE+wsDmcvesb
2g+2BrG51GfBl8DWuw1HmoBRlkO6uR0H7Qe5uX48oYJzrWXSbgoOLnJm7H7c
R4NcVXVi9wSKD40n16RJ0cGz5crTonAcFJUPbtt3vwW+e0fXPm/PBtnUtbIK
V/vg5k0n1o8dFPi05NC5M/wMUBn29Wr6TgENguDr+3kM0B7jG8WjeEs277xi
0mAT0AgOw5aPcOC/fbm2mQIN1LoW37o3iQMxr6L1lt7N0LMZTORpOFAmxcxS
rdB+TXQ6hgvpgaHLPveyVf1gwPNw9hqK7zRjJDKVO9D4M0kajOlwgHF3/bkY
Cyqw352BlWj/qjCa4iqQTwP7/YWLyUhvhKOquM6fb4GrTMaTZ75mw5KXQR++
xTDAcGyz/Dha72Lsj8qz89DgFVFZInAMBzOW+Wbjp5vBdk85vq0LjZ8ND/m+
6TPgo/ymTSYsv+73q78S15/Ip0K3XZD4tw4cvBTNHmNd3gzPX/Izy6HfE3ta
w30tpwUa5Q6I7Dd7B36Tr03WkBjAbTLleg71n1tvzal8axqcuy7uqYv0hepZ
2JfpyoB7wT9G7y9uhO1adp3Fk6h/U622Kd02BLMXG3X2ltbC+MZvE17LH0Hc
83N7TyqieMhlOZOZXjSYyvAY500RgTQktj/fMxncaAqxRQfIYK6pnSSakQ57
VXpdK0IoIGnElos/nAWXH5+p6RltBH6eipZdHdmgxh+T4CJJBd+KjbTxFBx4
sInpe/vQYH1DdQjLFA5O7Ln5gLO+Gb4tWz5rUIqDYrHDWoFiLWAYsvO00Foc
vGXu95a52wq1zSrm/GklIMurq6de2QbtVfGXXltWwaZH3/taNneAxaXO5beq
a+CoJ7MvzbITtL3tTs/S6+FQgbKTgn4XGCbbxg8HE8HfbuuShh9dsKxxciT0
CQlScoe7Ql91g91EVY460vXV9uN3rHR7oDuo6P6NdjIUcnW1Fn3vgTmH1Bm8
FgVkdDLv6If1gsdSC3jzHO33D+1gi1Hvg4Cwy6a+FAoIX9EUePuhD350J2ve
/YzG8xsx76UPGLDrgL6bF9I/p0fJtE17+2Ftb5Ru4VO0Ph8b2Zqsh8ZfxnHl
A9VBIGG6rNWBqR7KkgJoMrgwSHUSYBC1iDBWvK5OmhYPKlYPNUnPSZBU/GPi
/fo06CCKCZ56T4aXhwPqEzZkgl37iUdSKo3A8Zi5KFYsG1Kz+r2LHzXBtsqv
8UnGaDwuihxqaaMCywe6jko/DhTd5Q6c3tkMFhe33wp7j4OHzjNfrG/RYXte
F0PbFQf17NoGxc0tcMPzXtwJ8Twot/uxlyzcBlIsNm1eNeVQqtLuddG5HY7P
hB9OqyRAjmZo6eXyDrjLnvoixq4Ozo7zsGxc1AVBDrOplexEwNWv+JQZ3wVE
x1tkEUES+Km40m/rovjn89qkunESmF2Z+bz8WzeIV5X3ij0jQ9bXQ71KsT2g
sxh/21SAAj1n8gMomr3Q/YDtsYgLBXg8Na6LTvRCi6QGb9w7ChTLHzHMCu2D
HPtPnNX9FLgCyVlCB9D+QMVyEwPtp38YqJsrdzPg8JvNVxLQfKGP9JJjE1E8
6sOqpsnnBeSVGxa7jqJ9R0Bi7bbiLPDfIhRPUmiC3CPjUq2bcLDl0Zbq7d5U
OOR3jre/AQc9KtJVji00eJMp9LoK6c/l4weV8rbS4WBvvT5E4aBqnbpuggda
L64cV3DuzoZHxXKS4pf74JZS4bOidgpot9wcsOJhwJIDx57tQnp3fW7/Z+Fs
BtQKLiOGIL0jHkkwT+loAjX2PYGCPjigXV+/7KEMDZ4WywrdQfoaWaCQcuRm
M6y2lfOvQfFYeHSnZ+d5BvxwDF/0Bu2HvBKNKGc4++FLnK6xItL/wANndrxu
RvN/z3ld22QnkKWY5TaYUOHgAxJtawkO0kUkl8+k0WBdTs+EGtKPQ8JqRyOM
WiAn98gd97ls2E3JkA+OZMDU6N33KUiv3heafpNhQ89fsUzmxwhaLyMOfCbr
N8MSmxQl1l4Ur32qDGPWQZ+3q8X3ovhT2Y24jvSFASGtGUZN6P2vUO+mu6dR
QY6HI/mv/Sm32W73AZZm0NFdZ/RgHAeaPJrHspJaQJspS3RnRQ7k7yh9m1HD
AIpupJYS+n65bBt/vykNjH31PUhIn3cZTdkUuDAgN/x0hSTSO8eeMIPNY+h5
H683S+w4C6HPxKVKwmnAkPR93oGeL0B+vLs+iAF991mntqDncTp3x/HeJyrE
ey2ZtkbzIfI9Z/GyYQY8Db33sgr9vWmKTPTbURpwnBMx70L7a581GiTJkBaw
YHE/cdUNB2sD53SHixlAEJhZ9hn131HazJN96jS4c6JG2v4zDqqzpN7vqaRB
9ZmTfYDae1ZQwb1rPQ0OyX9KXYzi597VgVdDmPthfyNtZcMMBU4XebG5UhlA
JRrn3kJ//4B/XqS/Mw2+fN+ZnITa35V1wObsNHo+t+2rjG6rgpZ2scfhnFoI
eXxuN+eWh7B/RQ3L090NwC8lyH91czQUnrsTnz5BhBv5hnQns2TItnpcqrGH
DB1qVooRselw8ZmOkE0ABR7Es9rFyWeBoqFne+9QI+S3hnWn0rPhvWLSfQ5R
KsQyQg6EJ+EgP/rDi6t3aUhH1/h8Q+2xlN0U+RTfDMdOiBxcW44D4gjrsPS2
Fhjw2ZFwaz3aP+w5/VTiTitUq8qopQSVQGpC4rbm4jZoYlXrGdarAtkQLpFK
wQ6ovvBm87X8GjivK2XYdq4TbvcGs95oqIccA60iX90uGDiVtOK6PxHIBb73
1Ge74IwCe6PVQxK0HFQ50vmyGwiFk98DDpGhmNj0Nke7BwwCAuZcWskgK7ZZ
Ab71wJOAW8Vmmmg+hA9UhT3vBc29pyb90Dp2XzPHS1CtD0yHDne2kSlANr1w
SmqoD1x3NExvQnruW3og5fh9Bugc0PU5ifScel5gT7gsiif21wVUBKPvh3ud
7TiK+kNHa0xGOBj4VyZw3flSB3jPXofVemFwXaK+2laNCCEvV7KcS46H6KBv
L/CBKO7jUzCQXJkGPOduyQ30kSF59sfcWd5MiJKq2N2k0AiLvxgZHhLJhts3
2Z+X+DSBCNcDvguGKD4Qi6u6RKPCke1vNgqj/euN9VOeR0Wa4Z7ukRrHDzgI
uxzJMXaVDtcFIr6O3sJBRw3npCmlBc402eiH9uSC3SsX5bqNbaCkYDPSmVkO
Cq1yp2YvtsMYFx/nziwC1B5PWmRa1AE2D9mf256tg/eGOy+8YuqCzZsqvm9Z
QgQxSwEF5jddIMW/fQfwk6A2qMvkm3Y35NbFd0yNkODRV/3Tx750w765JlZi
IBnOntyxMuB1D9Rv6XCNXEMB41uzn4+p98LqtdffTjhTwJl0q8RpvBf6Ugc4
i3MoMHKYRhEL6YNB1uhPSkjPt+yomXojx4AyO/lVr5CeB1868fBJBwN2Z5oW
RKL5MSd3czktDq2nxR8jD1Z7AZu579uNaB88PcLd/yEnC84OqeaR9zWBdENz
1HdBHJRni8YVuFEhje/HkGQ92r92f1xh1kSDLKLUNik0X930u44rbqLD2SN6
o87RKJ5qYxs/cqsF9rrHee5gZEMevupt9KU+iF0bu3kr0vPpsueiwysZsE6h
e0fHNAVWCmhscMpA+28mqsIdpAcvV9S7pNKb4Nj66m/W3qi/orYObJaggd6n
c4MjSE9ajOe+7rvaDKqCPZuXteJA49FMpdlZBrypo1EckZ4LVlrOJC3rB7yT
9NLoYQrkeH81ozSh8RZ9kPUo3xWgfrcNMT9OBdGNuz9sLsLBcOno8ZG3NDiQ
5al5Dc3PY4wlo/LHWkB1/cXSZSxovzNSatkXzoBVwRZyj5D++Q1Y0vAsNJj9
cMxoG9LzhAPf5cuPNoN3RoE8Vx8Oslt7O720GGART5J7g/S8JbRTZeMkA0xa
NptQ0PtPdxzC8b2lQvph9QvUFhxo/ZgkNM/SwGrPgSZRpG8mjeyf9ONa4KX9
2uTVV3LAQIXUxExggNzxQ+8k0fctT/d9uWFMg/LwaiUvpI8diquTlZwZcHTE
j8aM9DxYfPdjvWH0vDbkaodkM2iUGbmWHkIDpk/WFp/Q84me+MG+PoAB3+OZ
ts+i+cnne09HcIQKnBbGOy8O4UBuseCQ0RADZI1mq0rQ35N1mBgOH6LB9hnm
B+ZoPQ1pXuZY798CPKeXP7QXR+th8vIb+wsZMLN42c1O1H/jP1gv1R+iwe7Y
rfFzaL1nPTYuvb2EBmJVrNf9UHtZDqueucJPA/l47ZN6aP26IfU6sn+OAZwR
7wqlUbw/SQ/cRaCg51nEKuCA/n5HbtntbZdoUHT1oK4naj8rc2P0k6/o+aZm
jbI7dOGInR170CMatMwut2FF8fKF/fsPTPYyIHi2XiYDfT/HxCeVA+2ndN4/
tX73135Kb/XOKTka6Jb1vVmK2nfN91I5O44Gz3bEe61Ev59gUfLJ4xsDjvce
PUtF3xdekeFpUc+APJGUHj10vYWzcb+eORovW+MVV6PPn/1uP9AQRYNlXuqv
y9A1G3E2OG+UAeKlXLdr0effJk+mRx+lge+nq5soaL48EXB8dbiGBiNHwrSG
0XWIdUbp7HUanKZpvm5A38+3eS0pNYueb1NCn8ftPaB06iD/W/S+o4IPfjqx
89f94TwvnedO7mwZ23wEAiHfqjRb5swYnDB+lTL+MRps3i/+3JU6Chw/3E+p
bUiBFV17fddxjcJWvdHBsgeZ0Lq7x+PexRG4Wr8PQibfwa5K/im7kmFYk7mq
g5m5CG4R5Ms7Nw5Dds+h2oaDpXBs6RhnrcMHKLUJX2c8XA66Mfzvhsrfw2cR
+RVJ9lVwKFsqP1D4PbB8S1y5bms1FDM3HXjnMgTz/FW62IrbtnEQ4691HZe1
ju4exPjr+F72RYn3BzD+ys76ZGXQQD/GX5PZo0Kn5Pox/nrdUez+w4cMjL/u
14ypTRnpw/ir15mEh5qKfRh/rewPj3F+2Yvx1ydx6/evGevB+KtH9WrpD8o9
GH+1OTPjphXVjfHXNolLWtsmuzD+quJIvPhYrwvjr3HbDIb0zDsx/trSvXH0
KnsHxl+n3PGROVVtGH8VfeajNWzdivHXBLsDRR7cLRh/5dte3SlDbsb4a/AJ
x280FxrGX1kufS4OlqZi/LXwsI1OzuQ//DVytY63r8BdSCjrb3qeMvYLD2yX
vHfooYAzRH68xqiljf3CpxbyESPzrwX+AuYQxqZs3/9h7Jd8/cJ88cJ8qmYd
LT1cwAAEAkV2TXwe+yW/tzC/tDD/sjA/IRMREpYhoALNdP6AbyjOXbhfXrh/
W7i/WRj/L4yXWQ+tdegUkIWcmVXlN5EuLYzfFsYTC9fbhevRQv1eqHfzekbu
O/z0+XM6pmdXQrXFVm2mY3pW+SHekO11M6Zn12WeqeyUacb07IbeR/GiWhqm
Z+G8xtzWF2iYngmNswVLonVoXs+Cq8Re9TdSMT3rpy/hz02iYnqm2kQUbo6n
YnqWaaJ+KIxKxfTsdvzgLJciDdMzesCmp8LfaZie7ZIk+Spo0TE9K1fjixRf
Rcf0TCMy/U55ajOmZ4nyukxP0T5xXs9kBp5+oaE4YV7PVKgrLfnQujOvZyza
meJe2jRMz6J0NQNm0T5tXs8KTDP4d76gYnombrv6gZAGFdOzU8e+Ht430YTp
2YubRNUPUU2Ynn3Cm22cNGjC9Kz0YL+BNHMTpmdf7Q6/wWc0Ynom1yuZ/PZs
I6ZnrtcPP29b0Yjp2f6RTctFK36eJ1GfEMvqdv55nmSGd3l+qOjP8yS6SzYs
suohY3ommsvMnRf487xPZmxDT4/W/zt6libXsoRxig5qJTFcdTfy4eYJuQ2X
FGhwzjT2dFxHMXQ+yeEMnaBCfuy4U2BgGawbvOrkWECFtiP2qxeJV0JDgIng
7jdUmHk8ucKcgAePUMUH9TlUELzpbYazrgGO57RpNRTnzp9fiV322dzyKQ07
v/L1dJbnwKNm7PzKmr0y2ZIKdOz8ik3qEs+qrmbsPEbjJJWU50CGOGeJi/tE
ByCV77XQw0TSv9Rj3MrXsltd6dBZNRabvjcPOAfSmGaP0WBPmFFsoGQx9Ees
oO5ZTIN3Kms3pQ+Wgs5b+iE1PBUajL34k/0qQN5aRe4Cmq/XWkMe31+Hh5w9
A7SIFCo83i+w37qqGsR08aWn31Ox8yAhqfxyYxY07DzI86BRM33FZuw8SJRz
yTTZgI6dB7npljY0MtWMnW9oDF4Une1BBg/CXEb4XD/M2LGElLOQf1lPUnJP
ugwUFIDX4aB7DaI08Nv0mTf/YQlMXJiTuNJLhSK2qioXxXI4eaxV2TeTCoN7
j3OfqKsE1wEijybqrzsquk/gKgHCludtTqugYucndAo+vMveQMPOT6yZ1h6d
KKVh5yduhezloA80Y+cn8roP2L3eRodA85tdVQn9oHGrK6DalPwv1zunDw4C
xr502FnD67Q1OBfqCcX7Qk6j8eByNmh1ahFwJhSf8eGiQQ6P5Jdi/1JYtop9
4kw92nefXxXqebAC1Dg+knQSkV4y2zaEllfB+MXYaH20D8I/P79V2aUavsz1
6M92UrHzBxbRzjn6qL/nzx/oiCQWhAs2Y+cP3lY/MBM/S8fOH/AJ/njKvpiO
8fSzDRxvcA/IMDbRT20Y7Ict/NLHzkqQf1mvvxe4KZsIFkCraoCrmywNXIq0
90nvKYGnrxwJhh+oUEhrDfd6XwZjKsVBBWh+nFfsDhC/VQmyltFik7FUULDZ
QtTbRAAOiybF8kIqxuvhJiljcAUN4/VGFZ395+JpGK9PWIybXJTbjPH6Q7Lk
d/3SdEhdSqEkBPfD3LsaplIr8q/xxJXFGq8VyuBDYfOHyFIqGOp9C25uq4Bg
bR5ltjgq5GZV6rhcxsOlbPuUigx0v7Xh6BP+Ghjz+6iA/0yFo3q6nXNhdXC/
8YvK+A0aPCja3tHOR4Tlyesnzlk2A+feqks3rEiwQUjI8bY6HYr3pX+0Ci4H
6ZGiqLZUKlyUJDzxWF8F5luWpgH6e8UbbuuK1xNAaV8mS2QdFS5YPt3mXkYE
P44bgb78dLhWsnWkr7AfqtzFfZuOk/9lPLQxRrf661M6kLS20U0P50LB8f4V
0+fRvnH1u3cPThTB17Dbcsd4aLDXdd85vFUpuC0ZqwsiUcHLkmZykbcCyHeo
w85oPPHxGowJPa+Cx9PixjMJVLBQX/oiWbsaeCyrvcRbqRjPvqs3arVUnYbx
bAsZVZ0XHM2w7Lk9Dx2tG+s1TQrFz9Axnm0wK665joOO8dncPddX7HtChhD9
8cvsHf1APLFx7YdD5F/iuVcQEBdQkw/uYoH7HPbRYJjrhqY9ewmks5tfthuj
gjz0sz0sKoPoj75lS/OoEKHyxoD/eCVw1K5fzILm+/pbHOMtk3gwF8VtT0T3
5/nv7ZF9LhNsNJjnv867g+ykw2kY/1Xni2jYFN2M8V/YK+nuK0cHBePb2mF+
/eCZVBimYEf+Jd7c374iK4GnDGxdAr0skL74Hy8yKsusABfq3q+xqL+f41Mu
/VDFg1lc/ffgNCp88nUunxmrhkN2e1d8RM/zmZ+StPdKHVjtWS2g7ID0J+G7
szozETLuiOOWo3jm8fjVNCN9EvT08H3fpkMHxVf5py7ZlkPL5QyrqHQqJMo8
1rP/XAnXhWQ109DzR+6ycsiOIkBFV2DEPQIV/PTMC4eT0P7Q//QY5UczLOEh
WVIz0XxRSS7VMSH/Ei9zmmrSQ8wr4MzhE+c00XgwGnVPWTVeBW3pBus6UXwX
ZEaX5d5JAm7P3ZfvmNAhp+NyRfZEPzxRXnvFn58MCg4k6dury+HllhqfgGwq
bD24jqIcUwkdMe+PcKL2mRrtS8VrEsBMJW/zOjQfBbRlqCOs6H6uaLEfut8a
1S45Eo6HbYYaW8TR95XIb7zPlpTDnicSUfvQeiS9cxHx2eEq4LWy4/iK3q+K
a+GT1XQiSNv61DAjPXh/6YbTBL4fTk4qvT+pR/6X8b/hpnFNfBCKJx9K+X1H
cccpZcWxFLSeRZkzairFisD22adThatR/JhcyKd1rBQIhqSu/RQqRF/Yn2fG
VAEWFIYPD3of3uFH7lzwrIKT69aPmKH3JfuK3mS+rxrebrHd1t5MxXioNJ84
2U2FhvHQHTRcytFFzRgPZRuJki45Qcd4aNHWJcrCXHSM7+FXX5u97k+GEp7V
jlea+0FajfOOiwb5l/2Ls1vYSanX+TBmrVszcoAGsXueNPpOFgPLRM0Rt48o
frlsW7gyoQxMePiy5PKRXquyZy1XqoQ51fWTfOj9+y1hctvYiQein9yZ3blI
/4QztzPfrgFO37qQQBQ/zPNEpvYQQcVnNIwnCpzG77r0vBnjibfK20ZOHaAD
K4sBe9C9fjilLSx86yL5l/3V9MogG4m5UpBbJUUgV1Ih1WhLTk5kBQS9DNBd
hOIRtmPRPw7twkOjeaBvINLT4h7VH+mt1eD8cZBl4whaD2/yrjY4Vwcy6jtN
l9vS4K5itdvccANMP7b1C1dvBl1t3WOq6iSY1uDVmtWjA1OTEvfE8XJI7JBf
74/0vnr3p7Tz3ZVw0md493X0/CvzTjJ99yOASWHC/sAqKmyoqvPZ8poIiskN
ukUTzVCXFyvUkNIPqbaS/A/ROrpwfyh6NnnfI90KGFzx4gYBjYfKqy5g2FIF
8eM8BG40XgyL05qYNpMgMNjjgOFpOhgMiR09NNoPJ8Rjza4LkWHuteEgM1M5
6MnYu0fj0PhWuC0j97QSaGLxDt/R+lnfJa64fA8BugVmeqyKqSCnE7ynd7wC
LktvXFmJ2q8hRi7adR8PQ9IZ8p9QPMS0RPxgX2I5DDO6C5eg96crbin1cFcV
aBWslQlG84c6vu2UZj0RVKKVG8S30iGNX1dquKwfLjaJvAnRJ/+y37U0d56+
tr0C6k/U6Xeg+CTW98yZzuQqYOce9n2Frluun1/TwYniJfGg96xmdPCdizxz
qrcfhlkKFdX2kcFNWWVyi3UldE8VWXxBz+Osf+prHb4CbFXwivqoPX67xD5e
XVYFlWNL7CbQ8yzZn3NZ+10lHBEvrxVB19MaxCtT/JXwoC/J6hS65t0ReSnK
uAqcVez0z6PxIlQVnT1d1w885131N+qQ/+X+nG9KkZr6jA5cElkMAlsu/BAh
8HNa0eCU33eDPr4i4MlJNfrCRwPqEfePD9G+xUbLaHgF2u9mDNnamn4pB2YX
5kYL1J8KPcpVvteqwGUqxEUQ9fe6OuUJkKwGfrdgfC6NivGz1YsN9A8r0zB+
pj89ZLj7Bw3jZ0fj+47dOEbH+NnTZ1v64lbQMR4kovPBIzSADFwCl7Pymvoh
B3888a/zVQvzCx2bNmfNPcoH3uits+LyaD5orHv+fKgYBApn7P3Q/raNU+L5
sYgyWKXbt64Rzf+6qgMWbHsrYTnftR5h9D5VNKerlBrxoLx4jYDbOyrs1l2v
2uZUAwrMI6zDi2gYfzq3+fMu3UAaxp9uxvBsFQlsxvhT/dAj1cqDdLhALbyw
ygu1t1zGJewS+Zf8R0uC0WGHiVKozyrZ5IfmW3Gz/oWM4Aq4njGYIYv6szj4
pZqlCB4usOa78qPxG8eVKviIVA1bOlZr5aN4M10i68h5ozpgem5y0/UCDfiy
ZbRkexqAzKdZNKHSDGmu+VHyKiTwLUldc0GfDl0XWUdkNcvBPdBUaDmaH/Rs
ofOnaZXwOXBm4Cx6fvyP40fWexDgnpr7m0ikRwPuHpcKwomwTXS/XeVIM0g9
WeWhmdQPiwuVSImnyb/kb/Z1dw7dV62AsMSCCA40H27nO9y71lAF2w8bBaSh
eAs3ul5kah0JftgnlpWY0iFq1Mff50M/5G8ZbhneToYOeYGyQ5/LoNRLdZkU
ip/1i1J6pe9VwlMH//C/5ov31u33JXcSQF+BeXNgERXUiFX97f0VcOShBFc/
aj+LY+1Sg1t4uDsnLWGCnq8rYoxP5FU5CG/See6A3t+Z5Gdd97ZVQY1Le5w1
mm8RiW1K/XgiyKwOFqJuoAPvSO6jCyX9IJ/L4MEZkH/JR7kwYhKcNlTA+/cR
L7ej5zFtMH7DHF0F4nRZI230vA+kShZpsZFgzv/BMR1zOjQvmnsd1dUPulOL
cnIVUPxUdiV6/ZlKyObmZv9LzzwbH77BF1ag+MxwyU3UnrD0068u/6gEu8DX
/CT0PHx5Q1uOpFSCz55hfX50zV7LLDLBVQnloa+dnNC1UAJpY7hOFawitp3Z
icaL94sVq6/W9MNX/nWh8rrkX/Jns6xv2MpRvBpO4zvAg+JV6r3KaSJaT6PZ
/eu10XqaXNHMyqNZCaozKw040O/nZhYzX/hQCaJOsUyB6Fq2QMtT/kUlJAnU
x/0Vb26vN/cenK6ApNZHGnHo2rGEW2W7E/r89dm1f+13vuZ4lx4rq4Rbo1bZ
e9H9D4SXFbNbKkE3hjlCDV0vzOfh7Fuz7Vv7IVhY3V9YnfzL9cL4eWH758+X
vtCWzXW5PfBLfyyM1+d/PzfthLOg2s/vc45dvl94jg4L/WX/+MH+Hj/YP/m7
f/xg/51+sKbL3zlHw376wXrXqLbF61D+OL/4j//r7/F/nZIrSVQ8T/nj/Oc/
fq+/x+/1ImzzZPd9ym/zt//4uf4eP5en89XBx7aUP84v/+Pf+nv8W2wbDO72
+1N+mx//7/Zntftrai5t7oXi0PVPpmIpf+y/+l0+/Hd+qzDq/pxaFhLkXjw7
RS77x2/1r/xWjeXvbso5UH7J14ssOzk42I7izRF1SQmVX/P1//ir/h5/VQLT
9aEhtD/4HW/4u/1Tcc8JK+0ftsAAY+Wyb/RsOFfLbydW1wu6Y4rjc4mUP/ZH
/Y4v/KkfyhoyklxwvXBtPf+YQTTlF97wO3/Un/qfjI1vi/b09ALlquDYp1eU
X/xPv+ML//if/h7/k4CoDevDy5Q/5h//+J3+7/xOlTdsem1DKb/lNf/dfiYh
6zszhVW9cMPssI1DAuWP/Uq/4zN/6k/a2SagsCy9FwY4pHkgivILr/mdX+lP
/UjrvvTlOrf3gvdA/psrSO8W+pF+x2cW+pEW8peFfqTf+Y8iJNNbn5N7QaFZ
Nc41nvLH/qOF/qLf8Zl//EZ/j99oTWecEc6J8sf86B9/0f+dv2jqrsKntyie
/h3v+u/2D93FpauwVfSCiPLFqktovv6pP+h3fOtP/UB+otrex1J6QXwDo3AX
iqcW8q7f+YP+1P9zU4V/UWELWj8yJ1fjYii/+H9+x7cW+n8W8quF/p/f+X2Y
bjOEeht6Qf2QumoBWs/+1O+z0M/zO7610N/jzJUjJtnaD5eCP51WVCf/4u8p
XauVeaW6F7yeprle+ive/43f53d+nn/Xv/PPefb/N8+z/1Mf8f+f59nn+ZRY
8IuXF9//99cr/N92Hn6eHx2qd7PaNPuTHwVwE1YsSfv76wf+p52nn+c1tqoD
klW0v78+3/+28/jzfOX+0hPSt5DezfMVyRHeR3x5f3+9vP+08/zzPCNqrjtM
oPvvr0f3P+0HmOcfs/tnHPVTKX9cr+7f9RP8af26/zR/wTy/uc1rc8vB4ld/
wTzfqEkX9xfjaMT4Bj7w7MjG4r+/ntx/mj9hnic0nmSvKWP8/fXa/qf9DfP8
wcq8cMbuLeWP67n9u/6IP63v9qd+iXmeQdj5bXR5NuWXem9/6p/4Xf233/kr
5nmHvmerzOZMyi/13/7Uf/G7+nD/2/wX87yiwrPO7e7yRoxX5DSLM6JL//56
bf9p/o15XiB1eMsmgcG/vz7a/7T/Y54vDOzlveCRTPnj+mn/rn/kT+up/amf
ZJ5XdBh6ifjnUH6pr/an/pLf1Vv7nf9knme0P1OykE+n/FJv7U/9Kb+rx/an
/pSF9doW+lMW1mtb6FeZ5yMN+3r1zNB4Wliv7Xd+loX12Rb6WxbWa1vod/nf
7m+Z5xn4H3X3UrkaMZ6xdcMWp4Gyv79+2n+aP2aeJ5zQlm45NPT31yv7n/bX
zPOH0OGPu8tTKH9cz+zf9ef8aX2zP/XrzPMMbjEtg0a0/i2sd/an/p3f1T/7
nb9nnncYumZLqadRfql/9qf+n9/VR/ud/+dAXL1V01ISFOs2kBzM6b/UT1vo
/1lYP22hH2ienyTbu4xeSKL8Uj/td36hhfXSFvqHFtZPW+gn+p1/aKFfaGE9
tXm+EjwgEauI2v87P9HCemoL/UUL66st9BstrKf2p/6jef7Co/P58fPnBIy/
kJTNTlsJEjD+YhFm3JdchMf4i9qnrJDOF3iMvwR/qUtpyMRj/OWR4Xsxqa2E
n/XR+IaZT00SMP6i/91a+oVFDcZfPDq/feR6UofxF/bPlG7ug0SMv/BQx0y9
r5Ax/hLx2er+W3UKxl/OK31tUgon/+QvGqNv3QZIGH9ZYq+y3U6ZhPGXSrdK
3GQAEeMvDVvWSSXQGzD+YjPxha8mrh7jL+panzt4LOow/rL8rMf9ZfK1GH8J
U+5+7s5Sg/GXoxXXNiRSCBh/kQylfpIuxGP85ZvyZs7Q4CqMvzCLnUvTQbox
z1+uvhRyeupegfGXx/YVc9tsyjH+YtC38+Zd6zKMvxzQl3uZalSK8Rdj9g7r
NTolGH/5PpkAn08WY/zF5KBRonFqIcZfGjOXrnci52P85f1KYX8X1jyMv8xp
h2cf4XuH8ZdPezNKSnRwGH9JeL9JZalNFsZf+iNZV40lZGD85XL+j9mn02kY
fwkzPvZ6p1gqxl/kmB2r7RYnYfzF703Gg6vX4jH+Eq2rsQiWxWL85abLivMF
XVEYf9l+LqnSkjkC4y9SiUfKY2pCMP7CZJgjK1zjj/EX4qbmbfol9zH+ElnL
IK4cvv5f+Yv3Vo59GH9RWFHRUGlIgJD2G4ey5l4C/tM29boBPEi/XbVEkC0B
wg+bZfbH4uF43LMap+XpIKK7qnBpJB7qV/DySiji4L1k2qR3Fx7jN9egrrn2
NgHjNyyUitevn1Vj/GY/28G+p2dqMX7z0kE0JaGvHuM3vHwSVgNAwvhNandS
fchrCsZvVtN5jZs//eQlik8u+NoTrTFe8soBlKSuEoBzInj3Rr/n8L1kq00U
EwEqPOgmS269gZ7aJ/aJaXgY0R/O16xPBfFlpUWzaL7fkHKfm2JkQU3mVb2i
KjzGW4Ist3lmHyVgvEW7OuT9EqVqjLfgduLdoK0G4y1KuA5mdpl6jLesWtWq
BzlEjLdM5Y+9vCFAwXhLTXdujMCGn3yjeEhbK8XSCfQCWmyOijyC8MTi8uty
BOA2T4mLkYsCtgObtPnIeHjZpJ62K+AtrF23yuVpBB4KZpRbXmhlgBbreJZc
HB62jMXuMAvNge2SDQd9fuAxXhLE1dzWnkXAeMlBmd5Hg1PVGC95u2Zdkdt4
LcZL0rVeec3GNGC8pJPPdfcMhYTxkhzHze+uuPwXXnFlIjq81BjjFd6HD8WI
3CdA5Wy0RCM5GIZOiKTt4CIA10V5L9e9saD5jh2O5ODhXXxwFk4iFZL1LhU6
o/4gFuOcOuSyIGZ6tYV/AR7jHZ2vMt9t20fAeMfirWd4bwtUY7xD7ahvgUVE
DcY7pvTDc6s66zDeEb5bvq3qGhHjHbOxbUR6BRnjHU3L2IqbZX7yhcg5gXGP
OBe41hh4bXijD9C5JPtM1AhwyXrPVqa2SKAYfWV50IaHweKk1ljtRHgmu/l7
dRQefI6NkJcmpYM5q4/Hs9d4uHan/eWRERzYBi07tn8Mj/GKkgcnuC6h9Wme
VzCvwAswKqsxXsGdHrpaNbYW4xXHVJZKaR1qwHjFMk8JZYP7JIxXBCuebvvu
R/nJCw5HtAgZmcGxwfsHbQ6HQd1uUU7aBB5uPrsi9bQ0DpgF86AjEQ+b55TK
O+3TYO6TVZx7OB6EIzV8eAKyQV5prdB5Ch4CyqtbgJ4HaYsbJYcsCBhPEFb3
+urjQIEs0+1imkGvYbQ35+IVPB4M3jO885uTgFv3bZ4i+r2PsSHdksMZcJh7
lfFEEh5qTR0yb6m9A+9Ev13uqwg/8/cOjaK5eepY/r5iq2MR8QkBhBeJJUq4
BMEGwppV0qsJkGF2aW12YAywx1un9+ThQSGeZtZakAKtMzEb/ND4mWbTl9Dr
yYRd147dYH2Hx/L/7ruqSd8kCFj+3/5Gn/urJdVY/r/TpPvwJo8aLP9vnWfK
cxNXh+X/3w3cK+czIWL5/1typx2OoPV5Pv/fFUZaVqzwM9/eFdEVwq1xDTg/
O97JC/MGqfzU/B9ITzYMXzdLEo8EjwA7KncPHh5mdzp0JySAjbb/VH40Hi7d
Um6QP50OYVKjY0mv8PC66ppxXjAOOs3DWJORPs/n70/qSaswHhCw/P3c9ddv
RpKrsfy9v7WX1C2PWix/T/+yJMeVpwHL3/cv2nMnx4yE5e/NPmxxUQuhYPlz
xVHGBpMAS0gZWfGufDAU8iRY+oSn8bDp4ZuKmo1xMM1n5pmQjIelO54Vr96Q
Bt4Ju/oiwvCgM8g45H0wG6yOP1I4V4eHfartitfv58E2EeVHa00IWH49zBpv
5K9CAfNuW5up/ijg3HBzRhR9/lvnGsGvu5NgdSFboOZLPNBII+0WYRlQJsYw
/JSAh6+xHJfGx3NgWmP3Ph02ws98tmLgjrM6+mBzjWNcsSUWuhw+QBeK3yi3
ld65306FTgswCEXjI+aa4Dvbx1nwYNeP1huleBB7X5DS9LIaOuu9PRTGyHCo
xlXVbjwRPkl88Fn11/vfFkIlzaRD5Mr2SxUxqD2vDr0wtIiHm2/GzNTi8XCA
MlwVX5AGxu9Gv7xG7X23cyddSKkGuLnYeyzCKZA6mfHR3TUZMk9q4B3R++G4
eYjx7UAm+NxZXnUQrUdYfllVoUQvZx+WX44yvG+0K4gAZK9LQ61VgXBw1kS4
ip8A3qZsFvqHYkDXsv5lKdJH4Uaxs6supsAuER7LZPR8K5MiH7DjMqHsqffS
zmw8lp/Wf3nyMZsoActPn3PCs9nNErD8dPVBNUaFUw2Wn1536tZo/Os6LD+t
J8h3/ocGEctP8+j+yNf2IWP5ac+J4Ve7VX7mgxVFvvUsWncdDL26WIROeoF6
qNGSzmMEeG+ydzFbUgRcITPjh/rwcDbtWt5t4wQQ3WX3oRq93x5u+7oTu9Ph
GvnMDTKKN3JsK7OdbXFQVDw0uhx9fj6//M4pZU7Di4Dll1c92b5d5nU1ll+W
5LvMN+xQi+WX1eRq/Sa+12P5ZZqGZEe2HgnLL5f6tluPof6az+8qMhiS+F0X
wNRB/6vj/lDoFIvLPz2Lh0/3FFda17+Bh/6Rl4RTUfxQWFIo9SUVNB/eHVZF
/WvuJ/MKVmVD6If97ner8cB5r39i9dk8aLNi0z1pQMDyv5UWBWXvJSiQF/Vw
WcPjKCicM/v2vAHpY0uqZWDfWxAKs941gMaThhV/m5tzBpyyK03wQ+ONU9O4
Nr4iB3JotrSORQQs3+q2szG06r4hHHSK3t9xPxamZlwZD1H/q/La4cIMU+H8
SGrbHTQ+cgVt+LaaZ8H5giVy39H+Z1rpyfsHvtXwluF+27GFDHyVvE+XRSRC
5RMm4QE0/vkKShuHG9NBkIm3IwbpU0JYG2OCJx6c+WP5/dB8TL6wprI8KA3e
HQ1IYUftve85y9MiVgPM2uKCrd4U8BjTOrhRNBkmN9/FkdD7ub3qYi8vbyYc
PFH88VEK/mf+89jIoIfmIRCDkgzyklR4aveq/dpf7c1TFVGZSYA070Of89F6
OjOwhrTFKx0MxcPkQ9F6GxhgVzp9OA1mU0vK2P5av2SifFRZa6C3SIThaEIB
EcZtkvG9JEhgX/yuEN0/O8SXZxmbCiQ1MaVy9Pt4+VLCI0YaJNacC9NG8VRm
nv65DSdqYJgqKOoZR4GOb2vf9NUmA3/052WbUfuxfOUpI93U7B1YvhJf5u1m
/owAompP76c7BEKBzPX2oLUEGGs1YI9aGwO8rxr34tB+KcTayFRMNQWKGclC
Fejvr72jtt/qVSbI8nK/aMzCY/nOh/gdh59vI2D5zl3bxE91ThGwfCdbX2VY
gl0Nlu+cTUz1b3peh+U7r0np1HoeImL5zo7DmxPN7pCxfOf5F5ofxlV/5hfd
7jszvD2vg2vds3LD3Lsg1c3cRkLjVUnQOLrjeATUrBCeMu7HA0Gi4mydVAKs
+5zDZ4T2B2GnPbQsN6fDqXUzS2zRfC2Tt7cgHcfBxlXBempofZvPV9aYqNiy
eRCwfGXi0UecluHVWL5y632J7XIXarF8ZdqSNfJq4/VYvtLAzpyBP0LC8pUX
gjhHyyIpWL6QyfT7BA+zNWTtuhJ8pPc5nBPdHTo3h4dTix9m4WLeQMSbDu1+
NF9ll9HkFXpSoVw6wHQT6s9Lpi06Yd+zYMXq2OkNaB/iss1Wu08zD8wqEl56
6RGwfKKJN1PtTmEKWHpuMN5vHgU1NJYbVCIedp+Y5ejNewsj1Z5u+9H4YU0X
P/nobAYEari6dqF4fM16JtclqTnAUpGUmcpM+Jm/k6DWRm89ATHj451iZ2Mh
TlH2ljUOD0xn3PckKKfCLqut5n+N/4rRlRXuR7Ng2Rm9r2Vo/HTbf1tq5VYN
F0/xLN5IJMOdQ+f2nHBJBCmdp+pGaD4QlzbrTxenw3EVjweCaL7yrN3xQPlD
HDzbZn9HBsV7FzLEDpPd08Ath7K1HM2HSymWu7K21ICxSqJpoisFPtg977Zn
TobPYbgTS9F9uVOe57cwZcJinU+dhWi9x/JpiQ09Hp6qUMOTZFHMSIHko69e
uKH2Cu8LqPGnJEBL7Nm9B9Dfz5YW15VyTAfmSuK3zah9Rzvcldik02D9nZ3H
yX+th2c43myergb48oLPVQfFH+drXOJMk+Bwyj2tRUhP1sqK7Xf2TwX1d6om
Sej3Pe7TjoSRkN44suZ/QfeT/d66yR2qgWKC/FxOBAXUrlppyUQnA3eOkrsa
+n0s/xV2MyZcXQbSFFjOfwlKgYzPh8xeoN8rdkJay54Ge6Ml7f9an/0IhnKP
bVJBlPBo5wN0P9Io8Mvcnhqw6/+sJOBPAYHLTM+Ix5Kh6PSD1r/incuTibIV
a1PhgMbqwb/2L7EvmQ8a56aC63ZXzr/ySYvixtz8z9RAlMsox8VYCjjfrGcO
/pwMu9+PWMyh+1j+iui8bXG2AEgLMzkmatfAly9FQkFiQ9h10t5coS+z1F+u
F+rVwvex6/983lBXnHdDNAVU3m/UX43ivfl6OAuv/z/cGm2E
   "], {{{}, {}, {}, {}, {}, {}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV03e8TnUcwPHjLpVoT7JKQ0NpaUel0qa0MyqZ98psUca9tkRGCSVyrcom
e5U9C5eSTWSTTe/vH+/7PZ/fOc/rOc85v1uiZlblzJQkSfKR609e/iTJcNw1
NUkKpifJyDTnzFfN7zjM+TxFD7bzh2vTzIdoxzp+sDaN3Vyv32cuXXRnOtGR
DrSnHTlk05Y2tKYVg5nK8z7fh3+D/t48wnWkuseG5hw+c26EmVh7xfyWQ5xH
Jbqzjd9dl2o+SA5rGWRtCru4Vmcxm091S1rE9zKZnZRyLpNZfKJXkuL4AbLJ
Y6C1qmZ/DlCAIZygIunus6u5iV9c+5zZm138o68xGzCTj/UK8jm+n7asiXdj
bRI7uFrXZwYf6eUkju+jDavjmVibyHZK6npM50O9jDPcq1uzigF6Atsooesy
jQ/0Uk5zj24V+yF+qx7PVorrOkyluV7CKcrFu4r3QD89ji0U07WZQjO9mJPc
He+BlXyjx7KZovo9JtNUL+IEd+mWrKCvHsMmrtK14lnTRC/kOHfqFiznaz2a
jRTR7zKJxnoBx7gj3jnL+EqPYgOF9TtMpJGez1Fuj/fH0tjH+qX43eznnPif
4TiPkWZPdDE38rNrnzV7sZO/9ZXm20yI/y09jyOUjXfOkthD+mzzUTqzgZ+s
recKxzUZT0NdyHySL9jKb9Yqx3NgD//p22J/sDjuRb8Y74F9nMVgjvEIneI+
+dF1BfyWoY5P8Qz5dc/Y2/wV96gHxndwOSm6hjmOLOfP1cMdn+Hl+C49wDxI
wXh2Otc8yRNk6G7mFn71+WHmaV6I98RuDlsfZB7l1tjHLKKn9SqxX9gb90oF
OrKekc4/bX7JDv7Ul5nVGUtm3K/5OJ+zmbnWDlEm9j8L4/M6wyxPh3gOjLC2
jksdV2MMDfQcDnKLbsYCeuh082Hax30w3NpaLnH8FqOpr2dzgJt1U+bTPZ4L
eVys32QU9fQs9nOTbsK82Bd6KGu4SL8R+5K6eib7uFE3jr1DN53Lai7Ur8fe
o46ewV5K60bxjuJZ6SGs4gL9Wuwdauvp7OEG/T+r+/PC
        "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[{
        PolygonBox[{{4, 1330, 1331, 1332, 1333, 1334, 1335, 1336, 1337, 1338, 
         1339, 1340, 1341, 1342, 1619, 1533, 1463, 1412, 1379, 1361, 1634, 
         1548, 1478, 1427, 1394, 1652, 1566, 1496, 1445, 1671, 1585, 1515, 
         1687, 1601, 1701, 1343, 517, 544, 537, 543, 531, 536, 542, 526, 530, 
         535, 541, 522, 525, 529, 534, 540, 519, 521, 524, 528, 533, 539, 516,
          515, 514, 513, 512, 511, 510, 509, 508, 507, 506, 505, 504, 863, 
         5}}], PolygonBox[CompressedData["
1:eJwV1He0l3McB/BfpVt0dBu31C3qtned7HEIkd2wVyhkNiglWUVChXuEUpon
e3OOnXlskVu0SzvtQTgHr/cfr97v76fnPr/v8/ye51fWb1CfgZULhUIlyv1T
s2qhcFJRobBFzuVW+tCNYmpRmzrU5WTHbpXPMpRzOZHzzP+V73A/V1NCd/Nt
8jmG5bh8Hueb/yffZSzXUI9TzLfL57ktx9Hf7EC+1B/PHrjAusB7+gOM1Fuw
Qr+WgXoDFujTGaN3ZINen1P1HfIFxuldGZ49yiYszmfkOvSafKVPlEcxSb9b
tmU6a7IveTxz6G59oazEZN63Hi+PYCbjrO+QLZnGSutyeRyzGWA9SDZkKj9b
PyaPZYZ+n+zERv0J2Y2D9B5yp3yRB/VDGZH7KJuyJPvKvdaL+Tp/zz16O9bm
/nORXpkPch5G6a1YpV/HYL2UCn0mDTjNepd8idtzjnwPZrX4Rn+Simruu7zY
rAof6g9xPQ053Wy3fDnfZ45jgFltvtWfyjVyifV+fKQ/zA2UcobZHvlK7m+O
y37N6vCdPjn75FLrqszL98KNDLFuxEJ9Vp5hvTOb9Eacqe/NHuSr2bc8jFH6
cFnG0pw716PX5Xt9Sq6Ly6yL+FifwE005iyzP+Rr3Jnjch0czCE0oSllNKM5
LWhJK1rThra0oz1nO+ef8nXu4vLsP2lejU/yLHMzHTjHbJ98I881I6ybsUzv
m/url/A0P1g/Io/OWr9XtmddriXH69X5NMflPaQjPc3+km/meeOK3HezeszX
p2bfmVvvz2f6o3kP6EQvs7/lW/lMrsw9NKvPj/q0XEfm1gfwed6Z3FO9Navz
3HKL3phF+mzG6l3YrHemt/6PfDvPln44o/NMy+Ys16/Kvcs7x0/ZpzyGZ/TR
skPeU9ZbT5In0DN/J2swhS/yHMgjmUV5vivZJufJ++HnLb/Te/1G72E3u9jJ
Drazja1s4Xc2s4mNbGA961jLGn6jnxOvlqtYyQLv5Aq5nGUsZQmL+ZVfWMRC
imyoOjUopoRSKvzf/+bYyfI=
         "]]}]}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[
       PolygonBox[{{2, 502, 503, 5, 4, 1329, 1360, 1378, 1411, 1462, 1532, 
        1618, 1328, 1444, 1495, 1565, 1651, 1393, 1597, 1683, 
        1506}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV0ttPznEcB/CfaYsOOvgLLBFtkuhG5MKxIqvNZmZ7ekhHcusQyfHaOYcL
dRFz3MLaQ4WMNkZbJPInULrARYzX9+K1z/v9+W3Pvs9333nxlqp9M6IoGmIs
OYpGzLPEUKM6H1NIyAfYwBLa7HL4IJ+jhlnU26XyRD7IRgo4Zjefj/J54sym
wS6Np/IhNrGUdrtcRuUL7CKFRrt0+uTDlFHIcbsFfJIvsptUmuzm0C+3Us5l
fSXf5Nss44S+kDH5ErWk0WyXwYB8hAo69BK+y3co4qSex+fw++zhhr6Wn/JD
0tmrZ/JMPkq3XMa0vJkr8iom5Lvcl6uYyXL9lLmIL3KvuYOO8D/MLfyTB8w4
dXKnuY7X/NL7zBjveKT3mNt4QzIvqGU43Jvv4XFk8ZLn+mNzO29p02+a5Qzx
R+83a3gfzqNfNVczKSfMndyTH5jVJLFCP20uZjzcQbhXuTI8TOqNLnM9v8MZ
yKBFzw5nDu+LSq7ppfwId0cxZ/R8vobzhDdHJvvt5jIY3hu35Ar+ylu5Lq/h
FVP6f2I8YrE=
       "]], LineBox[CompressedData["
1:eJwl00dsznEYB/CWEI6oFq3S2tRebe3aB4lVo6pNEAejNVvbwZ61XexNQswg
HIi9x93e3HDAQXyeOHz6fH/fN3nz/p//rxkTSoeXJCYkJFTx5wpFnHY+Y45M
/N93dV5jZvFC3sUUajBTl8RNeRnDyGatrjUv5d1MpSazdLW5JS9nODms07Xh
lbyHadRiti6Z2/IKRpDLel1bXst7mU4Sc3Qp3JFXMpJubNC14428jxJqM1dX
h7vyKvLpzkZde97K+yklmTJdXe7JqxlFDyp0HXgnH2AGKZTr6nE/dshoerJJ
15H38sHYI3WYp0vlQeyQMfRis64TH+RDsUfqMl+XxsPYIWPpzRZdZz7Kh2OP
1GOBrj6PYocU0Ietui58ko/EHklloS6dx7FDxsX7ce7D97gn5LEt7gmf5aOx
V9JYpGvAk9gphfG+nPP4IZ+lL9uds/kiH+OkPJREyuKZzYH8ki9yXh5NtXge
58VmQ57G52YBFfIJcwh/5fHx7uW+/JSvmsWci99h5sd7oirXmUQ/n+0wc+LO
8tX5slkYO+S48ylzWNwJKnGNiZTH7s1B/JYvkc4S5wyexT2giP40iFzZc5gZ
ZNKIxjShKc1oTgta0ooslvq+TJ7HXaGYAezU5fItdhH3K96v82D+xLNwQR5D
dW4wOX5b/P/67B+i23i7
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwVz2dOglEQBdD5KKKIFbvYtsQGTFiA7tXQ7AoC9ooFxXL8cXJvMpnMe1uV
3fJOEhFlqspKKmKOKcYZZYSaWZ0GTfY54JAjjjlhLxdxKs84p5KOaMk2F3To
0uOSK6654ZY77nngkSeeeaHPK54Tb/KdrL7txoc+4JMvhnzzw+//By0lpEiT
YZV5pikwRo4SC8wwQZ41FpllknWWKLLBMptk+QObXS5N
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV0kdsznEYwPF/h6hEjaQ2h9p7RUkqQYukElu11bqofdFSerA5ocbBjGqi
RnFpjTqgpEhIjCLUdjHrUKOhEhJ8fodPvs/z5M2bf973n5xfMHtFTBRFdSTH
RlFSXBQ90aOsZQFz6EkvetOHvnTw2XotZx35ZIbPur/VSrZRQD86uj/VY6xn
IXPD97q/0yq2U0h/Ork/0+NsYBFD3Br1EnvJCs/k9l7PsoNx9r96h5WMsv/Q
Wg4z0R7HA/MAOpuf6wkyzAlsNKfqb73FYobav+hlppkT2WdO0xjmcd8+U9sx
n+zwe+mH8Kx6Tqdqa3IpsY/Xf5qjd3WGtiWPVfYU/anZel2naxtKzZM0nofm
WdqegeYu+kJPMsXcik3msfpHb7OEYfaveoX9pNtjqQvPE/5n80c9z04m2CPu
mYsYbW7WGxxhEF3dXmoFm1nKcLdvWsMBHrf0e4X3wv2TXmAXqxlMN/dXeoot
LGOE23e9ykFyw3vi1qDV7GZNeEfo7v5aT7OV5Yx0a9JrHCIv/P9un/Uieyhm
jNsvvUkZk+0teBTeAXqY34R3Xc/ofz+7ZOY=
       "]], 
      LineBox[{842, 778, 643, 828, 764, 712, 618, 819, 755, 703, 665, 604, 
       810, 746, 694, 656, 631, 559, 798, 734, 682, 644, 619, 605, 560, 561, 
       562, 563, 564, 565, 566, 567, 568, 569, 570, 571, 572, 573, 574, 575, 
       576, 577, 578, 579, 799, 735, 683, 645, 620, 606, 811, 747, 695, 657, 
       632, 824, 760, 708, 670, 838, 774, 722, 850, 786, 580, 800, 736, 853}],
       LineBox[{684, 843, 779, 646, 829, 765, 713, 621, 607, 581, 582, 583, 
       584, 585, 586, 587, 588, 589, 590, 591, 592, 593, 801, 737, 685, 647, 
       622, 608, 812, 748, 696, 658, 633, 825, 761, 709, 671, 839, 775, 723, 
       851, 787, 861, 594}]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV1He8T2UcB/Bj3JRRNGgq0i4pmqIoKm0NKVGUzHvtPbL3LntmXDsKRdlC
i2zX3nuvhob394/3/T6f55zz+j33eb7nFKiaVj41U5Ik6f5kZEuSe7ImyYks
SbKQGkyX3yMPG+V0+rBcbsC9nJQXUZOv5Pe5mk3yRPqyQm7IfZySF1OLGXIl
rmGzPIl+rJQbcT+n5SXUZqb8AdeSIU+mPz/JjXmAM/JS6vC1XJnr2CJPYZtx
V54hhQHmflabUJiz8jLq8o1chbxslaey3bgbpbiMz839ojblQc7JP7LXuA/P
k5NUc7PUD8nHNvlQPM/LTJN3qN0pTbbYW4bxJl+4/qvajCL8yTjOmz+uDuEN
/mMyy83vU/vGOlOS5AX1HyaSXc4V/yujuFyuoP7PlFivnOb52cYfkVm+Xr3A
l1whb3f9cKwr1iq/ov7LJHLI013fadyDZ/mL8fFb0QMM5y0Guu83tTkPxW/I
J9ShlGeFvF/tx4tcST1zc9Sq3MCO6D12GffkuVgjg8ytUlvwMH9Eb1Gfb+Vq
3MhO+UishVeZIe9We5HV/1JG/ZsJsXfRk4zgbQa7d7XakqJxLtGPNOA7+WNu
Ylf0L0P4XW5FsdiX6D8aMlf+hJvZHf3LUNbIrXkk1hH9RiPmydW5hT3Rrwxj
rdyGR7kYfUNjvpc/JT97ox8Zzjq5LY9Fj8R50IQf5Brcyr7oB0awXv6Mx+PM
Y49pyny5JrexP86IkWyQ2/FE9GfsF81YINeiAAfiTBjFRrk9T0ZPxn7RPL5L
cm0KcjD2l9FskjtQnIQ15lrEd8m4DrdzKPaXMWyWO/IUmVhrrmV8l4zrUojD
8tHoIV5jnrxH7U2Knigbe0t69DtnGMk78Y64N0PtRAkys85cq/iWGadyB0fi
TBhLa9rQNr5frqVxJ0fjHBjHFrkzJcnCenMH1P6U4yrOMZp3Yy+sc2qcVXzT
4r2J58zdFe8CYznm2rHoY15nvjyedrSnAx3pRGe60JVudKcHPekV3z3P1+du
jsf5MoGtcheejveJDeYOqgN4idycZwwV40yscZqaS+3t3ktbx/O5
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV1GW4FVUYBeCDtEF3X7q7S1AUA0QvioEJKiaIoKCiSKNggCJSImV3Yxdg
J3Y32A0qiu/68bLW/p65c/bsM4eiUeOKx5YoFArL/FOhdKGwV5lC4Xt5AxMo
ZgAVqURlqlCVvV37g7yRiQxnIIea/ycfYhYnUo1B5j/Kmzgn1+XzOMx8p1zP
bE6iOvuY/yRv5txcx2izPdikX509MMK6wMP6HM7Xm/KxfjJj9Vq8oa9kht6O
b/Qa7Kv/LG9hrt6ZSdmjbMh7+Yw8h16B5/TLZU8W6VNlK1byRfYl+7OWQdaH
yxIs4RHr+bI7q5hrfYFsxgo+sV4o+7KGMdbjZG2W86b1AtmH6/WZsj1b9Gvk
AGrqg+Uv8lYu0bswOecoG/F+9pWz1ivyfP6ei/XWfJnz5wh9Fx7NfZiiN+dT
/RTO0uuwWV9FLfaz/lXexnm5R74Hs0q8oC9mc1nnLo80K8lj+qWcSm32N/tN
3p7vM9cxxqwyL+rX5hk5yroUj+vzOI06HGD2u7wj55vrsl+zKrykL8k+GWld
mifyvXA6463r8pa+Ou+w3oGtel0O1P/IHuSd2bfsyhR9kizig9w7z6NX5WV9
aZ6Lo63L8KR+GWdQjyFmf8q7uDDX5TmoTwMa0ogiGtOEpjSjOS1oSSta04ah
7rlN3s1FHJP9J83L8lTeZc6kLQeZbZf35L1msnVjPtSPzfnq1VjGK9ZXyF5Z
69NkG77Ks+R6vRxP57r8DmnHMLO/5L153zgu525WnVf15dl35tbleUa/Mr8D
2nOw2d/yvnwmx+cMzWrwmr4iz5G59a48m99MzlRvwWd5bzlbr8fb+hpm6x35
Vu/AIfo/8v68W3o3puedlk34SD8hZ5ffHK9nn7I31+nTZdv8TvnaepHck2H5
O7kbS9mQ90D2YDUL813JlrlPfh/+e/vc7Cq9H+P1CbI+7+hr6Uix9Q75ADMY
lbOiE6Xco7PsQle60Z0e9KQXvelDX/rRn+Hu+a98kJmMzrnk3ua7szH7ylky
0boB7+rrmKN34jt9sRzIupyB9f/IGcB0
       "]]}, 
     {GrayLevel[0], Thickness[Tiny], Dashing[{Small, Small}], 
      LineBox[CompressedData["
1:eJwV0mVoF3EABuCbsQl2gN26WWAH2IGtk6kzQZ0J6mZhF7bInDnBDljaHdiB
jR/tArvAdoLzuQ8P73vv747jH1UTkuISI4IgeElaZBAkRwVBHNX45/oV99ns
ehj1KchXWzqr9b5UJ9f1a9L08bSkNA9sW+RwGlCIb7a9cjLtqUiGLUX2owYB
h5hOZ96E75QTaEUZTjCXnjx0vlWOoCHnWExhjjGb7nx33z45hQ5cYjmVOM0C
bhPLNVZxj0zPrZH9uU5NzrKIO0RwmBncpAuXWcFd3no+Q07kBq25wFLKcpJ5
9OIKK3nkmW0ygUacZwlFOM4cevDDffvlVDpSmTMspA9ZztfKeKLJwxFm0pV3
zjNlIm0ox2PbdjmSxhTlp+2AnEYnqpBtWycHEENe3tuyZBJtKc8T2w45iiYU
41f4P2C9PpBa5OOD7Sk79dE0pTi/w9+ODfogapOfj7Zn7NLH0IwS/Am/Fzbq
g6lDJJ9sz9mtj6U5JckJPx+p+hDqEsVn2wv26ONoQSn+2g6ySR9KPQpwlFl0
44vzbDmJdlxkGRU4xXxu0Zur/AeVhHhJ
       "]], 
      LineBox[{1930, 1999, 1762, 1956, 1897, 1849, 1813, 1788, 1713, 1944, 
       1885, 1837, 1801, 1776, 1763, 1714, 1715, 1716, 1717, 1718, 1719, 1720,
        1721, 1722, 1723, 1724, 1725, 1726, 1727, 1728, 1729, 1730, 1731, 
       1732, 1733, 1734, 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 1743,
        1744, 1745, 1746, 1747, 1748, 1749, 1750, 1945, 1886, 1838, 1802, 
       1777, 1764, 1957, 1898, 1850, 1814, 1789, 1968, 1909, 1861, 1825, 1980,
        1921, 1873, 1991, 1932, 2001, 1751}]}, 
     {GrayLevel[0.5], LineBox[{467, 466}], LineBox[{865, 869, 864}], 
      LineBox[{868, 870, 867}], 
      LineBox[{2006, 2007, 2005}]}}, {{}, {}, {}, {}, {}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["K", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(c\\), \
\\(2\\)]\\)-\\!\\(\\*SubscriptBox[\\(c\\), \\(1\\)]\\)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  LabelStyle->Directive[FontSize -> 8],
  Method->{"AxesInFront" -> True},
  PlotRange->{{0, 1.05}, {0, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.7658035767675095`*^9, 3.7658035865164347`*^9}, 
   3.765803617617757*^9, {3.7658036553434367`*^9, 3.7658037138540316`*^9}, {
   3.7658037656875343`*^9, 3.7658037889882164`*^9}, {3.7658038349833155`*^9, 
   3.765803853052018*^9}, 3.765817625106737*^9, 3.76597328438571*^9, 
   3.765973428658804*^9, 3.7659734598912525`*^9, 3.765974124005153*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Two-part tariffs and figure 4", "Section",
 CellChangeTimes->{{3.765893315554282*^9, 3.7658933233434453`*^9}, {
  3.765971516187891*^9, 3.7659715189594755`*^9}, {3.767530659953624*^9, 
  3.7675306600014915`*^9}}],

Cell[CellGroupData[{

Cell["Setup", "Subsubsection",
 CellChangeTimes->{{3.732936296190488*^9, 3.732936301363488*^9}, {
  3.7658941380702343`*^9, 3.7658941441329837`*^9}, {3.765894256808566*^9, 
  3.765894259463458*^9}, {3.7659677817481823`*^9, 3.765967784301315*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "First", " ", "when", " ", "exclusive", " ", "contracts", " ", "are", " ", 
   RowBox[{"prohibited", "."}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.765893361411646*^9, 3.7658933903662195`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Non", " ", "exclusive", " ", "payoffs"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"v", " ", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"p2", " ", "q2"}]}], "/.", "qNE"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ProfitBNE", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", "%", "]"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Mu]"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"F1", "+", "F2"}], ")"}]}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"P1", "+", "F1"}], "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Profit1NE", "=", 
    RowBox[{"FullSimplify", "[", "%", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"P2", "+", "F2"}], "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Profit2NE", "=", 
    RowBox[{"FullSimplify", "[", "%", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6618428945950747`*^9, 3.661842917166332*^9}, {
   3.662034832461458*^9, 3.6620348502522883`*^9}, 3.6620353865761323`*^9, {
   3.6658055463931975`*^9, 3.6658056636679363`*^9}, {3.665809481805315*^9, 
   3.6658094950210147`*^9}, {3.6658922071559153`*^9, 3.66589221508051*^9}, {
   3.694500397378702*^9, 3.6945004052597027`*^9}, {3.715575055077833*^9, 
   3.715575082505433*^9}, 3.7155753079382334`*^9, {3.727262495198022*^9, 
   3.727262500948824*^9}, {3.7658934925239153`*^9, 3.765893546746868*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"2", "-", 
     RowBox[{"2", " ", "p1"}], "+", 
     SuperscriptBox["p1", "2"], "-", 
     RowBox[{"2", " ", "p2"}], "+", 
     SuperscriptBox["p2", "2"], "-", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"F1", "+", "F2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.7155753275514336`*^9, 3.726915477919995*^9, 3.726984172273714*^9, 
   3.7271596866234393`*^9, 3.7271718639489374`*^9, 3.7272625095837345`*^9, {
   3.7319058433446603`*^9, 3.7319058590856605`*^9}, 3.732936208712488*^9, 
   3.7341921092890964`*^9, 3.7341921498906307`*^9, 3.734440701529038*^9, 
   3.740070660116906*^9, 3.740381284936604*^9, 3.7405683155067244`*^9, 
   3.740740915188354*^9, 3.7408011445416927`*^9, 3.7408272525266886`*^9, 
   3.762844676036834*^9, {3.7658935339540834`*^9, 3.7658935471168323`*^9}}],

Cell[BoxData[
 RowBox[{"F1", "+", 
  FractionBox[
   RowBox[{"p1", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
      RowBox[{"p2", " ", "\[Gamma]"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[Gamma]", "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.7155753275514336`*^9, 3.726915477919995*^9, 3.726984172273714*^9, 
   3.7271596866234393`*^9, 3.7271718639489374`*^9, 3.7272625095837345`*^9, {
   3.7319058433446603`*^9, 3.7319058590856605`*^9}, 3.732936208712488*^9, 
   3.7341921092890964`*^9, 3.7341921498906307`*^9, 3.734440701529038*^9, 
   3.740070660116906*^9, 3.740381284936604*^9, 3.7405683155067244`*^9, 
   3.740740915188354*^9, 3.7408011445416927`*^9, 3.7408272525266886`*^9, 
   3.762844676036834*^9, {3.7658935339540834`*^9, 3.7658935471328135`*^9}}],

Cell[BoxData[
 RowBox[{"F2", "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "c"}], "+", "p2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p2", "+", "\[Gamma]", "-", 
      RowBox[{"p1", " ", "\[Gamma]"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[Gamma]", "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.7155753275514336`*^9, 3.726915477919995*^9, 3.726984172273714*^9, 
   3.7271596866234393`*^9, 3.7271718639489374`*^9, 3.7272625095837345`*^9, {
   3.7319058433446603`*^9, 3.7319058590856605`*^9}, 3.732936208712488*^9, 
   3.7341921092890964`*^9, 3.7341921498906307`*^9, 3.734440701529038*^9, 
   3.740070660116906*^9, 3.740381284936604*^9, 3.7405683155067244`*^9, 
   3.740740915188354*^9, 3.7408011445416927`*^9, 3.7408272525266886`*^9, 
   3.762844676036834*^9, {3.7658935339540834`*^9, 3.7658935471766944`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Monopoly", "/", "Exclusive"}], " ", "firm", " ", "1"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ve1", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Mu]"}], ")"}], "F1"}]}], "/.", 
     RowBox[{"q1", "\[Rule]", "q1e"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"ProfitBE1", "=", 
    RowBox[{"FullSimplify", "[", "%", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"P1", "+", "F1"}], "/.", 
     RowBox[{"q1", "\[Rule]", "q1e"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Profit1E", "=", 
    RowBox[{"FullSimplify", "[", "%", "]"}]}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.6618416250611343`*^9, 3.6618416551811457`*^9}, {
   3.6618417106166887`*^9, 3.661841734361063*^9}, {3.661841787202347*^9, 
   3.6618418298476105`*^9}, 3.6618424115557756`*^9, {3.661842508356455*^9, 
   3.6618425202936487`*^9}, {3.6618425787044888`*^9, 
   3.6618426384254603`*^9}, {3.662034737974583*^9, 3.6620347720302444`*^9}, {
   3.662034881715713*^9, 3.6620349043757877`*^9}, {3.662035074730192*^9, 
   3.6620350748943014`*^9}, {3.6620351135749917`*^9, 
   3.6620351146517053`*^9}, {3.6620353137008734`*^9, 
   3.6620353147165484`*^9}, {3.662464931076492*^9, 3.6624649325494823`*^9}, {
   3.665805682698654*^9, 3.6658057952208548`*^9}, {3.665809318341604*^9, 
   3.6658093189960465`*^9}, {3.665809515180071*^9, 3.665809529464613*^9}, {
   3.6945004542043023`*^9, 3.694500456717902*^9}, {3.7155750935522337`*^9, 
   3.7155751040238333`*^9}, 3.7155753079538336`*^9, {3.7272625302343283`*^9, 
   3.727262531338964*^9}, {3.765893556115797*^9, 3.765893575945757*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "p1"}], ")"}], "2"], "-", 
    RowBox[{"2", " ", "F1", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.6618416562042484`*^9, {3.661841712589886*^9, 3.6618417350811353`*^9}, 
   3.661841830749701*^9, 3.661842524582077*^9, {3.661842623626981*^9, 
   3.661842638874505*^9}, 3.6618627077144775`*^9, 3.6620347728748064`*^9, 
   3.6620349129444885`*^9, 3.6620350753035717`*^9, 3.662035115435226*^9, 
   3.662035315621153*^9, 3.662035389688198*^9, 3.6620968054633427`*^9, 
   3.662275318442032*^9, 3.662382105690009*^9, {3.6624406717024727`*^9, 
   3.662440674705494*^9}, 3.662464837627984*^9, {3.6624649335091205`*^9, 
   3.662464949578925*^9}, 3.6624726064809656`*^9, 3.6658051762711515`*^9, 
   3.665805774309883*^9, 3.665805898173001*^9, 3.6658093195684223`*^9, 
   3.665809530107039*^9, 3.6658921954613705`*^9, 3.66589496390954*^9, 
   3.665895032254822*^9, 3.6659172267575717`*^9, 3.6659822024177504`*^9, 
   3.6659898018316154`*^9, 3.6660736569531717`*^9, 3.6665094553353047`*^9, 
   3.6666723897773466`*^9, 3.6670309249857903`*^9, 3.6671096844605637`*^9, 
   3.66727748182802*^9, {3.6945004344301023`*^9, 3.694500458605502*^9}, {
   3.694511644353854*^9, 3.69451164826036*^9}, 3.694752092868987*^9, 
   3.6947759032366343`*^9, 3.6950103735482254`*^9, 3.695357262230315*^9, 
   3.6959603564794245`*^9, 3.6959772553917246`*^9, 3.6971687883982286`*^9, 
   3.6971758229400697`*^9, 3.6972579689553614`*^9, 3.708680113262477*^9, 
   3.715437287610278*^9, 3.715437961480961*^9, 3.7154381390177507`*^9, 
   3.715575107799033*^9, 3.7155753393314333`*^9, 3.7269154796203947`*^9, 
   3.7269841826945143`*^9, 3.727159690147439*^9, 3.727171864187251*^9, {
   3.727262516328251*^9, 3.7272625317192407`*^9}, {3.7319058434756603`*^9, 
   3.7319058592216606`*^9}, 3.732936208839488*^9, 3.7341921099271755`*^9, 
   3.7341921500886865`*^9, 3.7344407017245226`*^9, 3.7400706603555403`*^9, 
   3.740381285115079*^9, 3.7405683157514195`*^9, 3.740740915777772*^9, 
   3.7408011447703*^9, 3.7408272528405237`*^9, 3.7628446762133365`*^9, {
   3.765893566509991*^9, 3.765893576444378*^9}}],

Cell[BoxData[
 RowBox[{"F1", "+", "p1", "-", 
  SuperscriptBox["p1", "2"]}]], "Output",
 CellChangeTimes->{
  3.6618416562042484`*^9, {3.661841712589886*^9, 3.6618417350811353`*^9}, 
   3.661841830749701*^9, 3.661842524582077*^9, {3.661842623626981*^9, 
   3.661842638874505*^9}, 3.6618627077144775`*^9, 3.6620347728748064`*^9, 
   3.6620349129444885`*^9, 3.6620350753035717`*^9, 3.662035115435226*^9, 
   3.662035315621153*^9, 3.662035389688198*^9, 3.6620968054633427`*^9, 
   3.662275318442032*^9, 3.662382105690009*^9, {3.6624406717024727`*^9, 
   3.662440674705494*^9}, 3.662464837627984*^9, {3.6624649335091205`*^9, 
   3.662464949578925*^9}, 3.6624726064809656`*^9, 3.6658051762711515`*^9, 
   3.665805774309883*^9, 3.665805898173001*^9, 3.6658093195684223`*^9, 
   3.665809530107039*^9, 3.6658921954613705`*^9, 3.66589496390954*^9, 
   3.665895032254822*^9, 3.6659172267575717`*^9, 3.6659822024177504`*^9, 
   3.6659898018316154`*^9, 3.6660736569531717`*^9, 3.6665094553353047`*^9, 
   3.6666723897773466`*^9, 3.6670309249857903`*^9, 3.6671096844605637`*^9, 
   3.66727748182802*^9, {3.6945004344301023`*^9, 3.694500458605502*^9}, {
   3.694511644353854*^9, 3.69451164826036*^9}, 3.694752092868987*^9, 
   3.6947759032366343`*^9, 3.6950103735482254`*^9, 3.695357262230315*^9, 
   3.6959603564794245`*^9, 3.6959772553917246`*^9, 3.6971687883982286`*^9, 
   3.6971758229400697`*^9, 3.6972579689553614`*^9, 3.708680113262477*^9, 
   3.715437287610278*^9, 3.715437961480961*^9, 3.7154381390177507`*^9, 
   3.715575107799033*^9, 3.7155753393314333`*^9, 3.7269154796203947`*^9, 
   3.7269841826945143`*^9, 3.727159690147439*^9, 3.727171864187251*^9, {
   3.727262516328251*^9, 3.7272625317192407`*^9}, {3.7319058434756603`*^9, 
   3.7319058592216606`*^9}, 3.732936208839488*^9, 3.7341921099271755`*^9, 
   3.7341921500886865`*^9, 3.7344407017245226`*^9, 3.7400706603555403`*^9, 
   3.740381285115079*^9, 3.7405683157514195`*^9, 3.740740915777772*^9, 
   3.7408011447703*^9, 3.7408272528405237`*^9, 3.7628446762133365`*^9, {
   3.765893566509991*^9, 3.7658935764473696`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Monopoly", "/", "Exclusive"}], " ", "firm", " ", "2"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ve2", "-", 
       RowBox[{"p2", " ", "q2"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Mu]"}], ")"}], "F2"}]}], "/.", 
      RowBox[{"q2", "\[Rule]", "q2e"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"ProfitBE2", "=", 
    RowBox[{"FullSimplify", "[", "%", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"P2", "+", "F2"}], "/.", 
     RowBox[{"q2", "\[Rule]", "q2e"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Profit2E", "=", 
    RowBox[{"FullSimplify", "[", "%", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6658095349082527`*^9, 3.665809545547369*^9}, {
   3.6945004485551023`*^9, 3.6945004506611023`*^9}, {3.7155751129412336`*^9, 
   3.7155751237852335`*^9}, 3.7155753079694333`*^9, {3.7272625389304047`*^9, 
   3.7272625409812365`*^9}, {3.7658935858831673`*^9, 3.765893595458555*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "p2"}], ")"}], "2"], "-", 
    RowBox[{"2", " ", "F2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.665809546881248*^9, 3.6658922189941225`*^9, 3.665894964001602*^9, 
   3.6658950323308725`*^9, 3.6659172268635826`*^9, 3.6659822025127597`*^9, 
   3.66598980387382*^9, 3.666073657042181*^9, 3.6665094554263144`*^9, 
   3.6666723898543463`*^9, 3.667030925070799*^9, 3.6671096845545635`*^9, 
   3.6672774819200296`*^9, 3.6945004639113026`*^9, {3.69451164444761*^9, 
   3.6945116483384895`*^9}, 3.6947520929001865`*^9, 3.6947759033757277`*^9, 
   3.695010373579426*^9, 3.695357262261516*^9, 3.6959603565106244`*^9, 
   3.6959772554229245`*^9, 3.697168788429428*^9, 3.6971758229712696`*^9, 
   3.697257969002161*^9, 3.708680113856998*^9, 3.715437287672779*^9, 
   3.7154379615434675`*^9, 3.7154381390646305`*^9, 3.7155751248772335`*^9, 
   3.7155753574958334`*^9, 3.726915769534995*^9, 3.7269841884041147`*^9, 
   3.727159692639439*^9, 3.7271718644257*^9, 3.7272625422618723`*^9, {
   3.7319058435096607`*^9, 3.7319058592526608`*^9}, 3.732936208869488*^9, 
   3.73419211021439*^9, 3.7341921501846347`*^9, 3.734440701789694*^9, 
   3.7400706605189753`*^9, 3.7403812851712284`*^9, 3.7405683159298525`*^9, 
   3.7407409162551413`*^9, 3.7408011449046564`*^9, 3.740827253027057*^9, 
   3.762844676330044*^9, 3.7658935966772957`*^9}],

Cell[BoxData[
 RowBox[{"F2", "+", 
  RowBox[{"c", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "p2"}], ")"}]}], "+", "p2", "-", 
  SuperscriptBox["p2", "2"]}]], "Output",
 CellChangeTimes->{
  3.665809546881248*^9, 3.6658922189941225`*^9, 3.665894964001602*^9, 
   3.6658950323308725`*^9, 3.6659172268635826`*^9, 3.6659822025127597`*^9, 
   3.66598980387382*^9, 3.666073657042181*^9, 3.6665094554263144`*^9, 
   3.6666723898543463`*^9, 3.667030925070799*^9, 3.6671096845545635`*^9, 
   3.6672774819200296`*^9, 3.6945004639113026`*^9, {3.69451164444761*^9, 
   3.6945116483384895`*^9}, 3.6947520929001865`*^9, 3.6947759033757277`*^9, 
   3.695010373579426*^9, 3.695357262261516*^9, 3.6959603565106244`*^9, 
   3.6959772554229245`*^9, 3.697168788429428*^9, 3.6971758229712696`*^9, 
   3.697257969002161*^9, 3.708680113856998*^9, 3.715437287672779*^9, 
   3.7154379615434675`*^9, 3.7154381390646305`*^9, 3.7155751248772335`*^9, 
   3.7155753574958334`*^9, 3.726915769534995*^9, 3.7269841884041147`*^9, 
   3.727159692639439*^9, 3.7271718644257*^9, 3.7272625422618723`*^9, {
   3.7319058435096607`*^9, 3.7319058592526608`*^9}, 3.732936208869488*^9, 
   3.73419211021439*^9, 3.7341921501846347`*^9, 3.734440701789694*^9, 
   3.7400706605189753`*^9, 3.7403812851712284`*^9, 3.7405683159298525`*^9, 
   3.7407409162551413`*^9, 3.7408011449046564`*^9, 3.740827253027057*^9, 
   3.762844676330044*^9, 3.7658935966892214`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Pure strategies", "Subsubsection",
 CellChangeTimes->{{3.732936317245488*^9, 3.732936320204488*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "We", " ", "first", " ", "study", " ", "the", " ", "case", " ", "in", " ", 
   "in", " ", "which", " ", "the", " ", "capacity", " ", "constraint", " ", 
   "is", " ", "not", " ", "binding", " ", "so", " ", "that", " ", "the", " ", 
   "equilibrium", " ", "is", " ", "in", " ", "pure", " ", 
   RowBox[{"strategies", "."}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.732937553852488*^9, 3.7329375803104877`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "two", " ", "firms", " ", "will", " ", "preliminarily", " ", 
    "set", " ", "the", " ", "fixed", " ", "fees", " ", "so", " ", "that", " ",
     "they", " ", "extract", " ", "the", " ", "bilateral", " ", 
    RowBox[{"surplus", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tmpF", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ProfitBE1", "\[Equal]", "ProfitBNE"}], ",", 
          RowBox[{"ProfitBE2", "\[Equal]", "ProfitBNE"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"F1", ",", "F2"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"F1dtmp", "=", 
    RowBox[{"tmpF", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"F2dtmp", "=", 
    RowBox[{"tmpF", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.662034945308031*^9, 3.6620350110658264`*^9}, {
   3.6620354022755737`*^9, 3.662035513523673*^9}, {3.6658052167752223`*^9, 
   3.665805222902317*^9}, 3.6670309380690985`*^9, {3.694501496549402*^9, 
   3.6945015038346024`*^9}, {3.6945016979298024`*^9, 
   3.6945017018454027`*^9}, {3.7155753697820334`*^9, 
   3.7155753877988334`*^9}, {3.765893398248104*^9, 3.765893414988327*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
      RowBox[{"p2", " ", "\[Gamma]"}]}], ")"}], "2"], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.7155753904196334`*^9, 3.726915826414195*^9, 
  3.7269841934273143`*^9, 3.727159694857439*^9, 3.7271718647269974`*^9, 
  3.727262549563506*^9, 3.7319058435726604`*^9, 3.7319058809576607`*^9, 
  3.732936329939488*^9, 3.734192118234872*^9, 3.7341921527718115`*^9, 
  3.7344407018960094`*^9, 3.7400706607015047`*^9, 3.7403812852715263`*^9, 
  3.7405683161444206`*^9, 3.740740916538311*^9, 3.740801145060117*^9, 
  3.740827253357935*^9, 3.7628446764736347`*^9, 3.7658936054458385`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p2", "+", "\[Gamma]", "-", 
      RowBox[{"p1", " ", "\[Gamma]"}]}], ")"}], "2"], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.7155753904196334`*^9, 3.726915826414195*^9, 
  3.7269841934273143`*^9, 3.727159694857439*^9, 3.7271718647269974`*^9, 
  3.727262549563506*^9, 3.7319058435726604`*^9, 3.7319058809576607`*^9, 
  3.732936329939488*^9, 3.734192118234872*^9, 3.7341921527718115`*^9, 
  3.7344407018960094`*^9, 3.7400706607015047`*^9, 3.7403812852715263`*^9, 
  3.7405683161444206`*^9, 3.740740916538311*^9, 3.740801145060117*^9, 
  3.740827253357935*^9, 3.7628446764736347`*^9, 3.765893605448827*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Substituting", " ", "the", " ", "fixed", " ", "fees", " ", "in", " ", 
     "the", " ", "profits"}], ",", " ", 
    RowBox[{
    "we", " ", "determine", " ", "the", " ", "equilibrium", " ", "marginal", 
     " ", "prices"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Profit1NEtmp", "=", 
     RowBox[{"Profit1NE", "/.", 
      RowBox[{"F1", "\[Rule]", "F1dtmp"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Profit2NEtmp", "=", 
     RowBox[{"Profit2NE", "/.", 
      RowBox[{"F2", "\[Rule]", "F2dtmp"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmpp", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"Profit1NEtmp", ",", "p1"}], "]"}], "\[Equal]", "0"}], 
          ",", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"Profit2NEtmp", ",", "p2"}], "]"}], "\[Equal]", "0"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1NE", "=", 
    RowBox[{"tmpp", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"p2NE", "=", 
    RowBox[{"tmpp", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pricesNE", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "\[Rule]", "p1NE"}], ",", 
       RowBox[{"p2", "\[Rule]", "p2NE"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "and", " ", "then", " ", "the", " ", "associated", " ", "equilibrium", 
     " ", "payoffs"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PROFIT1NE", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Profit1NEtmp", "/.", "pricesNE"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PROFIT2NE", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Profit2NEtmp", "/.", "pricesNE"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"PROFITBNE", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"ProfitBNE", "/.", "pricesNE"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6618428693385496`*^9, 3.661842873194935*^9}, {
   3.6618429315727725`*^9, 3.661843041068721*^9}, {3.661844127033015*^9, 
   3.661844162828015*^9}, {3.6620355512497773`*^9, 3.6620356159582567`*^9}, {
   3.6620356647067003`*^9, 3.662035712478486*^9}, {3.662035762677888*^9, 
   3.6620357676461945`*^9}, {3.665805233236223*^9, 3.665805246376008*^9}, {
   3.665806006001563*^9, 3.6658060213708353`*^9}, {3.6658948093681726`*^9, 
   3.665894820050297*^9}, {3.6658949067411375`*^9, 3.6658949104666224`*^9}, {
   3.6658949869829335`*^9, 3.665895022029005*^9}, {3.6658950645493727`*^9, 
   3.665895064681472*^9}, {3.6658951015707397`*^9, 3.6658951190784206`*^9}, 
   3.6670309380720987`*^9, {3.6945015163090024`*^9, 3.6945015700702024`*^9}, {
   3.694501669470002*^9, 3.6945016700316024`*^9}, {3.6945017048582025`*^9, 
   3.6945017099674025`*^9}, {3.7155754043700333`*^9, 3.7155754586366334`*^9}, 
   3.7319131664746604`*^9, {3.7658936262262673`*^9, 3.7658936599989004`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[Mu]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "-", 
     RowBox[{"2", " ", "\[Mu]"}], "+", 
     RowBox[{"\[Gamma]", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Mu]", "+", 
        RowBox[{"\[Gamma]", " ", "\[Mu]"}], "-", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"\[Mu]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}], 
     ")"}]}]}]]], "Output",
 CellChangeTimes->{
  3.7155754598378334`*^9, 3.726915829114995*^9, 3.7269841979201145`*^9, 
   3.727159696253439*^9, 3.7271718651693807`*^9, 3.727262565535077*^9, 
   3.7319058438536606`*^9, 3.73190588129366*^9, 3.73191316689966*^9, 
   3.732936330275488*^9, 3.734192118382269*^9, 3.734192153204562*^9, 
   3.73444070237926*^9, 3.740070661126635*^9, 3.740381285655518*^9, 
   3.7405683167470264`*^9, 3.740740917129883*^9, 3.74080114547016*^9, 
   3.7408272538281507`*^9, 3.7628446768087378`*^9, {3.765893638887337*^9, 
   3.7658936605085373`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "c"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Mu]", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}]}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"\[Mu]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}], 
     ")"}]}]}]]], "Output",
 CellChangeTimes->{
  3.7155754598378334`*^9, 3.726915829114995*^9, 3.7269841979201145`*^9, 
   3.727159696253439*^9, 3.7271718651693807`*^9, 3.727262565535077*^9, 
   3.7319058438536606`*^9, 3.73190588129366*^9, 3.73191316689966*^9, 
   3.732936330275488*^9, 3.734192118382269*^9, 3.734192153204562*^9, 
   3.73444070237926*^9, 3.740070661126635*^9, 3.740381285655518*^9, 
   3.7405683167470264`*^9, 3.740740917129883*^9, 3.74080114547016*^9, 
   3.7408272538281507`*^9, 3.7628446768087378`*^9, {3.765893638887337*^9, 
   3.7658936605115337`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     RowBox[{"(", 
      RowBox[{"F1", "+", "F2"}], ")"}]}], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
          "2"]}], "+", 
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
          "2"]}], "+", 
        RowBox[{
         SuperscriptBox["c", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"\[Mu]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Mu]"}], ")"}]}], "-", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", 
                 RowBox[{"3", " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}]}], 
          ")"}]}]}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"\[Mu]", " ", 
          RowBox[{"(", 
           RowBox[{"4", "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}], 
           ")"}]}]}], ")"}], "2"]}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7155754598378334`*^9, 3.726915829114995*^9, 3.7269841979201145`*^9, 
   3.727159696253439*^9, 3.7271718651693807`*^9, 3.727262565535077*^9, 
   3.7319058438536606`*^9, 3.73190588129366*^9, 3.73191316689966*^9, 
   3.732936330275488*^9, 3.734192118382269*^9, 3.734192153204562*^9, 
   3.73444070237926*^9, 3.740070661126635*^9, 3.740381285655518*^9, 
   3.7405683167470264`*^9, 3.740740917129883*^9, 3.74080114547016*^9, 
   3.7408272538281507`*^9, 3.7628446768087378`*^9, {3.765893638887337*^9, 
   3.7658936605134974`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"With", " ", "\[Mu]"}], "\[Rule]", 
    RowBox[{
    "0", " ", "marginal", " ", "prices", " ", "are", " ", "efficient"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{"p1NE", ",", 
     RowBox[{"\[Mu]", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Limit", "[", 
    RowBox[{"p2NE", ",", 
     RowBox[{"\[Mu]", "\[Rule]", "0"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.665809103625598*^9, 3.6658091043330703`*^9}, 
   3.665809176334755*^9, {3.6658095976927814`*^9, 3.6658096325893197`*^9}, 
   3.667030938075099*^9, {3.6945016207594023`*^9, 3.694501626688402*^9}, {
   3.7155753079850335`*^9, 3.7155753079850335`*^9}, {3.7155755016598334`*^9, 
   3.715575522523033*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.6675355628893204`*^9, 3.6945016288160024`*^9, 
  3.694501746061202*^9, 3.694511680948374*^9, 3.694752100825987*^9, 
  3.6947759115622015`*^9, 3.695010375326626*^9, 3.6953572640137615`*^9, 
  3.6959603582110243`*^9, 3.6959772571871243`*^9, 3.697168790488615*^9, 
  3.697175824803461*^9, 3.6972579707617507`*^9, 3.708680116387779*^9, 
  3.7154372905497456`*^9, 3.7154379640202084`*^9, 3.7154381418908377`*^9, 
  3.7155755231696334`*^9, 3.727171868186327*^9, 3.727262579772522*^9, 
  3.7319058542636604`*^9, 3.7319058918066607`*^9, 3.732936340522488*^9, 
  3.734192120676374*^9, 3.734192167276207*^9, 3.734440716993105*^9, 
  3.74007067353459*^9, 3.740381299916443*^9, 3.740568331719199*^9, 
  3.74074093820529*^9, 3.7408011651531525`*^9, 3.7408272679868035`*^9, 
  3.762844687604863*^9, 3.7658936648748198`*^9}],

Cell[BoxData["c"], "Output",
 CellChangeTimes->{3.6675355628893204`*^9, 3.6945016288160024`*^9, 
  3.694501746061202*^9, 3.694511680948374*^9, 3.694752100825987*^9, 
  3.6947759115622015`*^9, 3.695010375326626*^9, 3.6953572640137615`*^9, 
  3.6959603582110243`*^9, 3.6959772571871243`*^9, 3.697168790488615*^9, 
  3.697175824803461*^9, 3.6972579707617507`*^9, 3.708680116387779*^9, 
  3.7154372905497456`*^9, 3.7154379640202084`*^9, 3.7154381418908377`*^9, 
  3.7155755231696334`*^9, 3.727171868186327*^9, 3.727262579772522*^9, 
  3.7319058542636604`*^9, 3.7319058918066607`*^9, 3.732936340522488*^9, 
  3.734192120676374*^9, 3.734192167276207*^9, 3.734440716993105*^9, 
  3.74007067353459*^9, 3.740381299916443*^9, 3.740568331719199*^9, 
  3.74074093820529*^9, 3.7408011651531525`*^9, 3.7408272679868035`*^9, 
  3.762844687604863*^9, 3.7658936648858104`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Here", " ", "we", " ", "redefine", " ", "the", " ", "fixed", " ", "fees", 
    " ", "to", " ", "account", " ", "for", " ", "the", " ", "equilibrium", 
    " ", "prices"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"F1NE", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"F1dtmp", "/.", "pricesNE"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"F2NE", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"F2dtmp", "/.", "pricesNE"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6620359713330956`*^9, 3.6620360310667315`*^9}, 
   3.6670309380760994`*^9, {3.6945016379168024`*^9, 3.694501660199602*^9}, {
   3.6945017500724025`*^9, 3.6945017543020024`*^9}, {3.7155755305796337`*^9, 
   3.7155755504580336`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}], "-", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "2"], " ", "\[Mu]"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}], ")"}], "2"]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"(", 
         RowBox[{"4", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "4"}], "+", 
             SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}], 
         ")"}]}]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.7155755434516335`*^9, 3.7155755506296334`*^9}, 
   3.7269158384769945`*^9, 3.7269842064533143`*^9, 3.7271597051764393`*^9, 
   3.727171868471615*^9, 3.727262586622619*^9, 3.7319058544646606`*^9, 
   3.73190589200566*^9, 3.732936340731488*^9, 3.734192120714344*^9, 
   3.734192167603817*^9, 3.7344407173801346`*^9, 3.740070674045949*^9, 
   3.740381300267377*^9, 3.740568332212511*^9, 3.740740938812106*^9, 
   3.7408011657271786`*^9, 3.740827268505229*^9, 3.7628446878651667`*^9, 
   3.7658936805798063`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "-", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], 
         ")"}]}]}], ")"}], "2"]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"(", 
         RowBox[{"4", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "4"}], "+", 
             SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}], 
         ")"}]}]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.7155755434516335`*^9, 3.7155755506296334`*^9}, 
   3.7269158384769945`*^9, 3.7269842064533143`*^9, 3.7271597051764393`*^9, 
   3.727171868471615*^9, 3.727262586622619*^9, 3.7319058544646606`*^9, 
   3.73190589200566*^9, 3.732936340731488*^9, 3.734192120714344*^9, 
   3.734192167603817*^9, 3.7344407173801346`*^9, 3.740070674045949*^9, 
   3.740381300267377*^9, 3.740568332212511*^9, 3.740740938812106*^9, 
   3.7408011657271786`*^9, 3.740827268505229*^9, 3.7628446878651667`*^9, 
   3.7658936806256847`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"With", " ", "\[Mu]"}], "\[Rule]", 
    RowBox[{
    "Infinity", " ", "fixed", " ", "fees", " ", "vanish", " ", "and", " ", 
     "we", " ", "are", " ", "left", " ", "with", " ", "linear", " ", 
     "pricing"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{"F1NE", ",", 
     RowBox[{"\[Mu]", "\[Rule]", "Infinity"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Limit", "[", 
    RowBox[{"F2NE", ",", 
     RowBox[{"\[Mu]", "\[Rule]", "Infinity"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6658060900517416`*^9, 3.6658061190321875`*^9}, {
   3.666077753496785*^9, 3.666077756479083*^9}, {3.666077801675603*^9, 
   3.6660778046669016`*^9}, 3.6670309380780993`*^9, {3.6945017787114024`*^9, 
   3.6945017910962024`*^9}, {3.7155753080006332`*^9, 
   3.7155753080006332`*^9}, {3.7155755608244333`*^9, 3.7155755982880335`*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.6675355797910104`*^9, {3.6945017661846027`*^9, 3.694501792063402*^9}, 
   3.694511681120257*^9, 3.694752101059987*^9, 3.6947759117743444`*^9, 
   3.6950103755606256`*^9, 3.6953572642477674`*^9, 3.6959603584450245`*^9, 
   3.6959772574641247`*^9, 3.697168790769413*^9, 3.69717582503746*^9, 
   3.69725797100795*^9, 3.708680117622286*^9, 3.715437291116936*^9, 
   3.7154379643796587`*^9, 3.7154381422627583`*^9, {3.7155755574080334`*^9, 
   3.7155755668012333`*^9}, 3.727171868689524*^9, 3.72726259245303*^9, 
   3.7319058549666605`*^9, 3.7319058924096603`*^9, 3.732936341242488*^9, 
   3.734192121076483*^9, 3.7341921684831*^9, 3.7344407182143493`*^9, 
   3.740070675387003*^9, 3.740381301070512*^9, 3.7405683334427843`*^9, 
   3.7407409393477054`*^9, 3.7408011664786787`*^9, 3.74082726886915*^9, 
   3.762844688098543*^9, 3.7658936854368143`*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.6675355797910104`*^9, {3.6945017661846027`*^9, 3.694501792063402*^9}, 
   3.694511681120257*^9, 3.694752101059987*^9, 3.6947759117743444`*^9, 
   3.6950103755606256`*^9, 3.6953572642477674`*^9, 3.6959603584450245`*^9, 
   3.6959772574641247`*^9, 3.697168790769413*^9, 3.69717582503746*^9, 
   3.69725797100795*^9, 3.708680117622286*^9, 3.715437291116936*^9, 
   3.7154379643796587`*^9, 3.7154381422627583`*^9, {3.7155755574080334`*^9, 
   3.7155755668012333`*^9}, 3.727171868689524*^9, 3.72726259245303*^9, 
   3.7319058549666605`*^9, 3.7319058924096603`*^9, 3.732936341242488*^9, 
   3.734192121076483*^9, 3.7341921684831*^9, 3.7344407182143493`*^9, 
   3.740070675387003*^9, 3.740381301070512*^9, 3.7405683334427843`*^9, 
   3.7407409393477054`*^9, 3.7408011664786787`*^9, 3.74082726886915*^9, 
   3.762844688098543*^9, 3.7658936854627666`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Limit", "[", 
  RowBox[{"p1NE", ",", 
   RowBox[{"\[Mu]", "\[Rule]", "Infinity"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Limit", "[", 
  RowBox[{"p2NE", ",", 
   RowBox[{"\[Mu]", "\[Rule]", "Infinity"}]}], 
  "]"}], "\[IndentingNewLine]", "pNE"}], "Input",
 CellChangeTimes->{{3.727163225580439*^9, 3.727163228414439*^9}, {
  3.7658936900764356`*^9, 3.7658936915096016`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "2"}], "+", "\[Gamma]", "-", 
   RowBox[{"c", " ", "\[Gamma]"}], "+", 
   SuperscriptBox["\[Gamma]", "2"]}], 
  RowBox[{
   RowBox[{"-", "4"}], "+", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 CellChangeTimes->{
  3.7271632289034395`*^9, 3.727171868824438*^9, 3.7272625937985973`*^9, 
   3.73190585502966*^9, 3.7319058924266605`*^9, 3.732936341307488*^9, 
   3.734192121109539*^9, 3.734192168577018*^9, 3.7344407183126125`*^9, 
   3.740070675678779*^9, 3.740381301152729*^9, 3.7405683335971947`*^9, 
   3.740740939510713*^9, 3.7408011666158395`*^9, 3.7408272691388683`*^9, 
   3.7628446881544285`*^9, {3.7658936884038763`*^9, 3.765893692078079*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "2"}], "-", 
   RowBox[{"2", " ", "c"}], "+", "\[Gamma]", "+", 
   SuperscriptBox["\[Gamma]", "2"]}], 
  RowBox[{
   RowBox[{"-", "4"}], "+", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 CellChangeTimes->{
  3.7271632289034395`*^9, 3.727171868824438*^9, 3.7272625937985973`*^9, 
   3.73190585502966*^9, 3.7319058924266605`*^9, 3.732936341307488*^9, 
   3.734192121109539*^9, 3.734192168577018*^9, 3.7344407183126125`*^9, 
   3.740070675678779*^9, 3.740381301152729*^9, 3.7405683335971947`*^9, 
   3.740740939510713*^9, 3.7408011666158395`*^9, 3.7408272691388683`*^9, 
   3.7628446881544285`*^9, {3.7658936884038763`*^9, 3.765893692093028*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"p1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], "+", "\[Gamma]", "-", 
      RowBox[{"c", " ", "\[Gamma]"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"2", " ", "c"}], "+", "\[Gamma]", "+", 
      SuperscriptBox["\[Gamma]", "2"]}], 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7271632289034395`*^9, 3.727171868824438*^9, 3.7272625937985973`*^9, 
   3.73190585502966*^9, 3.7319058924266605`*^9, 3.732936341307488*^9, 
   3.734192121109539*^9, 3.734192168577018*^9, 3.7344407183126125`*^9, 
   3.740070675678779*^9, 3.740381301152729*^9, 3.7405683335971947`*^9, 
   3.740740939510713*^9, 3.7408011666158395`*^9, 3.7408272691388683`*^9, 
   3.7628446881544285`*^9, {3.7658936884038763`*^9, 3.765893692095025*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Now", " ", "we", " ", "consider", " ", "the", " ", "case", " ", "in", 
      " ", "which", " ", "the", " ", "capcity", " ", "constraint", " ", 
      "q2"}], "\[LessEqual]", 
     RowBox[{
      RowBox[{"K", " ", "is", " ", "binding", " ", "off"}], "-", 
      "equilibrium"}]}], ",", " ", 
    RowBox[{
     RowBox[{"i", ".", "e", ".", " ", "on"}], " ", "the", " ", "reservation", 
     " ", "payoff", " ", "of", " ", "exclusivity"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ve2", "-", 
       RowBox[{"p2", " ", "q2"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Mu]"}], ")"}], "F2"}]}], "/.", 
      RowBox[{"q2", "\[Rule]", "k"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"ProfitBE2constr", "=", 
    RowBox[{"FullSimplify", "[", "%", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7269843846833143`*^9, 3.7269844977053146`*^9}, 
   3.732937726347488*^9, {3.7341897575104375`*^9, 3.7341897603538103`*^9}, {
   3.7405686153635745`*^9, 3.7405686158689165`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", "k", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "k", "+", 
     RowBox[{"2", " ", "p2"}]}], ")"}]}], "-", 
  RowBox[{"F2", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.7269844199081144`*^9, 3.727159741461439*^9, 
  3.727171869016941*^9, 3.7272626045067263`*^9, 3.7319058551476603`*^9, 
  3.7319058925256605`*^9, 3.732936341425488*^9, 3.732937730794488*^9, 
  3.7341921212298355`*^9, 3.7341921687651463`*^9, 3.7344407185161505`*^9, 
  3.7400706759946184`*^9, 3.7403813013171663`*^9, 3.740568334006318*^9, 
  3.740740939808715*^9, 3.7408011668839636`*^9, 3.7408272694496965`*^9, 
  3.76284468824914*^9, 3.765893710843848*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "BR", " ", "of", " ", "firm", " ", "2", " ", "when", " ", "p1",
     " ", "is", " ", "such", " ", "that", " ", "firm", " ", "2", " ", "is", 
    " ", 
    RowBox[{"rationed", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"qNE", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "\[Equal]", "k"}], ",", "p2"}],
     "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.734193638740176*^9, 3.734193704980488*^9}, {
  3.765893719378084*^9, 3.7658937317938414`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"1", "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", "\[Gamma]"}], "+", 
     RowBox[{"k", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.734193668377902*^9, 3.7344407185602703`*^9, 3.7400706760978966`*^9, 
   3.7403813013422337`*^9, 3.7405683341005335`*^9, 3.7407409399063935`*^9, 
   3.740801166964839*^9, 3.7408272695509653`*^9, 3.7628446882611074`*^9, {
   3.7658937139445534`*^9, 3.7658937320990252`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "condition", " ", "for", " ", "the", " ", "binding", " ", 
    "constraint", " ", 
    RowBox[{"is", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"q2e", "/.", 
     RowBox[{"p2", "->", "p2NE"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"%", "\[Equal]", "k"}], ",", "k"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7271616320714393`*^9, 3.7271616646624393`*^9}, {
  3.732937735543488*^9, 3.732937743926488*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c", "+", 
     RowBox[{"2", " ", "c", " ", "\[Mu]"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"\[Mu]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}], 
     ")"}]}]}]]], "Output",
 CellChangeTimes->{{3.7271616492874393`*^9, 3.7271616648734393`*^9}, 
   3.7271718690826626`*^9, 3.7272626079915237`*^9, 3.7272629889956923`*^9, 
   3.7319058552076607`*^9, 3.7319058925876603`*^9, 3.732936341487488*^9, 
   3.732937747965488*^9, 3.7341921212679353`*^9, 3.7341921688774743`*^9, 
   3.7344407186555233`*^9, 3.740070676255312*^9, 3.7403813014244537`*^9, 
   3.740568334251937*^9, 3.7407409401169496`*^9, 3.7408011671111917`*^9, 
   3.740827269730441*^9, 3.762844688335908*^9, 3.765893741511839*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"k", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "c", "+", 
        RowBox[{"2", " ", "c", " ", "\[Mu]"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"\[Mu]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "4"}], "+", 
            SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}], 
        ")"}]}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7271616492874393`*^9, 3.7271616648734393`*^9}, 
   3.7271718690826626`*^9, 3.7272626079915237`*^9, 3.7272629889956923`*^9, 
   3.7319058552076607`*^9, 3.7319058925876603`*^9, 3.732936341487488*^9, 
   3.732937747965488*^9, 3.7341921212679353`*^9, 3.7341921688774743`*^9, 
   3.7344407186555233`*^9, 3.740070676255312*^9, 3.7403813014244537`*^9, 
   3.740568334251937*^9, 3.7407409401169496`*^9, 3.7408011671111917`*^9, 
   3.740827269730441*^9, 3.762844688335908*^9, 3.765893741515832*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"The", " ", "fixed", " ", "fees"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tmpFconstr", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ProfitBE1", "\[Equal]", "ProfitBNE"}], ",", 
          RowBox[{"ProfitBE2constr", "\[Equal]", "ProfitBNE"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"F1", ",", "F2"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"F1dtmpconstr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"tmpFconstr", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], " ", "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"F2dtmpconstr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"tmpFconstr", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7269845656901145`*^9, 3.7269845977793145`*^9}, {
   3.7271609865844393`*^9, 3.7271610619454393`*^9}, {3.732937757929488*^9, 
   3.7329377644094877`*^9}, 3.740384734515088*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "k"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "k", "+", 
       RowBox[{"2", " ", "p2"}]}], ")"}]}], "+", 
    FractionBox[
     RowBox[{"2", "-", 
      RowBox[{"2", " ", "p1"}], "+", 
      SuperscriptBox["p1", "2"], "-", 
      RowBox[{"2", " ", "p2"}], "+", 
      SuperscriptBox["p2", "2"], "-", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.727161036739439*^9, 3.7271610630894394`*^9}, 
   3.727171869635606*^9, 3.7272630275832095`*^9, 3.73190585552466*^9, 
   3.7319058928636603`*^9, 3.732936341796488*^9, 3.732937765319488*^9, 
   3.73419212408002*^9, 3.734192169297364*^9, 3.7344407190716295`*^9, 
   3.7400706767576513`*^9, 3.7403813017914615`*^9, 3.7405683347523127`*^9, 
   3.740740940683441*^9, 3.740801167490492*^9, 3.7408272701476*^9, 
   3.762844688576309*^9, 3.7658937476803074`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p2", "+", "\[Gamma]", "-", 
      RowBox[{"p1", " ", "\[Gamma]"}]}], ")"}], "2"], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.727161036739439*^9, 3.7271610630894394`*^9}, 
   3.727171869635606*^9, 3.7272630275832095`*^9, 3.73190585552466*^9, 
   3.7319058928636603`*^9, 3.732936341796488*^9, 3.732937765319488*^9, 
   3.73419212408002*^9, 3.734192169297364*^9, 3.7344407190716295`*^9, 
   3.7400706767576513`*^9, 3.7403813017914615`*^9, 3.7405683347523127`*^9, 
   3.740740940683441*^9, 3.740801167490492*^9, 3.7408272701476*^9, 
   3.762844688576309*^9, 3.765893747683329*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Defining", " ", 
    RowBox[{"buyers", "'"}], " ", "profit"}], "*)"}], 
  RowBox[{"PROFITBNEconstr", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"PROFITBNE", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"F1", "->", "F1dtmpconstr"}], ",", 
        RowBox[{"F2", "->", "F2dtmpconstr"}]}], "}"}]}], "/.", "pricesNE"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.73191326045866*^9, 3.7319132969306602`*^9}, {
  3.7319133376586604`*^9, 3.7319133732026606`*^9}, {3.732937850944488*^9, 
  3.732937877406488*^9}, {3.740568646181574*^9, 3.7405686567627287`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["c", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Mu]"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}], ")"}], 
      "2"]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
      "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Mu]"}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", "k", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], 
         ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["k", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], 
          ")"}], "2"]}]}], ")"}]}], "+", 
    RowBox[{"2", " ", "c", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Mu]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], 
         ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", 
             SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}], 
         ")"}]}]}], ")"}]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], 
      ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
     "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.732937909037488*^9, 3.734192126409728*^9, 
  3.7341922100861473`*^9, 3.734440761565385*^9, 3.740070721172922*^9, 
  3.740381342525756*^9, 3.7405683755948553`*^9, 3.7407409856548615`*^9, 
  3.740801211756551*^9, 3.7408273116473536`*^9, 3.7628447190697083`*^9, 
  3.7658937671871386`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Mixed strategies", "Subsubsection",
 CellChangeTimes->{{3.732936296190488*^9, 3.732936301363488*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "When", " ", "the", " ", "capacity", " ", "constraint", " ", "binds", " ", 
    "in", " ", "equilibrium"}], ",", " ", 
   RowBox[{"we", " ", "need", " ", "to", " ", "consider", " ", "mixed", " ", 
    RowBox[{"strategies", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.73190553781966*^9, 3.7319055607856607`*^9}, {
  3.7319056591466603`*^9, 3.7319056737386603`*^9}, {3.73191301360266*^9, 
  3.7319130138106604`*^9}, {3.732937907556488*^9, 3.732937934142488*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"First", ",", " ", 
   RowBox[{
   "we", " ", "identify", " ", "the", " ", "p2switch", " ", "that", " ", 
    "makes", " ", "firm", " ", "1", " ", "indifferent", " ", "as", " ", "for",
     " ", "the", " ", "mixed", " ", "strategy"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7319057345606604`*^9, 3.7319057436576605`*^9}, {
  3.732937938438488*^9, 3.732937969662488*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "When", " ", "firm", " ", "1", " ", "makes", " ", "a", " ", "price", " ", 
     "such", " ", "that", " ", "firm", " ", "2", " ", "is", " ", "not", " ", 
     "rationed"}], ",", " ", 
    RowBox[{"its", " ", "profit", " ", 
     RowBox[{"is", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"p1", " ", "q1"}], "+", "F1dtmp"}], "/.", "qNE"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
      "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"P1Bertr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"p1", " ", "q1"}], "+", "F1dtmp"}], "/.", "qNE"}], "/.", 
      RowBox[{"p1", "\[Rule]", "%"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7294947399246244`*^9, 3.7294947481612663`*^9}, {
   3.72949478524236*^9, 3.7294948139900074`*^9}, {3.7319060295786605`*^9, 
   3.73190605771566*^9}, {3.7319067976196604`*^9, 3.7319068014676604`*^9}, 
   3.7319070100116606`*^9, {3.7329380687364883`*^9, 3.732938105439488*^9}, {
   3.765893785217146*^9, 3.765893806078338*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"p1", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
      RowBox[{"p2", " ", "\[Gamma]"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[Gamma]", "2"]}]], "-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
      RowBox[{"p2", " ", "\[Gamma]"}]}], ")"}], "2"], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.729494749549639*^9, {3.729494793996792*^9, 3.729494801011057*^9}, 
   3.729494894591059*^9, 3.7318230432136602`*^9, 3.7319028048756604`*^9, 
   3.7319060593096604`*^9, 3.7319070119496603`*^9, 3.7319100918086605`*^9, 
   3.7329380990744877`*^9, 3.7341921265233746`*^9, 3.7341922101904593`*^9, 
   3.734440761677271*^9, 3.7400707215218472`*^9, 3.7403813426240177`*^9, 
   3.7405683757863655`*^9, 3.7407409857731504`*^9, 3.7408012119279604`*^9, 
   3.7408273119723186`*^9, 3.762844719114588*^9, {3.765893794559141*^9, 
   3.7658938067255692`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
   " ", "\[Mu]"}], 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{
  3.729494749549639*^9, {3.729494793996792*^9, 3.729494801011057*^9}, 
   3.729494894591059*^9, 3.7318230432136602`*^9, 3.7319028048756604`*^9, 
   3.7319060593096604`*^9, 3.7319070119496603`*^9, 3.7319100918086605`*^9, 
   3.7329380990744877`*^9, 3.7341921265233746`*^9, 3.7341922101904593`*^9, 
   3.734440761677271*^9, 3.7400707215218472`*^9, 3.7403813426240177`*^9, 
   3.7405683757863655`*^9, 3.7407409857731504`*^9, 3.7408012119279604`*^9, 
   3.7408273119723186`*^9, 3.762844719114588*^9, {3.765893794559141*^9, 
   3.7658938067375717`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
     "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.729494749549639*^9, {3.729494793996792*^9, 3.729494801011057*^9}, 
   3.729494894591059*^9, 3.7318230432136602`*^9, 3.7319028048756604`*^9, 
   3.7319060593096604`*^9, 3.7319070119496603`*^9, 3.7319100918086605`*^9, 
   3.7329380990744877`*^9, 3.7341921265233746`*^9, 3.7341922101904593`*^9, 
   3.734440761677271*^9, 3.7400707215218472`*^9, 3.7403813426240177`*^9, 
   3.7405683757863655`*^9, 3.7407409857731504`*^9, 3.7408012119279604`*^9, 
   3.7408273119723186`*^9, 3.762844719114588*^9, {3.765893794559141*^9, 
   3.76589380675353*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"When", " ", "instead", " ", "firm", " ", "2", " ", "is", " ", 
   RowBox[{"rationed", ":", " ", 
    RowBox[{
    "we", " ", "need", " ", "to", " ", "first", " ", "determine", " ", "the", 
     " ", "fixed", " ", "fee"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7319070298746605`*^9, 3.73190703882666*^9}, {
  3.732938120518488*^9, 3.7329381507984877`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"v", "/.", 
   RowBox[{"q2", "\[Rule]", "k"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"%", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{"p2", " ", "k"}]}], ",", "q1"}], "]"}], "\[Equal]", "0"}], 
    ",", "q1"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ProfitBNErationed", "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"v", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"p2", " ", "k"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Mu]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"F1", "+", "F2"}], ")"}]}]}], " ", "/.", 
     RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
    RowBox[{"q1", "\[Rule]", 
     RowBox[{"%", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"F1rationed", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"ProfitBE2constr", "\[Equal]", "ProfitBNErationed"}], ",", 
      "F1"}], "]"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7319071894746604`*^9, 3.7319073651796603`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"q1", "\[Rule]", 
    RowBox[{"1", "-", "p1", "-", 
     RowBox[{"k", " ", "\[Gamma]"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7319072374746604`*^9, {3.7319073030196605`*^9, 3.7319073086046605`*^9}, {
   3.7319073455026608`*^9, 3.7319073657826605`*^9}, 3.7329381615674877`*^9, 
   3.734192126607132*^9, 3.7341922103022623`*^9, 3.734440761809369*^9, 
   3.7400707219339423`*^9, 3.7403813427363157`*^9, 3.7405683759668465`*^9, 
   3.7407409859554853`*^9, 3.740801212114457*^9, 3.740827312285468*^9, 
   3.762844719171436*^9, 3.7658938183026304`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "p1"}], ")"}], "2"], "+", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{"2", "-", "k", "-", 
       RowBox[{"2", " ", "p2"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", "\[Gamma]"}], "+", 
       RowBox[{"k", " ", 
        SuperscriptBox["\[Gamma]", "2"]}]}], ")"}]}], "-", 
    RowBox[{"2", " ", "F1", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Mu]"}], ")"}]}], "-", 
    RowBox[{"2", " ", "F2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7319072374746604`*^9, {3.7319073030196605`*^9, 3.7319073086046605`*^9}, {
   3.7319073455026608`*^9, 3.7319073657826605`*^9}, 3.7329381615674877`*^9, 
   3.734192126607132*^9, 3.7341922103022623`*^9, 3.734440761809369*^9, 
   3.7400707219339423`*^9, 3.7403813427363157`*^9, 3.7405683759668465`*^9, 
   3.7407409859554853`*^9, 3.740801212114457*^9, 3.740827312285468*^9, 
   3.762844719171436*^9, 3.765893818431257*^9}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "p1", "+", 
     RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.7319072374746604`*^9, {3.7319073030196605`*^9, 3.7319073086046605`*^9}, {
   3.7319073455026608`*^9, 3.7319073657826605`*^9}, 3.7329381615674877`*^9, 
   3.734192126607132*^9, 3.7341922103022623`*^9, 3.734440761809369*^9, 
   3.7400707219339423`*^9, 3.7403813427363157`*^9, 3.7405683759668465`*^9, 
   3.7407409859554853`*^9, 3.740801212114457*^9, 3.740827312285468*^9, 
   3.762844719171436*^9, 3.7658938184452186`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "then", " ", "the", " ", "quantity", " ", "of", " ", "firm", " ", "1"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"v", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"q2", " ", "p2"}]}], "/.", 
     RowBox[{"q2", "\[Rule]", "k"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"q1rationed", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], ",", "q1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.729494548150511*^9, 3.7294946004963045`*^9}, {
  3.732938166495488*^9, 3.732938173512488*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "p1", "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{{3.729494582595049*^9, 3.7294946016350827`*^9}, 
   3.7318230320796604`*^9, 3.7319027361886606`*^9, 3.7319060032696605`*^9, 
   3.7319100616456604`*^9, 3.732938174240488*^9, 3.7341921274316654`*^9, 
   3.734192210527939*^9, 3.734440762041109*^9, 3.7400707227511826`*^9, 
   3.7403813429599104`*^9, 3.7405683762806826`*^9, 3.7407409862817464`*^9, 
   3.740801212415301*^9, 3.7408273130725794`*^9, 3.762844719303084*^9, 
   3.765893822177235*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Then", " ", "the", " ", "profit", " ", "of", " ", "firm", " ", "1"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", "p1", ")"}], "q1"}], "+", "F1rationed"}], "/.", 
    RowBox[{"{", 
     RowBox[{"q1", "->", "q1rationed"}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"BR1rationed", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Limit", "[", 
    RowBox[{"%", ",", 
     RowBox[{"\[Mu]", "\[Rule]", "Infinity"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"P1rationed", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", "p1", ")"}], "q1"}], "+", "F1rationed"}], "/.", 
       RowBox[{"{", 
        RowBox[{"q1", "->", "q1rationed"}], "}"}]}], "/.", 
      RowBox[{"p1", "->", "BR1rationed"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7319074935706606`*^9, 3.7319075225156603`*^9}, {
  3.732938177072488*^9, 3.732938203921488*^9}, {3.7405700623499928`*^9, 
  3.740570068509426*^9}, {3.7658938264398713`*^9, 3.7658938313028965`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p1", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "p1", "-", 
     RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.73190749670866*^9, 3.7319075233206606`*^9}, 
   3.73191022447766*^9, {3.7329381902174883`*^9, 3.732938204412488*^9}, 
   3.7341921275744386`*^9, 3.7341922105585203`*^9, 3.7341927205621767`*^9, 
   3.7344407620817757`*^9, 3.7400707229105387`*^9, 3.740381342992998*^9, 
   3.7405683763709226`*^9, 3.740740986355685*^9, 3.7408012124994802`*^9, 
   3.740827313200904*^9, 3.7628447193100653`*^9, 3.7658938329593925`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[Mu]", "-", 
   RowBox[{"k", " ", "\[Gamma]", " ", "\[Mu]"}]}], 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{{3.73190749670866*^9, 3.7319075233206606`*^9}, 
   3.73191022447766*^9, {3.7329381902174883`*^9, 3.732938204412488*^9}, 
   3.7341921275744386`*^9, 3.7341922105585203`*^9, 3.7341927205621767`*^9, 
   3.7344407620817757`*^9, 3.7400707229105387`*^9, 3.740381342992998*^9, 
   3.7405683763709226`*^9, 3.740740986355685*^9, 3.7408012124994802`*^9, 
   3.740827313200904*^9, 3.7628447193100653`*^9, 3.765893832962387*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.73190749670866*^9, 3.7319075233206606`*^9}, 
   3.73191022447766*^9, {3.7329381902174883`*^9, 3.732938204412488*^9}, 
   3.7341921275744386`*^9, 3.7341922105585203`*^9, 3.7341927205621767`*^9, 
   3.7344407620817757`*^9, 3.7400707229105387`*^9, 3.740381342992998*^9, 
   3.7405683763709226`*^9, 3.740740986355685*^9, 3.7408012124994802`*^9, 
   3.740827313200904*^9, 3.7628447193100653`*^9, 3.7658938329763484`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}], 
  RowBox[{"2", "+", 
   RowBox[{"4", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{{3.73190749670866*^9, 3.7319075233206606`*^9}, 
   3.73191022447766*^9, {3.7329381902174883`*^9, 3.732938204412488*^9}, 
   3.7341921275744386`*^9, 3.7341922105585203`*^9, 3.7341927205621767`*^9, 
   3.7344407620817757`*^9, 3.7400707229105387`*^9, 3.740381342992998*^9, 
   3.7405683763709226`*^9, 3.740740986355685*^9, 3.7408012124994802`*^9, 
   3.740827313200904*^9, 3.7628447193100653`*^9, 3.765893832979372*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "The", " ", "p2switch", " ", "makes", " ", "firm", " ", "1", " ", 
     "indifferent", " ", "between", " ", "the", " ", "two", " ", "cases", " ",
      "above", " ", 
     RowBox[{"(", 
      RowBox[{
      "note", " ", "that", " ", "indifference", " ", "for", " ", "firm", " ", 
       "1", " ", "clearly", " ", "refers", " ", "to", " ", "the", " ", 
       "total", " ", "profit", " ", "obtained", " ", "with", " ", "the", " ", 
       "two", " ", "different", " ", "pairs", " ", "of", " ", "marginal", " ",
        "price", " ", "and", " ", "fixed", " ", "fee", " ", "that", " ", 
       "respectively", " ", "make", " ", "the", " ", "constraint", " ", "of", 
       " ", "firm", " ", "2", " ", "binding", " ", "or", " ", "not"}], 
      ")"}]}], ":"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"P1Bertr", "==", "P1rationed"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{"%", ",", "p2"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"%", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"c", "\[Rule]", "0"}], ",", 
      RowBox[{"d", "\[Rule]", "0.2"}], ",", 
      RowBox[{"\[Gamma]", "\[Rule]", "0.5"}], ",", 
      RowBox[{"k", "\[Rule]", "0.2"}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"p2switch", "=", 
    RowBox[{"%%", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7294948599765244`*^9, 3.7294949508997765`*^9}, 
   3.7319075699786606`*^9, {3.7319076818906603`*^9, 3.7319076872266607`*^9}, {
   3.7329382131994877`*^9, 3.7329382384164877`*^9}, {3.732939157432488*^9, 
   3.732939202110488*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]", "-", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "\[Gamma]"]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]", "+", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "\[Gamma]"]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.729494892095107*^9, 3.7294949514301662`*^9}, 
   3.7318230516996603`*^9, 3.7319028088766603`*^9, {3.73190755688066*^9, 
   3.7319075703976603`*^9}, 3.7319102407406607`*^9, {3.732938235478488*^9, 
   3.732938238978488*^9}, 3.734192128192154*^9, 3.7341922109140186`*^9, 
   3.7344407624277983`*^9, 3.740070724039735*^9, 3.740381343365034*^9, 
   3.740568376839202*^9, 3.740740986827818*^9, 3.740801212993841*^9, 
   3.7408273137503633`*^9, 3.762844719557435*^9, 3.7658938398370256`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p2", "\[Rule]", 
     RowBox[{"-", "2.5588457268119895`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p2", "\[Rule]", "0.5588457268119895`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.729494892095107*^9, 3.7294949514301662`*^9}, 
   3.7318230516996603`*^9, 3.7319028088766603`*^9, {3.73190755688066*^9, 
   3.7319075703976603`*^9}, 3.7319102407406607`*^9, {3.732938235478488*^9, 
   3.732938238978488*^9}, 3.734192128192154*^9, 3.7341922109140186`*^9, 
   3.7344407624277983`*^9, 3.740070724039735*^9, 3.740381343365034*^9, 
   3.740568376839202*^9, 3.740740986827818*^9, 3.740801212993841*^9, 
   3.7408273137503633`*^9, 3.762844719557435*^9, 3.765893839840024*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "\[Gamma]", "+", 
   SqrtBox[
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "\[Gamma]"]], "Output",
 CellChangeTimes->{{3.729494892095107*^9, 3.7294949514301662`*^9}, 
   3.7318230516996603`*^9, 3.7319028088766603`*^9, {3.73190755688066*^9, 
   3.7319075703976603`*^9}, 3.7319102407406607`*^9, {3.732938235478488*^9, 
   3.732938238978488*^9}, 3.734192128192154*^9, 3.7341922109140186`*^9, 
   3.7344407624277983`*^9, 3.740070724039735*^9, 3.740381343365034*^9, 
   3.740568376839202*^9, 3.740740986827818*^9, 3.740801212993841*^9, 
   3.7408273137503633`*^9, 3.762844719557435*^9, 3.7658938398420196`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Here", " ", "we", " ", "determine", " ", "the", " ", "equilibrium", " ", 
    "marginal", " ", "price", " ", "that", " ", "makes", " ", "firm", " ", 
    "2", " ", "not", " ", 
    RowBox[{"rationed", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"p1", " ", "q1"}], "+", "F1dtmp"}], "/.", "qNE"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
      "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"p1NoRat", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"%", "/.", 
      RowBox[{"p2", "\[Rule]", "p2switch"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"P1Norationed", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", "p1", ")"}], "q1"}], "+", "F1dtmp"}], "/.", "qNE"}], "/.", 
       RowBox[{"p2", "\[Rule]", "p2switch"}]}], "/.", 
      RowBox[{"p1", "->", "p1NoRat"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7294970821862154`*^9, 3.7294970856493487`*^9}, {
   3.7294971193849*^9, 3.729497137173558*^9}, {3.7318239693576603`*^9, 
   3.7318239737736607`*^9}, {3.7318242458216605`*^9, 3.7318242551656604`*^9}, 
   3.73182449503666*^9, 3.7319077029546604`*^9, {3.7319077384106607`*^9, 
   3.7319077640526605`*^9}, {3.732938424208488*^9, 3.732938452385488*^9}, {
   3.740570000261789*^9, 3.7405700494677615`*^9}, {3.765893847275098*^9, 
   3.765893861168993*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
   " ", "\[Mu]"}], 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{
  3.7294970861329393`*^9, 3.7294971393907156`*^9, 3.73182329939966*^9, 
   3.73182397443766*^9, 3.7318242563216605`*^9, 3.7318244956446605`*^9, 
   3.7319032170606604`*^9, {3.7319077506556606`*^9, 3.7319077646056604`*^9}, 
   3.732938458288488*^9, 3.734192128224238*^9, 3.734192210950116*^9, 
   3.734440762467104*^9, 3.740070724521003*^9, 3.7403813434020863`*^9, 
   3.740568377030679*^9, {3.740570030967486*^9, 3.740570050268852*^9}, 
   3.7407409870088053`*^9, 3.7408012132113733`*^9, 3.7408273138536386`*^9, 
   3.7628447195653825`*^9, 3.765893863664288*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SqrtBox[
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]], " ", "\[Mu]"}], 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{
  3.7294970861329393`*^9, 3.7294971393907156`*^9, 3.73182329939966*^9, 
   3.73182397443766*^9, 3.7318242563216605`*^9, 3.7318244956446605`*^9, 
   3.7319032170606604`*^9, {3.7319077506556606`*^9, 3.7319077646056604`*^9}, 
   3.732938458288488*^9, 3.734192128224238*^9, 3.734192210950116*^9, 
   3.734440762467104*^9, 3.740070724521003*^9, 3.7403813434020863`*^9, 
   3.740568377030679*^9, {3.740570030967486*^9, 3.740570050268852*^9}, 
   3.7407409870088053`*^9, 3.7408012132113733`*^9, 3.7408273138536386`*^9, 
   3.7628447195653825`*^9, 3.765893863683262*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}], 
  RowBox[{"2", "+", 
   RowBox[{"4", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{
  3.7294970861329393`*^9, 3.7294971393907156`*^9, 3.73182329939966*^9, 
   3.73182397443766*^9, 3.7318242563216605`*^9, 3.7318244956446605`*^9, 
   3.7319032170606604`*^9, {3.7319077506556606`*^9, 3.7319077646056604`*^9}, 
   3.732938458288488*^9, 3.734192128224238*^9, 3.734192210950116*^9, 
   3.734440762467104*^9, 3.740070724521003*^9, 3.7403813434020863`*^9, 
   3.740568377030679*^9, {3.740570030967486*^9, 3.740570050268852*^9}, 
   3.7407409870088053`*^9, 3.7408012132113733`*^9, 3.7408273138536386`*^9, 
   3.7628447195653825`*^9, 3.7658938636992035`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Now", " ", "we", " ", "need", " ", "to", " ", "determine", " ", "the", 
    " ", "fixed", " ", "fee", " ", "of", " ", "firm", " ", "2", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
      "and", " ", "then", " ", "we", " ", "will", " ", "eventually", " ", 
       "determine", " ", "the", " ", "mixing", " ", "probability"}], ")"}], 
     ".", " ", "Note"}], " ", "that", " ", "firm", " ", "2", " ", "will", " ",
     "offer", " ", "one", " ", "pair", " ", 
    RowBox[{"(", 
     RowBox[{"p2", ",", "F2"}], ")"}]}], ",", " ", 
   RowBox[{
    RowBox[{
    "that", " ", "must", " ", "make", " ", "the", " ", "buyer", " ", 
     "indifferent", " ", "with", " ", "exclusivity", " ", "and", " ", "firm", 
     " ", "1", " ", "from", " ", "an", " ", "ex"}], "-", 
    RowBox[{"ante", " ", "view", " ", "point", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"i", ".", "e", ".", " ", "before"}], " ", "the", " ", 
        "realization", " ", "of", " ", "the", " ", "mixed", " ", "strategy", 
        " ", "of", " ", "firm", " ", "1"}], ")"}], "."}]}]}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.732938511215488*^9, 3.732938546766488*^9}, {
  3.732939230319488*^9, 3.732939310167488*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "As", " ", "for", " ", "F2", " ", "the", " ", "buyer", " ", "must", " ", 
     "be", " ", "indifferent", " ", "between", " ", 
     RowBox[{"(", "expected", ")"}], " ", "payoff", " ", "with", " ", 
     "common", " ", "representation", " ", "and", " ", "expected", " ", 
     "payoff", " ", "with", " ", "exclusivity", " ", "with", " ", "firm", " ",
      "1"}], ":"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", "-", 
       RowBox[{"p1", " ", "q1"}], "-", 
       RowBox[{"p2", " ", "q2"}]}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"q1", "->", "q1rationed"}], ",", 
        RowBox[{"q2", "\[Rule]", "k"}]}], "}"}]}], "/.", 
     RowBox[{"p1", "->", "BR1rationed"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", "-", 
       RowBox[{"p1", " ", "q1"}], "-", 
       RowBox[{"p2", " ", "q2"}]}], "/.", "qNE"}], "/.", 
     RowBox[{"p1", "\[Rule]", "p1NoRat"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"PBCRmixvariable", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}], 
       RowBox[{"(", "%", ")"}]}], "+", 
      RowBox[{"x", " ", "%%"}]}], "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ve1", "-", 
       RowBox[{"p1", " ", "q1"}]}], "/.", 
      RowBox[{"{", 
       RowBox[{"q1", "\[Rule]", "q1e"}], "}"}]}], "/.", 
     RowBox[{"p1", "->", "BR1rationed"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ve1", "-", 
       RowBox[{"p1", " ", "q1"}]}], "/.", 
      RowBox[{"{", 
       RowBox[{"q1", "\[Rule]", "q1e"}], "}"}]}], "/.", 
     RowBox[{"p1", "\[Rule]", "p1NoRat"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"PBE1mixvariable", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}], 
       RowBox[{"(", "%", ")"}]}], "+", 
      RowBox[{"x", " ", "%%"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7319079440346603`*^9, 3.7319079556116605`*^9}, {
  3.73190821597066*^9, 3.7319083168586607`*^9}, {3.7319083570826607`*^9, 
  3.7319084026906605`*^9}, {3.73190848790666*^9, 3.7319085246666603`*^9}, {
  3.7319085578356605`*^9, 3.7319086152826605`*^9}, {3.732938616767488*^9, 
  3.732938688285488*^9}, {3.7658938938315845`*^9, 3.7658938943980765`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"p2", "+", 
        RowBox[{"2", " ", "p2", " ", "\[Mu]"}]}], ")"}], "2"]}], "-", 
    RowBox[{"2", " ", "p2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]", "-", 
       RowBox[{"2", " ", "\[Mu]"}], "+", 
       RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "-", 
       RowBox[{"\[Gamma]", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]], " ", "\[Mu]"}], "+", 
       RowBox[{"x", " ", "\[Gamma]", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]], " ", "\[Mu]"}], "+", 
       RowBox[{"x", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "k", "+", 
          RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{"x", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Mu]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "k", "+", 
              RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], "+", 
          RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]], " ", "\[Mu]"}], 
          "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", "k"}], ")"}], " ", "k", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Gamma]"}], ")"}]}]}], ")"}], " ", 
           "\[Mu]"}]}], ")"}]}], "+", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"(", 
         RowBox[{"8", "-", 
          RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"9", "-", 
             RowBox[{"4", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "+", 
             RowBox[{"\[Gamma]", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{"k", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "2"}], "+", 
                   RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}]}], ")"}]}]}], 
            ")"}], " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7319079262496605`*^9, 3.7319079562496605`*^9}, 
   3.73190839281266*^9, 3.7319084436046605`*^9, 3.7319086196746607`*^9, 
   3.732938728954488*^9, 3.7341921364017487`*^9, 3.7341922599870214`*^9, 
   3.7344408141275277`*^9, 3.7400707799049196`*^9, 3.740381394448842*^9, 
   3.740568425873639*^9, 3.7407410415236206`*^9, 3.740801264818869*^9, 
   3.7408273640521345`*^9, 3.762844757720336*^9, {3.7658938857900643`*^9, 
   3.765893906482712*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    RowBox[{"\[Mu]", " ", 
     RowBox[{"(", 
      RowBox[{"4", "-", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "5"}], "+", 
          RowBox[{"4", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "+", 
          RowBox[{"\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "+", 
             RowBox[{"k", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", 
                RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}], ")"}]}]}], 
         ")"}], " ", "\[Mu]"}], "+", 
       RowBox[{"x", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "+", 
          RowBox[{"4", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]], " ", "\[Mu]"}], 
          "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                RowBox[{
                 SuperscriptBox["\[Gamma]", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Mu]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7319079262496605`*^9, 3.7319079562496605`*^9}, 
   3.73190839281266*^9, 3.7319084436046605`*^9, 3.7319086196746607`*^9, 
   3.732938728954488*^9, 3.7341921364017487`*^9, 3.7341922599870214`*^9, 
   3.7344408141275277`*^9, 3.7400707799049196`*^9, 3.740381394448842*^9, 
   3.740568425873639*^9, 3.7407410415236206`*^9, 3.740801264818869*^9, 
   3.7408273640521345`*^9, 3.762844757720336*^9, {3.7658938857900643`*^9, 
   3.7658939083776674`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"F2mix", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"PBCRmixvariable", "-", "PBE1mixvariable"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7319086319386606`*^9, 3.7319086423386602`*^9}, 
   3.7319087197146606`*^9, {3.7319104420746603`*^9, 3.73191044801066*^9}, {
   3.732938701300488*^9, 3.732938707172488*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "-", 
    RowBox[{"\[Mu]", " ", 
     RowBox[{"(", 
      RowBox[{"4", "-", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "5"}], "+", 
          RowBox[{"4", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "+", 
          RowBox[{"\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "+", 
             RowBox[{"k", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", 
                RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}], ")"}]}]}], 
         ")"}], " ", "\[Mu]"}], "+", 
       RowBox[{"x", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "+", 
          RowBox[{"4", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]], " ", "\[Mu]"}], 
          "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                RowBox[{
                 SuperscriptBox["\[Gamma]", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Mu]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"p2", "+", 
           RowBox[{"2", " ", "p2", " ", "\[Mu]"}]}], ")"}], "2"]}], "-", 
       RowBox[{"2", " ", "p2", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Mu]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Gamma]", "-", 
          RowBox[{"2", " ", "\[Mu]"}], "+", 
          RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "-", 
          RowBox[{"\[Gamma]", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]], " ", "\[Mu]"}], 
          "+", 
          RowBox[{"x", " ", "\[Gamma]", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]], " ", "\[Mu]"}], 
          "+", 
          RowBox[{"x", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "k", "+", 
             RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"x", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"2", " ", "\[Mu]"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "k", "+", 
                 RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], "+", 
             RowBox[{"2", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]], " ", "\[Mu]"}],
              "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "2"}], "+", "k"}], ")"}], " ", "k", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Gamma]"}], ")"}]}]}], ")"}], " ", 
              "\[Mu]"}]}], ")"}]}], "+", 
          RowBox[{"\[Mu]", " ", 
           RowBox[{"(", 
            RowBox[{"8", "-", 
             RowBox[{"2", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"9", "-", 
                RowBox[{"4", " ", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{"-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "+", 
                RowBox[{"\[Gamma]", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"k", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", "\[Gamma]"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    RowBox[{"k", " ", "\[Gamma]"}]}], ")"}]}]}], ")"}]}]}], 
               ")"}], " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.7319087172176604`*^9, 3.7319087208216605`*^9}, 
   3.73191044976066*^9, 3.732938734981488*^9, 3.7341921414204245`*^9, 
   3.734192268120577*^9, 3.7344408234152126`*^9, 3.740070788551916*^9, 
   3.740381402858203*^9, 3.7405684344855914`*^9, 3.7407410511381426`*^9, 
   3.7408012734148912`*^9, 3.740827372390355*^9, 3.762844764123209*^9, {
   3.7658938882575073`*^9, 3.7658939127061005`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Now", " ", "we", " ", "determine", " ", "the", " ", "optimal", " ", 
    "marginal", " ", "price", " ", "p2", " ", "which", " ", "must", " ", 
    "then", " ", "be", " ", "equal", " ", "to", " ", "the", " ", "p2switch", 
    " ", "and", " ", "this", " ", "equality", " ", "will", " ", "identify", 
    " ", "the", " ", "mixing", " ", 
    RowBox[{"probability", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"p2", "-", "c"}], ")"}], "q2"}], "+", "F2"}], "/.", 
        RowBox[{"F2", "\[Rule]", "F2mix"}]}], "/.", "qNE"}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1NoRat"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"p2", "-", "c"}], ")"}], "q2"}], "+", "F2"}], "/.", 
      RowBox[{"F2", "\[Rule]", "F2mix"}]}], "/.", 
     RowBox[{"q2", "\[Rule]", "k"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P2mix", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"x", " ", 
        RowBox[{"(", "%", ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "x"}], ")"}], 
        RowBox[{"(", "%%", ")"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"P2mix", ",", "p2"}], "]"}], "\[Equal]", "0"}], ",", "p2"}], 
      "]"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2switch", "==", 
     RowBox[{"%", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"xequ", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{"%", ",", "x"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.72949697479908*^9, 3.7294970803278513`*^9}, {
   3.729497147395362*^9, 3.72949716049651*^9}, {3.7294978146997375`*^9, 
   3.7294978172268887`*^9}, {3.7318239840706606`*^9, 
   3.7318239956376605`*^9}, {3.7318241011106606`*^9, 
   3.7318241039016604`*^9}, {3.73182418314966*^9, 3.73182418770866*^9}, {
   3.7318242651576605`*^9, 3.7318242667966604`*^9}, {3.7319077903066607`*^9, 
   3.7319078451476603`*^9}, {3.7319086546276608`*^9, 
   3.7319086622836604`*^9}, {3.7319087351626606`*^9, 
   3.7319087448756604`*^9}, {3.7319113861066604`*^9, 
   3.7319113893466606`*^9}, {3.732938723789488*^9, 3.732938759737488*^9}, 
   3.7329388199204884`*^9, {3.732938879025488*^9, 3.732938899016488*^9}, {
   3.7341901089702253`*^9, 3.734190109494878*^9}, {3.734193511611206*^9, 
   3.7341935315197697`*^9}, {3.765893917238003*^9, 3.7658939260204897`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Mu]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}], "+", 
    RowBox[{
     SuperscriptBox["\[Gamma]", "2"], " ", "\[Mu]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], ")"}], " ", 
        "\[Mu]"}]}], ")"}]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"k", " ", 
     SuperscriptBox["\[Gamma]", "3"], " ", "\[Mu]", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}], "+", 
    RowBox[{"\[Gamma]", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "c", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c", "-", "k"}], ")"}], " ", "\[Mu]"}]}], 
      ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[Gamma]", "2"], " ", "\[Mu]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], ")"}], " ", 
        "\[Mu]"}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.732938820384488*^9, {3.732938888822488*^9, 3.732938906174488*^9}, 
   3.734192275017973*^9, {3.7341935196573524`*^9, 3.734193544826171*^9}, 
   3.7344408379027205`*^9, 3.740070800994914*^9, 3.7403814149503613`*^9, 
   3.740568446685015*^9, 3.740741064704499*^9, 3.740801286157254*^9, 
   3.740827384746472*^9, 3.7628447742102327`*^9, 3.7658939395981255`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Plotting", " ", "the", " ", "equilibrium", " ", "probability", " ", 
    "showing", " ", "that", " ", "it", " ", "is", " ", "qualitatively", " ", 
    "similar", " ", "to", " ", "the", " ", "linear", " ", "pricing", " ", 
    "case"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"xequ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Thick", ",", "Black"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thin", ",", "Red"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"c", ",", "0.2"}], "}"}], ",", "0", ",", 
       RowBox[{"1", "-", "\[Gamma]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "1"}], "}"}], ",", "0.1", ",", "10"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7294972537947173`*^9, 3.7294972942375402`*^9}, {
  3.7319107641146603`*^9, 3.73191077974666*^9}, {3.732938969161488*^9, 
  3.732939001504488*^9}, {3.765893948404605*^9, 3.765893956689438*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0.122, $CellContext`\[Gamma]$$ = 
    0.5, $CellContext`\[Mu]$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`c$$], 0.2}, 0, 
      Dynamic[1 - $CellContext`\[Gamma]$$]}, {{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`\[Mu]$$], 1}, 0.1, 10}}, Typeset`size$$ = {
    432., {131., 139.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`c$757418$$ = 
    0, $CellContext`\[Gamma]$757419$$ = 0, $CellContext`\[Mu]$757420$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0.2, $CellContext`\[Gamma]$$ = 
        0.5, $CellContext`\[Mu]$$ = 1}, "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$757418$$, 0], 
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$757419$$, 0], 
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$757420$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[((((-1 + $CellContext`c$$) $CellContext`\[Gamma]$$) (
            1 + $CellContext`\[Mu]$$)) (1 + 
           2 $CellContext`\[Mu]$$) - (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
           Rational[1, 2]) (1 + 
           2 $CellContext`\[Mu]$$)^2 + ($CellContext`\[Gamma]$$^2 \
$CellContext`\[Mu]$$) (-1 + (-2 + ((-(-1 + $CellContext`k $CellContext`\
\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[
               1, 2]) $CellContext`\[Mu]$$))/((($CellContext`k $CellContext`\
\[Gamma]$$^3) $CellContext`\[Mu]$$) (1 + 
          
          2 $CellContext`\[Mu]$$) - (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
          Rational[1, 2]) (1 + 
          2 $CellContext`\[Mu]$$)^2 + ($CellContext`\[Gamma]$$ (1 + 
           2 $CellContext`\[Mu]$$)) (-1 + $CellContext`c$$ + (-1 + \
$CellContext`c$$ - $CellContext`k) $CellContext`\[Mu]$$) + ($CellContext`\
\[Gamma]$$^2 $CellContext`\[Mu]$$) (-1 + (-2 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
             Rational[1, 2]) $CellContext`\[Mu]$$)), {$CellContext`k, 0, 1}, 
        PlotRange -> {-1, 2}, PlotStyle -> {{Thick, Black}, {Thin, Red}}], 
      "Specifications" :> {{{$CellContext`c$$, 0.2}, 0, 
         Dynamic[
         1 - $CellContext`\[Gamma]$$]}, {{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`\[Mu]$$, 1}, 0.1, 10}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{493., {223., 230.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.729497266847067*^9, 3.729497294455936*^9}, 
   3.729497871170452*^9, 3.7318237758686604`*^9, 3.73191078060266*^9, 
   3.7319108107136602`*^9, 3.732939002539488*^9, 3.7341922825385666`*^9, 
   3.7344408449885545`*^9, 3.740070808008486*^9, 3.7403814224767466`*^9, 
   3.740568454488511*^9, 3.740741064858884*^9, 3.740801287113776*^9, 
   3.7408273856049023`*^9, 3.762844774411731*^9, 3.7658939594201355`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "condition", " ", "for", " ", "existing", " ", "mixed", " ", 
    "strategy", " ", "is", " ", "then", " ", "as", " ", "usual", " ", 
    "determined", " ", "in", " ", "the", " ", "following"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"ckswitchmix", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"xequ", "\[Equal]", "0"}], ",", "c"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7294973520146294`*^9, 3.729497387845941*^9}, {
  3.7294975436439466`*^9, 3.729497549259839*^9}, {3.7319108786906605`*^9, 
  3.7319109012186604`*^9}, {3.7319109378506603`*^9, 3.7319109695866604`*^9}, {
  3.7319111186346607`*^9, 3.7319111528356605`*^9}, {3.7319112443546605`*^9, 
  3.7319113077716603`*^9}, {3.732939333536488*^9, 3.732939406687488*^9}, {
  3.765893969533056*^9, 3.765893977068952*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "+", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"]}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], ")"}], " ", 
          "\[Mu]"}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"\[Gamma]", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"3", " ", "\[Mu]"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.7294973612646523`*^9, 3.7294973920326605`*^9, {3.7294975443303337`*^9, 
   3.7294975495562334`*^9}, 3.7294978812810574`*^9, 3.7318238085556602`*^9, 
   3.73190475364266*^9, {3.7319108756376605`*^9, 3.7319108987926607`*^9}, {
   3.7319109344716606`*^9, 3.7319109700456605`*^9}, {3.7319111234756603`*^9, 
   3.7319111534926605`*^9}, {3.7319112689786606`*^9, 
   3.7319113086406603`*^9}, {3.732939401338488*^9, 3.732939406928488*^9}, 
   3.734192284087371*^9, 3.734440846531691*^9, 3.740070809343994*^9, 
   3.7403814240970874`*^9, 3.7405684565128946`*^9, 3.740741066150322*^9, 
   3.740801288506989*^9, 3.7408273868291225`*^9, 3.762844775603505*^9, 
   3.7658939790287104`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Then", " ", "the", " ", "consumer", " ", "surplus", " ", "in", " ", "the", 
   " ", "mixed", " ", "strategy", " ", "equilibrium", " ", "is", " ", "as", 
   " ", "follows"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7318297348426604`*^9, 3.73182975256466*^9}, {
  3.7319040896346607`*^9, 3.7319040914106607`*^9}, {3.732939473070488*^9, 
  3.7329395077584877`*^9}, {3.732939562686488*^9, 3.732939570550488*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{"v", "-", 
    RowBox[{"p1", " ", "q1"}], "-", 
    RowBox[{"p2", " ", "q2"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"%", "/.", 
      RowBox[{"x", "->", "xequ"}]}], "/.", "qNE"}], "/.", 
    RowBox[{"p1", "\[Rule]", "p1NoRat"}]}], "/.", 
   RowBox[{"p2", "->", "p2switch"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"%%", "/.", 
      RowBox[{"x", "->", "xequ"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"q1", "->", "q1rationed"}], ",", 
       RowBox[{"q2", "\[Rule]", "k"}]}], "}"}]}], "/.", 
    RowBox[{"p2", "->", "p2switch"}]}], "/.", 
   RowBox[{"p1", "->", "BR1rationed"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"VCRmix", "=", " ", 
   RowBox[{
    RowBox[{"xequ", " ", "%"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "xequ"}], ")"}], "%%"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7318298834936604`*^9, 3.7318299290616603`*^9}, 
   3.7318299822776604`*^9, 3.7318316851336603`*^9, 3.7319044959796605`*^9, 
   3.7319113146586604`*^9, {3.7319120407236605`*^9, 3.7319120710356607`*^9}, {
   3.73191212856266*^9, 3.73191214659566*^9}, {3.73191217988566*^9, 
   3.7319122471786604`*^9}, {3.7319122775636606`*^9, 
   3.7319122793706603`*^9}, {3.7319123308436604`*^9, 
   3.7319123318746605`*^9}, {3.73191245005066*^9, 3.7319124850516605`*^9}, 
   3.7319125323236604`*^9, {3.7319125671746607`*^9, 3.7319125899156604`*^9}, {
   3.73191270430766*^9, 3.7319127093986607`*^9}, {3.732944357954488*^9, 
   3.732944369862488*^9}, {3.765894026421914*^9, 3.765894026958465*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Exclusive contracts permitted", "Subsubsection",
 CellChangeTimes->{{3.732936296190488*^9, 3.732936301363488*^9}, {
  3.7658941380702343`*^9, 3.7658941441329837`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Equilibria", " ", "with", " ", "exclusive", " ", "representation"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "As", " ", "in", " ", "the", " ", "paper", " ", "we", " ", "assume", " ", 
    "that", " ", "firm", " ", "2", " ", "in", " ", "exclusivity", " ", 
    "would", " ", "always", " ", "be", " ", "capacity", " ", "constrained", 
    " ", "and", " ", "makes", " ", "the", " ", "competitive", " ", 
    RowBox[{"offer", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"p2Eequ", "=", "c"}], ";", " ", 
    RowBox[{"F2Eequ", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"ProfitBE2k", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ve2", "-", 
       RowBox[{"q2", " ", "p2"}], "-", "F2"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"q2", "\[Rule]", "k"}], ",", 
        RowBox[{"p2", "\[Rule]", "c"}], ",", 
        RowBox[{"F2", "\[Rule]", "0"}]}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6618423547700977`*^9, 3.661842402164837*^9}, {
   3.661842693784996*^9, 3.6618427337959967`*^9}, 3.6618427666382804`*^9, {
   3.6620381379328337`*^9, 3.662038276523689*^9}, 3.662038391813251*^9, {
   3.6620391322414565`*^9, 3.6620391935505877`*^9}, {3.662040390440967*^9, 
   3.662040415806571*^9}, {3.6620404782750435`*^9, 3.6620404816592965`*^9}, {
   3.6620405558322625`*^9, 3.6620405593496094`*^9}, 3.662097377052343*^9, {
   3.665893096333604*^9, 3.665893202001292*^9}, {3.6658935941091976`*^9, 
   3.665893615549497*^9}, {3.667031878723155*^9, 3.66703189758004*^9}, {
   3.6945033070954027`*^9, 3.6945038254914026`*^9}, {3.6945039378094025`*^9, 
   3.6945039505284023`*^9}, {3.6945039845258026`*^9, 3.694503985071802*^9}, {
   3.6945040383634024`*^9, 3.6945040426534023`*^9}, {3.6945042502510023`*^9, 
   3.6945042620602026`*^9}, {3.6945117169787583`*^9, 3.694511717228769*^9}, {
   3.7155753080474334`*^9, 3.7155753080474334`*^9}, 3.7155763693512335`*^9, {
   3.7155802858312335`*^9, 3.7155802963022337`*^9}, {3.7269852700769143`*^9, 
   3.7269852892805147`*^9}, 3.7269853328357143`*^9, {3.72726386679694*^9, 
   3.7272638669250593`*^9}, {3.732939857767488*^9, 3.732939939345488*^9}, {
   3.7658941506944656`*^9, 3.765894159448039*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.732939935354488*^9, 3.7344408624569845`*^9, 3.7400708263051004`*^9, 
   3.7403814405618744`*^9, 3.740568473072959*^9, 3.7407410824858813`*^9, 
   3.7408013045987835`*^9, 3.7408274028427315`*^9, 3.7628448230336494`*^9, {
   3.7658941547526016`*^9, 3.765894159919778*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"The", " ", "unconstrained", " ", "firm", " ", 
    RowBox[{"1", "'"}], "s", " ", "contract"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ProfitBE1", "-", "ProfitBE2k"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmpF1m", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"%", "\[Equal]", "0"}], ",", "F1"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Profit1E", "/.", 
     RowBox[{"F1", "\[Rule]", 
      RowBox[{"tmpF1m", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1m", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"F1m", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"tmpF1m", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1m"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.726916412930395*^9, 3.726916417770395*^9}, {
  3.732939949113488*^9, 3.7329399603614883`*^9}}],

Cell[BoxData[
 FractionBox["\[Mu]", 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{3.726916434216795*^9, 3.726985360104514*^9, 
  3.727162377159439*^9, 3.727171873595762*^9, 3.7272638852338305`*^9, 
  3.732939960731488*^9, 3.734440862538199*^9, 3.7400708263702726`*^9, 
  3.7403814406310234`*^9, 3.7405684731642013`*^9, 3.7407410826217427`*^9, 
  3.740801304791298*^9, 3.740827402920921*^9, 3.7628448231313877`*^9, 
  3.7658941695749474`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"k", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}], "+", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Mu]"}], ")"}], "2"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]]}], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.726916434216795*^9, 3.726985360104514*^9, 
  3.727162377159439*^9, 3.727171873595762*^9, 3.7272638852338305`*^9, 
  3.732939960731488*^9, 3.734440862538199*^9, 3.7400708263702726`*^9, 
  3.7403814406310234`*^9, 3.7405684731642013`*^9, 3.7407410826217427`*^9, 
  3.740801304791298*^9, 3.740827402920921*^9, 3.7628448231313877`*^9, 
  3.765894169599913*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"The", " ", "fixed", " ", "fee", " ", "is", " ", "always", " ", 
    RowBox[{"positive", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"F1m", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "2"}], "}"}], ",", "0", ",", "5"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7269871758785915`*^9, 3.726987223942191*^9}, {
  3.727162819276439*^9, 3.727162853888439*^9}, {3.7272643168197026`*^9, 
  3.727264322182141*^9}, {3.732939978896488*^9, 3.732940013992488*^9}, {
  3.765894183450797*^9, 3.765894188055524*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Mu]$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 2}, 0, 5}}, Typeset`size$$ = {
    432., {212., 220.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Mu]$767242$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Mu]$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$767242$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ContourPlot[(Rational[1, 2]/(
         1 + $CellContext`\[Mu]$$)) ($CellContext`k (-2 + 
           2 $CellContext`c + $CellContext`k) + (1 + $CellContext`\[Mu]$$)^2 (
            1 + 2 $CellContext`\[Mu]$$)^(-2)), {$CellContext`k, 0, 
         1}, {$CellContext`c, 0, 1}, Contours -> {0}], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 2}, 0, 5}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{493., {269., 276.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.726987224581791*^9, 3.727162810746439*^9, 
  3.727162855862439*^9, 3.727171874772046*^9, 3.727264322582363*^9, 
  3.7329400147834883`*^9, 3.734440862857048*^9, 3.740070826696141*^9, 
  3.740381440971932*^9, 3.74056847353423*^9, 3.740741083029004*^9, 
  3.7408013053177247`*^9, 3.7408274034573536`*^9, 3.762844823364764*^9, 
  3.765894188950124*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "In", " ", "the", " ", "black", " ", "area", " ", "it", " ", "must", " ", 
     "be", " ", "F1"}], "=", 
    RowBox[{
    "0", " ", "and", " ", "p1", " ", "as", " ", "with", " ", "linear", " ", 
     RowBox[{"pricing", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ProfitBE1", "-", "ProfitBE2k"}], "/.", 
     RowBox[{"F1", "\[Rule]", "0"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"%", "\[Equal]", "0"}], ",", "p1"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1Eequcorn", "=", 
    RowBox[{"%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"F1Eequbcorn", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Note", " ", "that", " ", "this", " ", "implies", " ", "that", " ", 
     "linear", " ", "pricing", " ", "realize", " ", "even", " ", "for", " ", 
     "finite", " ", 
     RowBox[{"\[Mu]", "."}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.726916733653795*^9, 3.726916789323395*^9}, {
  3.7329400223504877`*^9, 3.732940086822488*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", 
     RowBox[{"1", "-", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "k"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", 
     RowBox[{"1", "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "k"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.726916754714595*^9, 3.7269167981483946`*^9}, 
   3.7269853722725143`*^9, 3.727162692562439*^9, 3.7271718747971177`*^9, 
   3.7272643286360755`*^9, 3.732940046061488*^9, 3.734440862932247*^9, 
   3.7400708269368134`*^9, 3.7403814411323586`*^9, 3.740568473742775*^9, 
   3.7407410832470694`*^9, 3.7408013054420576`*^9, 3.740827403668907*^9, 
   3.762844823472476*^9, 3.765894196992572*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", "k"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.726916754714595*^9, 3.7269167981483946`*^9}, 
   3.7269853722725143`*^9, 3.727162692562439*^9, 3.7271718747971177`*^9, 
   3.7272643286360755`*^9, 3.732940046061488*^9, 3.734440862932247*^9, 
   3.7400708269368134`*^9, 3.7403814411323586`*^9, 3.740568473742775*^9, 
   3.7407410832470694`*^9, 3.7408013054420576`*^9, 3.740827403668907*^9, 
   3.762844823472476*^9, 3.7658941969955997`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ExclConstr", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"F1m", "\[Equal]", "0"}], ",", "c"}], "]"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{"%", ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Mu]", ",", "2"}], "}"}], ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7269877856045914`*^9, 3.7269877973201914`*^9}, {
  3.726987939404991*^9, 3.7269879656129913`*^9}, {3.7272644476353064`*^9, 
  3.727264506972361*^9}, {3.732940102730488*^9, 3.7329401355934877`*^9}, {
  3.762845374626377*^9, 3.7628453865474935`*^9}, {3.765894217512717*^9, 
  3.7658942255082903`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Mu]"}], ")"}], "2"], "-", 
    RowBox[{"2", " ", "k", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"k", "+", 
       RowBox[{"2", " ", "k", " ", "\[Mu]"}]}], ")"}], "2"]}], 
   RowBox[{"2", " ", "k", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.7269877976789913`*^9, {3.726987942228591*^9, 3.726987968218191*^9}, 
   3.7271718748653636`*^9, {3.7272644713472867`*^9, 3.7272645073530025`*^9}, {
   3.7329401071664877`*^9, 3.7329401363614883`*^9}, 3.7344408631438556`*^9, 
   3.7400708272456007`*^9, 3.74038144140709*^9, 3.7405684741588926`*^9, 
   3.7407410836145773`*^9, 3.7408013057989736`*^9, 3.7408274062196903`*^9, 
   3.762844823677926*^9, 3.7628453893340397`*^9, {3.7658942210452294`*^9, 
   3.7658942273085203`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0.2, $CellContext`\[Mu]$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 2}, 0, 100}, {{
       Hold[$CellContext`c$$], 0.2}, 0, 1}}, Typeset`size$$ = {
    432., {125., 133.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Mu]$768874$$ = 
    0, $CellContext`c$768875$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0.2, $CellContext`\[Mu]$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$768874$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$768875$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[((Rational[-1, 2]/$CellContext`k) (1 + 
           2 $CellContext`\[Mu]$$)^(-2)) ((1 + $CellContext`\[Mu]$$)^2 - (
          2 $CellContext`k) (1 + 
           2 $CellContext`\[Mu]$$)^2 + ($CellContext`k + (
             2 $CellContext`k) $CellContext`\[Mu]$$)^2), {$CellContext`k, 0, 
         1}], "Specifications" :> {{{$CellContext`\[Mu]$$, 2}, 0, 
         100}, {{$CellContext`c$$, 0.2}, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{493., {200., 207.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7269877976789913`*^9, {3.726987942228591*^9, 3.726987968218191*^9}, 
   3.7271718748653636`*^9, {3.7272644713472867`*^9, 3.7272645073530025`*^9}, {
   3.7329401071664877`*^9, 3.7329401363614883`*^9}, 3.7344408631438556`*^9, 
   3.7400708272456007`*^9, 3.74038144140709*^9, 3.7405684741588926`*^9, 
   3.7407410836145773`*^9, 3.7408013057989736`*^9, 3.7408274062196903`*^9, 
   3.762844823677926*^9, 3.7628453893340397`*^9, {3.7658942210452294`*^9, 
   3.7658942273633623`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Welfare, Test and figure 4", "Subsubsection",
 CellChangeTimes->{{3.732936296190488*^9, 3.732936301363488*^9}, {
  3.7658941380702343`*^9, 3.7658941441329837`*^9}, {3.765894256808566*^9, 
  3.765894259463458*^9}, {3.7659678690047426`*^9, 3.765967871872074*^9}, {
  3.765973737418276*^9, 3.765973743445141*^9}, {3.767531007414965*^9, 
  3.7675310076682916`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"v", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"p2", " ", "q2"}]}], "/.", "qNE"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"p1", "\[Rule]", "p1NE"}], ",", 
      RowBox[{"p2", "\[Rule]", "p2NE"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ve1", "-", 
      RowBox[{"p1", " ", "q1"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"q1", "\[Rule]", "qe1"}], "}"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{"p1", "\[Rule]", "p1Eequcorn"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "-", "%%"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cWelfPure", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"%", "\[Equal]", "0"}], ",", "c"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.727172747597912*^9, 3.7271727486975374`*^9}, {
   3.7271727915501356`*^9, 3.727172832403145*^9}, {3.7271728736309843`*^9, 
   3.727173007688361*^9}, 3.7271732416050005`*^9, 3.7272645246798487`*^9, {
   3.7272645759092774`*^9, 3.727264578398803*^9}, {3.732944509752488*^9, 
   3.732944510438488*^9}, {3.732944566096488*^9, 3.732944566713488*^9}, {
   3.7659705153475714`*^9, 3.765970581702071*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"cWelfPure", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cWelfPure", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"%", ",", "%%"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Mu]", ",", "1"}], "}"}], ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.3"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7271730222271967`*^9, 3.7271731798797474`*^9}, {
  3.72717323823689*^9, 3.727173239259487*^9}, {3.727264559088005*^9, 
  3.727264561846052*^9}, {3.732944514855488*^9, 3.732944534623488*^9}, {
  3.732944571106488*^9, 3.732944572728488*^9}, {3.765970527270667*^9, 
  3.7659705948807735`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.724, $CellContext`\[Mu]$$ = 
    90.80000000000001, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 1}, 0, 100}, {{
       Hold[$CellContext`\[Gamma]$$], 0.3}, 0, 1}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Mu]$803217$$ = 
    0, $CellContext`\[Gamma]$803218$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`\[Gamma]$$ = 0.3, $CellContext`\[Mu]$$ = 
        1}, "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$803217$$, 0], 
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$803218$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{(Rational[1, 2]/(-1 - 
          6 $CellContext`\[Mu]$$ + (
            2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
          13 $CellContext`\[Mu]$$^2 + (
            7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
          12 $CellContext`\[Mu]$$^3 + (
            8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
          4 $CellContext`\[Mu]$$^4 + (
            3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) (-2 + 
          2 $CellContext`k + 
          2 $CellContext`\[Gamma]$$ - (
           2 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
          12 $CellContext`\[Mu]$$ + (
            16 $CellContext`k) $CellContext`\[Mu]$$ + (
            8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
            4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
            16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ - 
          26 $CellContext`\[Mu]$$^2 + (
            48 $CellContext`k) $CellContext`\[Mu]$$^2 + (
            10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
            14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
            52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + (
            2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
             4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - 
          24 $CellContext`\[Mu]$$^3 + (
            64 $CellContext`k) $CellContext`\[Mu]$$^3 + (
            4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
            16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
            80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + (
            4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
             16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - 
          8 $CellContext`\[Mu]$$^4 + (
            32 $CellContext`k) $CellContext`\[Mu]$$^4 + (
            6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
            48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + (
            2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
             18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
            2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4 + ((2 - 2 $CellContext`k - 
              2 $CellContext`\[Gamma]$$ + (
                2 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
              12 $CellContext`\[Mu]$$ - (
               16 $CellContext`k) $CellContext`\[Mu]$$ - (
               8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ - (
               4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + ((
                 16 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ + 26 $CellContext`\[Mu]$$^2 - (
               48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
               10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (
               14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + ((
                 52 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 - (2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 - ((
                4 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^2 + 24 $CellContext`\[Mu]$$^3 - (
               64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
               4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 - (
               16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + ((
                 80 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 - (4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 - ((
                16 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^3 + 8 $CellContext`\[Mu]$$^4 - (
               32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
               6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + ((
                 48 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^4 - (2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 - ((
                18 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^4 + ((
                 2 $CellContext`k) $CellContext`\[Gamma]$$^6) $CellContext`\
\[Mu]$$^4)^2 - (
             4 (-1 - 6 $CellContext`\[Mu]$$ + (
                2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
              13 $CellContext`\[Mu]$$^2 + (
                7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
              12 $CellContext`\[Mu]$$^3 + (
                8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
              4 $CellContext`\[Mu]$$^4 + (
                3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) (-2 + 
             2 $CellContext`k - $CellContext`k^2 + 
             2 $CellContext`\[Gamma]$$ - (
              2 $CellContext`k) $CellContext`\[Gamma]$$^2 + $CellContext`k^2 \
$CellContext`\[Gamma]$$^2 - 
             12 $CellContext`\[Mu]$$ + (
               16 $CellContext`k) $CellContext`\[Mu]$$ - (
              8 $CellContext`k^2) $CellContext`\[Mu]$$ + (
               8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
               4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
               16 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ + ((
                8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ - 26 $CellContext`\[Mu]$$^2 + (
               48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
              24 $CellContext`k^2) $CellContext`\[Mu]$$^2 + (
               10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
               14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
               
               52 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 + ((
                26 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 + (2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
                4 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^2 - ((
               2 $CellContext`k^2) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^2 - 24 $CellContext`\[Mu]$$^3 + (
               64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
              32 $CellContext`k^2) $CellContext`\[Mu]$$^3 + (
               4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
               16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
               80 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 + ((
                40 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 + (4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
                16 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^3 - ((
               8 $CellContext`k^2) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^3 - 8 $CellContext`\[Mu]$$^4 + (
               32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
              16 $CellContext`k^2) $CellContext`\[Mu]$$^4 + (
               6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
               48 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^4 + ((
                24 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^4 + (2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
                18 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^4 - ((
               9 $CellContext`k^2) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^4 - ((
               2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4 + ($CellContext`k^2 $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4))^Rational[1, 2]), (Rational[1, 2]/(-1 - 
          6 $CellContext`\[Mu]$$ + (
            2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
          13 $CellContext`\[Mu]$$^2 + (
            7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
          12 $CellContext`\[Mu]$$^3 + (
            8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
          4 $CellContext`\[Mu]$$^4 + (
            3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) (-2 + 
          2 $CellContext`k + 
          2 $CellContext`\[Gamma]$$ - (
           2 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
          12 $CellContext`\[Mu]$$ + (
            16 $CellContext`k) $CellContext`\[Mu]$$ + (
            8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
            4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
            16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ - 
          26 $CellContext`\[Mu]$$^2 + (
            48 $CellContext`k) $CellContext`\[Mu]$$^2 + (
            10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
            14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
            52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + (
            2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
             4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - 
          24 $CellContext`\[Mu]$$^3 + (
            64 $CellContext`k) $CellContext`\[Mu]$$^3 + (
            4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
            16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
            80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + (
            4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
             16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - 
          8 $CellContext`\[Mu]$$^4 + (
            32 $CellContext`k) $CellContext`\[Mu]$$^4 + (
            6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
            48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + (
            2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
             18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
            2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4 - ((2 - 2 $CellContext`k - 
             2 $CellContext`\[Gamma]$$ + (
               2 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
             12 $CellContext`\[Mu]$$ - (
              16 $CellContext`k) $CellContext`\[Mu]$$ - (
              8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ - (
              4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + ((
                
                16 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ + 26 $CellContext`\[Mu]$$^2 - (
              48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
              10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (
              14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + ((
                52 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 - (
              2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 - ((
               4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 + 
             24 $CellContext`\[Mu]$$^3 - (
              64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
              4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 - (
              16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + ((
                80 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 - (
              4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 - ((
               16 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^3 + 8 $CellContext`\[Mu]$$^4 - (
              32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
              6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + ((
                48 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^4 - (
              2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 - ((
               18 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^4 + ((
                2 $CellContext`k) $CellContext`\[Gamma]$$^6) $CellContext`\
\[Mu]$$^4)^2 - (
            4 (-1 - 6 $CellContext`\[Mu]$$ + (
               2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
             13 $CellContext`\[Mu]$$^2 + (
               7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
             12 $CellContext`\[Mu]$$^3 + (
               8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
             4 $CellContext`\[Mu]$$^4 + (
               3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) (-2 + 
            2 $CellContext`k - $CellContext`k^2 + 
            2 $CellContext`\[Gamma]$$ - (
             2 $CellContext`k) $CellContext`\[Gamma]$$^2 + $CellContext`k^2 \
$CellContext`\[Gamma]$$^2 - 
            12 $CellContext`\[Mu]$$ + (
              16 $CellContext`k) $CellContext`\[Mu]$$ - (
             8 $CellContext`k^2) $CellContext`\[Mu]$$ + (
              8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
              4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
              16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + ((
               8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ - 26 $CellContext`\[Mu]$$^2 + (
              48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
             24 $CellContext`k^2) $CellContext`\[Mu]$$^2 + (
              10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
              14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
              52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + ((
               26 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 + (
              2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
               4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - ((
              2 $CellContext`k^2) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^2 - 24 $CellContext`\[Mu]$$^3 + (
              64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
             32 $CellContext`k^2) $CellContext`\[Mu]$$^3 + (
              4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
              16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
              80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + ((
               40 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 + (
              4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
               16 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^3 - ((
              8 $CellContext`k^2) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^3 - 8 $CellContext`\[Mu]$$^4 + (
              32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
             16 $CellContext`k^2) $CellContext`\[Mu]$$^4 + (
              6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
              48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + ((
               24 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^4 + (
              2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
               18 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^4 - ((
              9 $CellContext`k^2) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^4 - ((
              2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4 + ($CellContext`k^2 $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4))^Rational[1, 2])}, {$CellContext`k, 0, 1}, 
        PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 1}, 0, 
         100}, {{$CellContext`\[Gamma]$$, 0.3}, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {220., 227.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.727173063429511*^9, 3.7271731801464643`*^9}, 
   3.7271732541154847`*^9, 3.7272645853779373`*^9, 3.732943156063488*^9, {
   3.732944519984488*^9, 3.732944535073488*^9}, 3.732944575022488*^9, 
   3.7344408646016846`*^9, 3.7400708287586603`*^9, 3.7403814429472246`*^9, 
   3.7405684757721725`*^9, 3.7407410853472557`*^9, 3.740801307393217*^9, 
   3.7408274076044035`*^9, 3.7628447885389085`*^9, 3.7628448416877575`*^9, {
   3.765970542724347*^9, 3.765970595351549*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"cWelfaremix", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"VCRmix", "-", "Ve2"}], "\[Equal]", "0"}], ",", "c"}], "]"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7319128285466604`*^9, 3.7319128728026605`*^9}, {
  3.732943564821488*^9, 3.732943565955488*^9}, {3.7659706554797044`*^9, 
  3.765970673851562*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Now", " ", "an", " ", "analysis", " ", "of", " ", "Figure", " ", "1"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ckswitchmix", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cWelfaremix", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cWelfPure", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", "%%", ",", "%%%", ",", 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0.001", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "Magenta", ",", "Blue", ",", "Green", ",", " ", "Black", ",", 
          "Thick", ",", 
          RowBox[{"{", 
           RowBox[{"Green", ",", " ", "Dotted"}], "}"}]}], "}"}]}]}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.6"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "100"}], "}"}], ",", "0", ",", "100"}], "}"}]}],
     "]"}]}]}]], "Input",
 CellChangeTimes->{{3.732943889160488*^9, 3.732943895473488*^9}, {
  3.732943936337488*^9, 3.732943943806488*^9}, {3.732943995297488*^9, 
  3.732944010113488*^9}, {3.7329445870264883`*^9, 3.732944587711488*^9}, {
  3.732944659961488*^9, 3.732944753904488*^9}, {3.7403837541041603`*^9, 
  3.7403838131662283`*^9}, {3.740383856410266*^9, 3.7403840562577047`*^9}, {
  3.7403842391697707`*^9, 3.740384239303125*^9}, {3.7405689507375755`*^9, 
  3.7405689563214664`*^9}, {3.7408041515620527`*^9, 3.7408041532966995`*^9}, {
  3.7659706792331533`*^9, 3.765970702034154*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.6, $CellContext`\[Mu]$$ = 
    100, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.6}, 0, 1}, {{
       Hold[$CellContext`\[Mu]$$], 100}, 0, 100}}, Typeset`size$$ = {
    450., {145., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$804001$$ = 
    0, $CellContext`\[Mu]$804002$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`\[Gamma]$$ = 0.6, $CellContext`\[Mu]$$ = 
        100}, "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$804001$$, 0], 
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$804002$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{(Rational[1, 2]/(-1 - 
          6 $CellContext`\[Mu]$$ + (
            2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
          13 $CellContext`\[Mu]$$^2 + (
            7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
          12 $CellContext`\[Mu]$$^3 + (
            8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
          4 $CellContext`\[Mu]$$^4 + (
            3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) (-2 + 
          2 $CellContext`k + 
          2 $CellContext`\[Gamma]$$ - (
           2 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
          12 $CellContext`\[Mu]$$ + (
            16 $CellContext`k) $CellContext`\[Mu]$$ + (
            8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
            4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
            16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ - 
          26 $CellContext`\[Mu]$$^2 + (
            48 $CellContext`k) $CellContext`\[Mu]$$^2 + (
            10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
            14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
            52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + (
            2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
             4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - 
          24 $CellContext`\[Mu]$$^3 + (
            64 $CellContext`k) $CellContext`\[Mu]$$^3 + (
            4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
            16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
            80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + (
            4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
             16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - 
          8 $CellContext`\[Mu]$$^4 + (
            32 $CellContext`k) $CellContext`\[Mu]$$^4 + (
            6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
            48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + (
            2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
             18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
            2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4 - ((2 - 2 $CellContext`k - 
             2 $CellContext`\[Gamma]$$ + (
               2 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
             12 $CellContext`\[Mu]$$ - (
              16 $CellContext`k) $CellContext`\[Mu]$$ - (
              8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ - (
              4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + ((
                16 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ + 26 $CellContext`\[Mu]$$^2 - (
              48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
              10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (
              14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + ((
                52 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 - (
              2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 - ((
               4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 + 
             24 $CellContext`\[Mu]$$^3 - (
              64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
              4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 - (
              16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + ((
                80 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 - (
              4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 - ((
               16 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^3 + 8 $CellContext`\[Mu]$$^4 - (
              32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
              6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + ((
                48 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^4 - (
              2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 - ((
               18 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^4 + ((
                2 $CellContext`k) $CellContext`\[Gamma]$$^6) $CellContext`\
\[Mu]$$^4)^2 - (
            4 (-1 - 6 $CellContext`\[Mu]$$ + (
               2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
             13 $CellContext`\[Mu]$$^2 + (
               7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
             12 $CellContext`\[Mu]$$^3 + (
               8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
             4 $CellContext`\[Mu]$$^4 + (
               3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) (-2 + 
            2 $CellContext`k - $CellContext`k^2 + 
            2 $CellContext`\[Gamma]$$ - (
             2 $CellContext`k) $CellContext`\[Gamma]$$^2 + $CellContext`k^2 \
$CellContext`\[Gamma]$$^2 - 
            12 $CellContext`\[Mu]$$ + (
              16 $CellContext`k) $CellContext`\[Mu]$$ - (
             8 $CellContext`k^2) $CellContext`\[Mu]$$ + (
              8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
              4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
              16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + ((
               8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ - 26 $CellContext`\[Mu]$$^2 + (
              48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
             24 $CellContext`k^2) $CellContext`\[Mu]$$^2 + (
              10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
              14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
              
              52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + ((
               26 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 + (
              2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
               4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - ((
              2 $CellContext`k^2) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^2 - 24 $CellContext`\[Mu]$$^3 + (
              64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
             32 $CellContext`k^2) $CellContext`\[Mu]$$^3 + (
              4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
              16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
              80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + ((
               40 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 + (
              4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
               16 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^3 - ((
              8 $CellContext`k^2) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^3 - 8 $CellContext`\[Mu]$$^4 + (
              32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
             16 $CellContext`k^2) $CellContext`\[Mu]$$^4 + (
              6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
              48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + ((
               24 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^4 + (
              2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
               18 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^4 - ((
              9 $CellContext`k^2) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^4 - ((
              2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4 + ($CellContext`k^2 $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4))^
          Rational[
           1, 2]), ((((
             Rational[-1, 4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
           1 + $CellContext`\[Mu]$$)) (1 + 
            2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + (
            5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
            9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
            7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
            2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
             2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
               2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 
              5 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
              9 $CellContext`\[Mu]$$^3)) + (((
              2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
             2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) (
               1 + $CellContext`\[Mu]$$)) (1 + 
               2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
               Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
             3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
              4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                 Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                  Rational[
                   1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                 2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                 4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) $CellContext`\
\[Mu]$$^4) (1 + 2 $CellContext`\[Mu]$$)^2 - ((((
                 8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                2 $CellContext`\[Mu]$$)^4) (2 + 
              3 $CellContext`\[Mu]$$) - ((
               4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                 2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
              63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
              511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
              257 $CellContext`\[Mu]$$^6) + ($CellContext`k $CellContext`\
\[Gamma]$$^3) (-3 + (2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                200 $CellContext`k^2 + 
                4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                4 (-4 - 199 $CellContext`k^2 + 
                 5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                1580 $CellContext`k^2 + 
                36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                2 (-23 - 784 $CellContext`k^2 + 
                 14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                624 $CellContext`k^2 + 
                8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                  Rational[
                   1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
              18 $CellContext`\[Mu]$$ - (65 + 
               4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
               12 (17 + ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                3 (-147 + 
                 4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                2 (-257 + 
                 34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                  Rational[
                   1, 2]) $CellContext`\[Mu]$$^6) + $CellContext`\[Gamma]$$^2 \
(1 + (2 (3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                 15 + (4 $CellContext`k^2) (-43 + 
                   
                   31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                 4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                 15 + (148 $CellContext`k^2) (-10 + 
                   7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                 2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                 1 + (16 $CellContext`k^2) (-38 + 
                   27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                 4 $CellContext`k) $CellContext`\[Gamma]$$) \
$CellContext`\[Mu]$$) (1 + 
                2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                  Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                   2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
           Rational[1, 2]), ((((-1)/$CellContext`\[Gamma]$$) (
            1 + (2 + $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$))/(1 + 
          3 $CellContext`\[Mu]$$ + 
          2 $CellContext`\[Mu]$$^2)) ((-(-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
              Rational[1, 2])) (1 + 
            2 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$ (-1 + (-2 + \
((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\
\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$)), 
         1 - $CellContext`\[Gamma]$$}, {$CellContext`k, 0.001, 1}, 
        PlotRange -> {0, 1}, 
        PlotStyle -> {Magenta, Blue, Green, Black, Thick, {Green, Dotted}}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.6}, 0, 
         1}, {{$CellContext`\[Mu]$$, 100}, 0, 100}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {220., 227.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.732943899082488*^9, 3.732943944645488*^9, {3.7329439959674883`*^9, 
   3.732944010803488*^9}, 3.732944590200488*^9, 3.7329446895744877`*^9, {
   3.732944721737488*^9, 3.732944754233488*^9}, 3.7344408746594152`*^9, 
   3.740070838644949*^9, 3.740381452907673*^9, {3.7403837763753867`*^9, 
   3.7403838138450336`*^9}, {3.740383894118511*^9, 3.7403839065054893`*^9}, 
   3.7403839388424516`*^9, {3.7403840149638867`*^9, 3.7403840372381244`*^9}, {
   3.7403842341003237`*^9, 3.74038423972325*^9}, 3.740568485773755*^9, 
   3.740568924219039*^9, 3.740741096174918*^9, 3.7408013186020236`*^9, 
   3.740827417310184*^9, 3.7628447959989586`*^9, 3.7628448494609675`*^9, 
   3.7659707030634117`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Another", " ", "useful", " ", "boundary"}], "*)"}], 
  "\[IndentingNewLine]", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"cWelfPure", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", 
     RowBox[{"1", "-", "k"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kWelMax", "=", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{"%", ",", "k"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7405691137617664`*^9, 3.740569173069582*^9}, 
   3.740569277162593*^9, {3.740570709724909*^9, 3.7405707171266117`*^9}, {
   3.7405714077264833`*^9, 3.740571414877559*^9}, {3.7659707559609375`*^9, 
   3.765970772743976*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Figure", " ", "1", " ", "in", " ", "the", " ", "paper"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"parameters", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.4"}], ",", 
       RowBox[{"\[Mu]", "\[Rule]", "2"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Gamma]"}], ")"}], ",", 
       RowBox[{"1", "-", "k"}]}], "]"}], "/.", "parameters"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Gamma]"}], ")"}], ",", "ckswitchmix"}], "]"}], "/.",
      "parameters"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"cWelfaremix", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"cWelfaremix", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "<", 
           "ckswitchmix"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"cWelfPure", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"cWelfaremix", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ">", 
            "ckswitchmix"}], "&&", 
           RowBox[{"k", "<=", "kWelMax"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Null", ",", 
          RowBox[{"k", ">", "kWelMax"}]}], "}"}]}], "}"}], "]"}], "/.", 
     "parameters"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Quiet", "[", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"%", ",", "%%", ",", " ", "%%%"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.7"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"K", ",", "c"}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", 
         RowBox[{"{", 
          RowBox[{"Thin", ",", "Dotted"}], "}"}], ",", 
         RowBox[{"{", "Red", "}"}], ",", "Blue", ",", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"FontSize", "\[Rule]", "8"}], "]"}]}]}], "]"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.7324216697126603`*^9, 3.73242188550366*^9}, {
   3.7324219480876603`*^9, 3.7324219577196603`*^9}, {3.7324220055826607`*^9, 
   3.73242204535966*^9}, {3.7324220865666604`*^9, 3.73242212557666*^9}, {
   3.7324222915126605`*^9, 3.7324224305126605`*^9}, {3.73242251824166*^9, 
   3.7324225184576607`*^9}, {3.7324226493036604`*^9, 
   3.7324226547946606`*^9}, {3.7324227121766605`*^9, 
   3.7324227769146605`*^9}, {3.7324229280496607`*^9, 
   3.7324230558026605`*^9}, {3.7324231474266605`*^9, 
   3.7324231575846605`*^9}, {3.7324232082096605`*^9, 
   3.7324232235536604`*^9}, {3.7324232684086604`*^9, 3.73242331779366*^9}, {
   3.7324234375376606`*^9, 3.7324234566186604`*^9}, {3.7324234948566604`*^9, 
   3.73242373479366*^9}, 3.73242377731266*^9, 3.7324240616646605`*^9, {
   3.7324268694646606`*^9, 3.7324268821376605`*^9}, {3.7324269351126604`*^9, 
   3.7324269421776605`*^9}, {3.7324269738816605`*^9, 
   3.7324269841926603`*^9}, {3.7324270256346607`*^9, 
   3.7324271079856606`*^9}, {3.7324271491926603`*^9, 
   3.7324271709936604`*^9}, {3.7324272349366603`*^9, 
   3.7324272436736603`*^9}, {3.732859961027916*^9, 3.7328599802089157`*^9}, {
   3.7403829428902473`*^9, 3.7403829832634287`*^9}, 3.740383018532222*^9, {
   3.740383100367634*^9, 3.7403831279971013`*^9}, {3.7403832746822224`*^9, 
   3.7403832776811647`*^9}, {3.7403840692111993`*^9, 
   3.7403841044849596`*^9}, {3.7403841417129693`*^9, 3.740384223066348*^9}, 
   3.7403854004902115`*^9, {3.740385434407378*^9, 3.740385473211574*^9}, {
   3.7403855346590333`*^9, 3.740385547440978*^9}, 3.740385595900853*^9, {
   3.7403857102589765`*^9, 3.740385712222232*^9}, {3.7405692025059443`*^9, 
   3.740569266675647*^9}, {3.7405693050156956`*^9, 3.740569400267113*^9}, {
   3.740570740122797*^9, 3.740570761469592*^9}, {3.740570875880023*^9, 
   3.7405709241795473`*^9}, {3.7405709565236025`*^9, 
   3.7405709569046164`*^9}, {3.740570996750641*^9, 3.740571104319865*^9}, {
   3.7405711441285896`*^9, 3.7405712354716053`*^9}, {3.7405713226501083`*^9, 
   3.740571347054044*^9}, {3.7405714009835415`*^9, 3.7405714247528353`*^9}, {
   3.740571474977426*^9, 3.740571485839364*^9}, 3.7405716592169333`*^9, {
   3.7405717161664762`*^9, 3.740571732939104*^9}, 3.740571765268052*^9, {
   3.740571822566292*^9, 3.740571834059871*^9}, {3.740572018988557*^9, 
   3.7405720325486374`*^9}, {3.740572076998917*^9, 3.740572106847378*^9}, {
   3.7405725780704765`*^9, 3.740572661471394*^9}, {3.740572737586661*^9, 
   3.740572754535761*^9}, {3.74057284530729*^9, 3.740572872726247*^9}, {
   3.740572935979556*^9, 3.740572954473765*^9}, {3.7405730757441883`*^9, 
   3.7405731441101003`*^9}, {3.740722602425486*^9, 3.7407226304039316`*^9}, 
   3.740802424745179*^9, {3.740802475116062*^9, 3.740802524850365*^9}, {
   3.740802569532193*^9, 3.7408025702931805`*^9}, 3.7408041195419025`*^9, {
   3.740804835543536*^9, 3.740804848087863*^9}, {3.740804956526248*^9, 
   3.7408049831962028`*^9}, {3.7408050442904596`*^9, 
   3.7408050693521495`*^9}, {3.740805743687337*^9, 3.740805756428215*^9}, {
   3.740809499494954*^9, 3.740809527110397*^9}, {3.740809575601382*^9, 
   3.7408095759282117`*^9}, {3.740809788802859*^9, 3.740809817283554*^9}, {
   3.7408104038462505`*^9, 3.7408104267822933`*^9}, {3.7408104668257833`*^9, 
   3.740810484149762*^9}, {3.7408105147237473`*^9, 3.7408105309127655`*^9}, {
   3.740810631399375*^9, 3.7408107180447445`*^9}, {3.7408107541768255`*^9, 
   3.7408107875816703`*^9}, {3.740810891217306*^9, 3.7408109404050875`*^9}, {
   3.740827444079374*^9, 3.740827444221752*^9}, {3.7659707890204716`*^9, 
   3.765970897647846*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJxl1nk0VV0fB3AZKsMjRSWpVFJPhAwR5YsIGTKmoqSiaFBSlIonkgzdRIaM
GVJm7j2UJhWZFe7g3nMHRYpC84jnPe9a73/vXuussz7rnLX32Wf/fnv/lu4N
cvUTFxMTe0Vd/72vcfHV1z3WDbH/NalGvw+Pad0IO+f2LjjXH4XXf2W2pHSj
eFHElpBFgbA6kGjfndENi/tjv2amH8EFGaLkdUE3KtdukjxrEYwpZ8kAqbvd
GFbwdl6ifBo/BflvtvR346XsfsMHJlF4/0MkZOn2oE6jkDlvkobaA7SnW9b1
wOGlbnpiwFVEcsxuPTbtwRQ3ZGoh8yrm1WUfubO5B0Zxy+aKipNgecpr4qx3
D7LNiVrpLcm48ZW9QD22B+n6vHS706mw/dTpHizqQcM3Z9NlMVlQ9D1n/Haw
B+Y6DdmHB7IgfKml6j3Sg+HXWnu2mmcjpCp+wPpbDyz7xY6IfmYjN8gueIFs
L7YPKx3U98vF99FGWsO6Xjydwe0On3sThSP32+Sv9IJV8evKzdoCHE3bujww
uRcLOw2W7BMWwMhqILwpvRflRbrdP6QK0ZYts+ZsQS8m/M21M90L8cl5B234
bi9mfOvu6hwvhFndd7fGgV7o+rGMxRffAjdqreD0eiZS9TXcs3beRr5ukyHL
jAnjA7Lk9HO3cViw/YquFRNHCo9zbXNvQ8woEm+dmFB1m/bIbeA2NEa6brrv
Z4KhcKE4NuAOQpwP++vQmNB9tyIj7mgJ5BcVjw8OMqHk0LKxyasM5tuiBAPD
TPi2omhXaBmCaT7tr8coC7Lms6+VgT1Nubj/JxM0ctnpA61lyBmK3c2XY6Ff
zr1S3rAc2lWBnb0GLLwZ2HHzwvQKOG7SLn0azUJWgZrKjWuVOH9WJuPJZRYi
e8pGdpdUoooYimm4woLJhekR059WQmlV7t5H6Sw8qJhuPfWxEnw5BZX6Mhau
DpWiVaMKh9mfYquZLPi6JmdVRlYhIYDwz1Nnw3I801B6dTVGzMtjZVezQfhP
cKQMq2GjXFRySocNkaNx7WdUQ7w5ZczBhI3RtRz3bI9qnFYPOfVrKxu2KXa7
jSKr4S/Si3ENZ8PeZf2N2J5qWHhUFUn2sHFPx9R89FANcrRuNwdx2PAU8BfP
OFmDCYm8YR6fjYfjOzLmnK/B3Rramuq3bDDf68dP0WqgrRBE7JpkI26W/z+a
9Bqotq9pql3FgdXPTVdff6/Bd/PSwYMRHJzqyp8jE0LHg8L3maHRHGw1lXYe
PUPHhZlabjGXOVhtUq7Y9A8d8i/LnhQkczCtKtnelUaHhk9FjrCYg845Dx0H
79Cx7Vz1dveXHOx8MyQ1yqdD9dWnWftYHJh5/1FRHaDjtZVe83EeNd4MWU3z
YTqOytENaYMclKwI2X7gGx0xmYw5bT852DR2qVzvLwaIe3UdWNoHt9E1256Z
MHBm0c8oJ40+7FST8bU2Z8D8H2PTXZp98MhOYz2wZqDD9t6dM4Z9kD5fMi/B
mYFBTn0MYdcHW0YNvcyPAaXvD801g/tQSFoumUhkIESvkTHvGdWfqna3GIcB
fwO1vKSWPliwd7JSSQa2rzsbL9fVh30Hfb2X9jNgamKwV5zbh8f7emcrDTMg
blk4a2ysD3fCaz4e+80AzSU6sEmFi5wTZQtnLSQQ6dbvYa7GRVfHC/7HxQSC
PTZY3F/BxaEP6hnNywhs2/F1frUuFwEBqWruqwmo+u5vytrMhfehJMMRYwIl
x6zUQoK5SOBsuq/gTiArOE92PJSLjON+V6w9CSSGTHwPOMfF65UVXUE7CRwL
Y3T6xHKxaNWumsI9BG5k/LdR78dXKUsEEjCKVA+3z+FC7kPE86uHCay6EOn/
vICLzHbXZ8eDCKhE810s7nBx31Byv20wgalLKauMGFz8bh0vZYcSaKRJspe1
cbHGf8XssAsEapP2PMl+wYVlrvO76RcJ3E5+UKbM4mJ/el56/CUC8WkhUfL9
XNS8G8o5lUDANXdQ9/c3Lmr/9fnZe52AqKIxvnspD6ZLqiKqbxF4OSr5QW8l
Dw1dQdPSbxNo0LJ2SNHiIVybUD1ZQiCvpEnO04iHeoaXkWIFgb23nifyHXjY
vJyVJ2JQ/b+ZPrbRlQdu/c1r4bUENqnbOOV68iDdnuAgf5eAen6z/N69PFRk
V+ko3ycwlN1CexvKQyiz1fVRAwE2f+ZH23M8xEzbvGL2UwLNC+2cSy7w4Bzh
MLrzGTW/jFaFI4k8JCt4hvQ2EUjvkz7edY0H8eURZuLNBC7P39Ktk86DceJp
pVUtBAKvtyV9zueh+9ufX9vbCOxkynx2u82Dydxopf3tBOwV7V2Jch40+4TO
/h0EtJLa54Td5UH+FWnl3EVgNKEjebKTh9QfpdX13QSE7XJfd/fyMKqTFxzR
Q6BLxtG9oY8HueGUSNNeAhWxnUpRAzxcIhvTM5gEcpr/Ojn4jgfOx7RyUxYB
2nQnlvUYD+dtM9VZlI9Fd12f+YuH1dIGTmNsAnueyX8PmOJhbi5kj3IIuIhv
3dYuQcKWdwBvKFta0Gq1pEkUHRaMu/UR0It8Me+KPAmzoY6l9ZSXPZ4VOq5I
uX43bz6XgOLUVo7zAhJqVnWLj1CW3HjVqGYxCY+W71/uUf4a/jJNUZ3EnnPr
faYoD9Yr/Az5m8SjuDQ/Ex4B1i/n7WxtEj6zVsgdpfzcOOmukQGJipWfPTMo
14Z2K2esJ+H2XsbpAeVbtbNP/zYjcSIs9Aubcto3F66XFQnVL6aOw5RjDa6t
f2hHYnXc9j1fKIed6MlYvJXEtfDWtd8oH6yZ8zvCncSX+Zeej1He8cl156sd
1PPnF5f3U96im1xv6UMiaWatYytlk6BelcL9JCbPS24poby6QjFcKpBE6MiO
RVGUVUbdSP8gEg76mR1ulGW0UkxbQkj8deiOtyrlP4HMzL/PkFjw0reHT83f
fd2uJO0IEiofEixuUC6bNhSjH03C3y6x1JmyVOfRs8aXSchOc1QSo7w7/cfx
jVdI7HWjR9ym/n/dvsgDlskkLIoLP9lRVtCR3mWTTmIfTfzoILV+T5pUbF3y
Sfy0O3tdkrJKUsHGbcUkZmk72sZR6x/sraXvVUaC1vVVSZqy+peNi/1qSVys
U5T9TMXTuUfPFQPvk0jv/HuDN2X25a3SQQ0kBs3dUx9T8XdJzfdrWBsJpEqx
jlPx2f9+ePjcCxJ6rnOfNFDxa1wXLLrAJPFpuf2bmZRHHKPbEoQkggdU30S/
IOAYXpyX95mKr8gjq7WofLi1WTe16AeJgjgWrKl8mZp9L75kgkQ+S6rUk8qn
qtttpxjT+dg4tCvpIJVviuxRhxYVPkprqiRMGwkcvnnKsnMJH12Ta9csofK3
8fC/Rj3qfDi5nWydeELglMTs5XxtPsbkrhwsfEyAq2vwa9ySj83ChMKieiq+
Jx6MfbXhQ6aIaPa4RyCu2XrwlwMfGlHfT/9bR2DDbs8XEp586AzfzwBBIDf+
TNH8Q3xYMUpWnqgk8HObRKbqMT5CZ/5R/1hOwHlZwtWlJ/nI26DS6V9GQPxe
drhmBB8eHsGaFncI+A01uCCZj7UKjyJK8gloWsyY8r/PR0hlVphrCjXfktKV
fQ18TARmnLC8RsBAydnF7jkf+b9NNmhepb7nbXqhZjcfce4LbN7GE3BKXG3/
cYiPMyoOddJR1PpyHdNPzxGAmZif9ofa779bfn4yMl+AhA91O88cIRBelvre
a5EA0VkPtT5T50V0hMjMbJUASicv/NXpRyB1xfE34mYC5N0t1tX1InDveIpe
QoAAZl7HAyqtCJiRxt6TRwU4dL72c4MFgadWgotHQwSI/W3S2m5GoG2+Btc5
QoCNgWuPdFLnG/9hXcTc6wI8Con6HalFQEyG7MhpEIDcoh5UNoeATf7SA9Xz
hdgWmOOhzWPAIF1e47mqEJs0Uvyr2AyoXfkzyFsqxGDMR6k1vQz8Ps3aK6kl
hFfaij9zOxgod7m829NciLINs+WLHzKgOO2Tx+RBIaScbKxachkQ+TRY2dUL
MZnlKqmyh6ofPMoldj8WYsePv9Z98WLgrv2Np8GNQpCd4w7NngxcMwoxz+oS
YkHFJYM9WxmwnrVqw/hrIXaVO+p7mDFQ+oimf11WhHKJl5pOCxkIXeSz7JW3
CAeqQlITu+nY66y7je8rQrFtrFd/Bx1OUdPiOP4i5MXYXdRuoeqp4YJPncdE
uJ7ImfXwER1MxruG+mgRJNQGUVBKh65DsE9KmQjMR9qT16Op+ipiUzKtWoRa
pbPKeRF0zKhRao6rFeGEQHC/iKrfhPPrtP9pEGHl20sFBcfoSBj4M3mEKUJ8
XateoDcdYfM61wZwRaibrdzu7EnHPrscv/1CEczG70zoudJhUmneufOdCKGG
8wxGbOh4d+Zils2ECJpMYx11fTpGtmkevCnWj0sRzI63a+jY81FRfIlEP2y8
E5WKV9Gp/WEiM0uqH7fuhs3cu5wO++VvDFVm9uNVWkmJ8mI6Gh50vkiT6cfD
KsPJNuX/938AluwU0A==
      "]], LineBox[CompressedData["
1:eJwV0nk4ldsXB3BKxjqk6ZJUVNdwIlFK+ApliISoSCQN96qoSJNbCaV5oIFk
SiNJhlTmoYNzzpu5lHLm90UZkln6vb8/9rOfz7P3XmvtvddC/yC33ZOkpKRq
6fH/OaPnweRbyjzc8G37csU5B1ox5xNVVHnI77PJjz6dg7tawaZXZ/LgXO4/
2yg7B4zCrfVKc3joFTKarwhyMNKtO0VOg4cup+zinba5qNvM2f97MQ9V4tYX
MTJ5WN+dK3tSh4dK1cGYr8Z5KDyfmDysx4NLq4Fip38eHr892NRvyIP/Ael2
w9I8/Ldgunnnah6GxuXDIsLywfzuofTRmQfRW9PlH1tfo2CzU8nFTTzcPW2d
mClfAJsi6yOW7jzovtpmZ25aAK+rhl/St/LAWD+8MupWAWKWKTwP2cXDtfCO
gU/2byAJKXRUPc5D7eiTR+qP3yL5t9ZF54c8vJ3r2T1/ZRGYe9QspR/T9xHd
GTDyKcJrQvln7lP6/Ln2O4zIIhBJ49s0sni4vcQtTLe+CL/Xtuh2veEhepTR
0LevGF7RMTUXPvCgFrCU0L1WghnKvfKVozyE9g9sPNBWioaii+cdfvNwon3l
KrKrFDf3L5b98IeH/VMU5F3GSqFa6zX5swwfKXI7P1FqZVCNqvrdw+BD2nBb
rL1nGVTG4n/O1eaD8pQ2aWCXYSq5ru3IBj62F+m94TwrByeO5zXizIeZ3G5H
s4JyXLY92frfJj4yv07MvVdVDqXUly0xHnw8bX3zWY9XDkWfufVJvnwo1boY
p8ysgHxjbxX7CB+Xnp9hfD9RAZmShCzt+3x0uIhORVtU4rO5rX37Az48Zsjf
gGMlst5+58Wn8GH6j+zqTs9KeOVbqKo+5mMnsyJ+ZnAlsjPbQ6Re8XFW/t5A
SUoldtzXNvvK4mPtpzs/IiZVoeD488rb/XQ+joMEb6twdcjdx22Qj/N/VGtc
q6qwK3R8YNoIH1GT4xO21FWBccj576gJPmwj5VwhqcLufT0xRxQE8JYaKDoz
/T1Utxi7bJovgHRd3arW3e8RaPKuVWGDAEMp0LeTZaG0rjmjwFmAVLsH6ixl
FmYd6D29d5MAwkf1SyzUWChJX7ykykMAtvvdKiUmCzPmXD98xk+A6J9de0xc
WXg3EqA0FCqA2cYim6J7LCiVMCxEyQJMm/762oh2Nfy8dVVupQlw0Jld5Mas
Rt6QjXDtIwEW9eT4pZlUw3fZ8Zik5wLkqy3V119XjZwUYbNXvgBNee6fm3dX
wzuy4GA9WwDx009Pk9Kr8dzBP7l4kLZlipn1/BqYMBdaYkQAe73d8vOW1KCY
wftSMiaA7tEzW/qYNahr9JlTJiUEeUh4M9qsBr98tl2tUBRCMOTNDPCogeXh
TaeqNYXgDaw174uh98dbbm1YL0T5Z5n4k9012Bb+e8DNgV7PD1O7+asGAt/C
W40bhHi3rr0hdZSOt8jsQ9MmIZJfnpfPka2FWtaK9R+9hLC1iVS5plkL/wqm
SdtBITpfKsiaOddioEtdRXJbiEn7XN+EP6pFbCLJun9PiKFHrXnbMmph7JJ7
2v0+na8x54Hhq1oceuXcU5oiBMOte0NNUS1+HDtDJGQI0fEt62VuUy3EUySX
XcuFWCN7KjBYmo3m+dkKRT+EcLtf4ZfsyUZIfXjZkV4hTto2r6v0ZmPGOcfj
ev1COGlHFwn82HCVCKk7w0LU3ywLUw5kg5sxu/rwZBFqB7QSdE6zUbX6VLSO
mgj/njmR7vOIjTx3u8mxtiLolTs39PWycWFDQZSGnQhWFpoBiwbY2G6jK5/u
IEL739F5biNsTDJWmpa/UYTXfywfpkpzsFH1w+xPW0V4WB08VUWVA6rOU0/j
gAhyXT5N2ss5UN+4x/VhnAjPqVjKNoiDH+s+NjLv0vGVjkQOHOag1MLeMy9e
hMa9M6xTj3KwZ6me9/skERi+40t7wznImdodQD0VoeDEP3N2XObAiR16jFks
QkvS1geRTzg4bR+VlCsRgRM55qT8jYOGHfu2L+sQ4cfZXIPVfA4WhW5Qy+gS
wex71TNfEQe1KdNvpfWKsPSy88nUTg5mjiVG3xwVwaCbKv4zyMGTzPwDwQwx
mgrt69SVuahTpdYwV4rxY01aqsCcCy1d9vDjVWJczbys/xBchOJFnvYaMZj3
1sX5W3Ohvj/EcK6VGHP7/We02HERUCWlregoRtrSqP47blwMh6kpUj5i7K9J
lo3Zy8XCr46f0qLE+Ka1mGlwjYuL5WuyPC6IMevt5l0VN7j4+ZgZLXdJjJ0/
e1d6xHJRfphhEnhdjNj8ksKD9+j48g3XlieI8er1rnPH07h4YrzNruylGCem
Hh/tyefC4OLe/G9fxMho05IN/sLF7aCtV65/EyPh+yqtxK9c/NnsEGDNFyOV
JBew2un7ztdXfSQRY5nKemK6iItDed0HDvSJ0REkrxXxnYtcXujicVkJAv9s
DKob58LMNDJWbbkE/OJ/HYzmEmjxV1uZaCLBDRlBcbsGgSNXX3xcYCqBZrpK
7iVNAhniT+o65hKkzQjXbltIQDN2acrK9RI4VDyFrw6BSX0tme5eEthsbc3u
MSHAfqbLuhIhwd3+S342TgT2tRTvmx4lQdOE4s2HzgRkJm1WjDtPx+vXC57s
QsBy23/O9y9L8Ms/wfStK4GXco2Nz25LMKq64K+pWwjEBpzisZ5J8M5tiY31
TgLbNT+MSDdKcGXTwkXSIQQYaofz3jVLIGr81mcUSqBsxqxDoZ8kiNA8Z+x3
lMASBW+K+irB6/y4v/KOEejpl7R8oCRQDTWMtQonEFEzkZM4IcHfT9YmtUcR
MKlMCdoiTWJifIUvFU2ALLbVny5DgnxDPOs+T8Ap92JqpAKJlqqszv4YArOS
Zt8InElibaXZCv4VAk9CDA6u1iPR/qnUyD6OgFdQvW4/k0TfSRNPvdsEpv0b
Is4wJKFcytJQvEPgsO/b7QtWkFCfWx5XfpfAGsf1G+SsSAjzh7bPuU+AmL9D
p9mDhMFU4/2uqQTOqEuLrm4locf55c5II2A862GSvTeJpqeL+6tp31XsnF3o
R+LcI2kf03QC/gOhU9ICSQRFJk8aeUxgoPaKIPgsia7tndkqmQTalJr3jZ8j
sWv363tJtMudNHrOR5M4/Ms3jvmCwHXi2diDSyQi5tlyrLII6DWwZnLjSAQM
Ltvslk1AZYZywta7JAbHXg/W0x5y91woiidxLVUuz+UVgcpm0dKxJBJTlDou
rMshsKNV2k73GQm+jeiJeh4BW3UHbm4GCYVrYttLtPW9r7tbZZFgv94vM0p7
uE3Tb0suiZ87vvbV5xO4yVtzPKqYhGNvU3JgAYH3ZOhzfgOJVZeXLbR7R/er
TpHRgWYS/imX98TTvvWPTMHwRxKaB3y/ddH267pZqfyVfl+Naf/EFBIY7c76
akGSKK3+NjmriADPcGhXTQeJEZsNg/20WcGWnZu/kzjaEaBlWkz340/OYGAf
iVQnA/0C2oaDHcrxYyTM5b/MSS8hMNvU6PbiCRJKSmG9X2iPhx3TyJai8Nd/
HIXppQRqR2R1q6dQ8IifN+ko7ZdmG7Pc5SnEJDUJ0mnfORm3ol2RwjrinVwT
7YDf2taDyhQQfHGhfhkBR8vA6rOqFGRMdf7aTNvo9KuN02ZRSPrg73mS9oTU
Wu9F6hTW2s/MrKQtWnuBn6VBYTzanCWhzY74sHfNfApKngFMuXK6X2R2hLgt
oiD9hPHFmvbErjkr6pdQcLI6lOJDO6CibsBFl0Lhoon3R2nXal3MJ/QpDNeH
O12lvSzCJszZgELnyoLlD2nf5o+bcpZROJcXcqKA9rhV/rCjMV2v9olFbNr+
yUFvalZQqKy+atRGu/qPzgn7VRTOBhxL7aJt4CswY5lR4OuMh43Qji1OGFtn
QUGv+NurKRX0f83zKKwEhURrkbsKbb9wRriNNQWxY523Gu33bSyLclsKHMFu
9gLaTPOzE1Z2FJKv7E1bQvtmgllJiQOFp+vviPRoD432n7Z0ous5m39tKe3t
XplWRRspZOtHpxvQztSpUZnnQoFXZp/xf/8PGTx9DA==
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Tiny], Dashing[{0, Small}], 
     LineBox[{{2.040816326530612*^-8, 0.6}, {0.009814340804846833, 0.6}, {
      0.0196286612015304, 0.6}, {0.040908357085458646`, 0.6}, {
      0.06077788357015209, 0.6}, {0.08025764881887605, 0.6}, {
      0.10138846915816112`, 0.6}, {0.12110912009821138`, 0.6}, {
      0.1424808261288228, 0.6}, {0.14510356922815304`, 0.6}, {
      0.14772631232748326`, 0.6}, {0.14805415521489956`, 0.6}, {
      0.14819523628526837`, 0.6}}], LineBox[CompressedData["
1:eJwtjn0s1HEAh28oJzeueSkJUzJUGJG89CGtqC6btGEW1chLXiJ5ycaGVpFe
dixk9KawqKRazMX33K3ihMvhjrv7/chy52XLS14itp7t2fPvY3khMTBSg8Fg
2K27UXaef+Uci0C/IF4S4EDDfVi/qdaAQFBKxr/voxHqyxmKNifI8KXu9tjQ
yKy5vWZtS+AwyXDrtaLxKXXTiaeHCYq9D9/s20ljSHok8bw/AWcizFG8ncaS
Tw7XIohgM/f6gNiQhofe8kh5DMHl8Y82/SwaLdUzKVwugW+R85eBFQoyln1p
YCXBwsHAK4N/KKwkx7WyawlqlUkmQ7MUvPCTeYdHsMOlPkaqptAqkVbkTxCo
pTZbRmQUeEyh8Jo3H8W25ifpFgrtsRWmIWo+VHxm12QWhcZfcXHn5vlYHnP1
dM6g8CzavfkiowNs7ci69FQK+VGS0ATDDhzyb7ulmUDB78LWslzPDtzuyjhm
Ek6hOyR/e31hB+z7J3hHfdZ//eKNNPcLkDLe+bZ8E4U5ay/9V/FC/NW5/9C/
SAmNxTq26Z6vUOjOvs8tUMB1LeL9mfpOWH6LcZI7y9GZd0AksOsGEQQ4u4UO
w+KearFm6jtmPFSDnGApVAvykR+OvRBEHGEK0wfxbKL5q15RH1zWTstWkiTQ
M3sxPToqhmKMp25M/oHCmKaoKqt+2GSp80QlfZj3rhuNzpZAq1DU/vxBD646
8d8ZkwGMlgyw2853o6x0g0EEMY2tHelOyOv5BT2WQzDRyR5v4HzDcqy43DZT
is+6U66PTwmx10d7NapZhtJ4cXHIPYLjTywvvdk2Avf8kznG2jykmYXvUobJ
8XJS9ls77QP2qc/qSjgKMNPWgldZr2GgP8PkLylgIJquEWlWQYtX3rD7kRK3
qqnlLt0IcI1WbqiqlWD85x/CPVhr
      "]]}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQ7ZX64uKBl6F2xmDw2H6BqH9bl2SLPYzfyLFZvVNy
CpwfEblw/YePS+B87v+NMe5y6+F81cB3Lw53b4Hzy89Z2s/4shPOF98ieI+R
cT+cv+2R85nzNofg/ENZc6Uj3xyB87+q2fKvzT0O5zP9XC0grXoKzjf7n7At
eN0ZOP9Mi8m5Y1rn4Xz5Ca9/rnx3Ac5//f3+vasGl+D8Ja92n+Lruwzn88ku
f//kyRU4vydza9oClWtw/jeH1U8y6q/D+SVGR7aIHb4B5/cHtmQdlboJ568q
cFEoKULwe0v+fMusRfALKracje9A8JOqBHbe6kXwQ2pyloRORvBvns1XTJiC
4AMAM5W23Q==
      "]], LineBox[CompressedData["
1:eJwVzX8wlAkYB/DFNrlIRxdyKI6xISd1dDT3jamoVrV7ur27hCi0OlJJ3XR7
S21S3DK0rvOjjTRSoWnXKRt75fqxoyFbeLf1Wu9ufrVrr7n2lIvuvT+eeeYz
3+c7j1dyFnefNYPBiKLn/71r331HdQ0BbqxnriRYD1a+MPVBHQFjR2e3e5Ae
bqe0nMirBP6+68hLDNBjrqCcFSYjYKWQZxh89egSM/u9VQQ822bLp9z0aC1N
+qO6h4Dv79uXrXLVo6FMcd31OYHA1ktXDy/R41zFkZMOOgLhso0dbxfpwb1o
CJ6xEOC1FI9Zz9NjuKnr3FMvDUoaPMJdzBR6TUxjiJ8GroWzhalGCsrAjezy
QA2k+4cI+QQFaeOf9rwwDVr8q4/HGSgkX3lQrGVr0HPd/XYpQWG0+pF4LFeD
hTc/XWvfRcFU1F02+0SDs7eXhlpdoPAv/1nlih9fIF+1JORVFIWAyPlzqe1a
8BPfC9m1I4iu9Uq76UJCG5TF9nujQ65HovdI/DA2ZPdmijk6BBp32g3E6tDg
FzfB2TuMxYv+su2a0UEzsmwqdwEJZmdl82dVI3ib90ja9lCLjDXtxEdbKfhX
FLKN+1/g2uZkacc/FBoPRHTmO2lgeeX28ahED2eWanh13yDkX0fblG8wQPJt
9ruBowP4OUZ0UTZqgHWWRSkJ6YfX0JbBOtFLdGzkb2978wzhYafKl4aMoqh0
ur+7Uo14z553VupRxNzfY//+uz5YVMXUwbwxOPMN4Z6zvfiVmXCE6zMOqakg
qDWzB4tJea111zhkBawci7kb837Ki/syewJGu5kbbhEqMK4mNFNOk2DEi6Jy
ZA9x6LfmYqd7k1griXwsn+7C3YAzto6Zr2DPGR5qj74Hxy2HAvMdjDjW/EPV
1LlOaFf2qo8rjFheKtizyv0OWmrgY0gwQbjAhiRt5djdHOroMWeCq2jLUZdF
LRCKLuVpG6fAaBh7Gcatx41xj0oHthlJk1FVgQIJzlSLkshtZjC2s82rfSTY
yzX5NnHMEN7aGRWhOg93haIllkf7RPr4ZufzOCve9aAo2Qylwy9r0prKkB56
4fWC43R/NdF9iSyB96lPYuZfoe+nyZmVgtOYW3ti4UADbeVr6TqVCIRJ33fl
Gt0vZEZvdRahhHdr96abdN/dvyy96SQ++HMPixRmrF+fE1BHCqF9Kq6xUdO5
k0tbsOAo2k5Pp6if0768jrnNOQflEYkr6gZphybvyGg6jK31QbIokv73/Y3x
evIg7hx78jhvgs43FYSEClIhWfmFmGOkze9THWxKQTZVFedlpi32SLlGJoHF
PjCsfEO7Jc0vUvANmFbPLpdM0347y2sld0Anj+AnzdAWshx5gk1Q8Os+D56l
vbzRkC8IRcUyO8uHD7QZjD7lxM6v/gMWmxIG
      "]]}, {}}, {{}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["K", TraditionalForm], 
    FormBox["c", TraditionalForm]},
  AxesOrigin->{0, 0},
  LabelStyle->Directive[FontSize -> 8],
  Method->{},
  PlotRange->{{0, 1}, {0, 0.7}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.765970878936899*^9, 3.765970898591383*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Now", " ", "we", " ", "dreive", " ", "the", " ", "test", " ", "frontier"}],
   "*)"}]], "Input",
 CellChangeTimes->{{3.7659709038792105`*^9, 3.7659709160865617`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"k", "\[Equal]", "krconstr"}], ",", "c"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"cTESTconstr", "=", 
  RowBox[{"%", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.732973439509691*^9, 3.732973469057646*^9}, {
  3.7659679963790393`*^9, 3.765967996482777*^9}, {3.765968026883424*^9, 
  3.765968034307568*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "-", 
    SqrtBox[
     RowBox[{"k", " ", 
      SuperscriptBox["\[Gamma]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"4", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
       ")"}]}]], "-", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.7329735373024693`*^9, 3.7344408778890023`*^9, 
  3.7400708419547195`*^9, 3.740381456290671*^9, 3.7405733482023535`*^9, 
  3.7407411047542953`*^9, 3.7408013276366205`*^9, 3.740827429494587*^9, 
  3.762844963765253*^9, 3.7659680384255114`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "see", " ", "the", " ", "monopoly", " ", "price", 
     " ", "case", " ", "when", " ", "in", " ", "common", " ", 
     "representation", " ", 
     RowBox[{"(", 
      RowBox[{"off", "-", "equilibrium"}], ")"}]}], ",", " ", 
    RowBox[{"q2", "\[LessEqual]", 
     RowBox[{"K", " ", "is", " ", "binding"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ve1", "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", 
       RowBox[{"q1", "\[Rule]", 
        RowBox[{"1", "-", "p1"}]}]}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1m"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"v", "-", 
         RowBox[{"p1", " ", "q1"}], "-", 
         RowBox[{"p2", " ", "q2"}]}], "/.", 
        RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
       RowBox[{"p2", "\[Rule]", "c"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", "q1rationed"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "%%"}], ",", "p1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}], ",", 
       RowBox[{"\[Mu]", "\[Rule]", "2"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1HMonkbindTPT", "=", 
    RowBox[{"%%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}], ",", 
       RowBox[{"\[Mu]", "\[Rule]", "2"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.732973153877777*^9, {3.7329731893808765`*^9, 3.7329732078085613`*^9}, {
   3.732973664858488*^9, 3.7329736852584877`*^9}, {3.7659680593834925`*^9, 
   3.7659680597535095`*^9}, {3.765968312849442*^9, 3.7659683244663267`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "0.567689437438234`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "1.392310562561766`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.765968065548992*^9, {
   3.7659683159122095`*^9, 3.7659683250597386`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{"k", " ", "\[Gamma]"}], "-", 
  FractionBox[
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Mu]"}], ")"}], "2"], "+", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "k", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          RowBox[{"2", " ", "k", " ", "\[Mu]"}]}], ")"}], "2"]}], ")"}]}]], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.765968065548992*^9, {
   3.7659683159122095`*^9, 3.76596832506476*^9}}],

Cell[BoxData["0.567689437438234`"], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.765968065548992*^9, {
   3.7659683159122095`*^9, 3.765968325067752*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"q1e", "/.", 
   RowBox[{"p1", "\[Rule]", "p1m"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tmp", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"k", "*", "0"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbindTPT"}], "+", "0", "-", 
       RowBox[{"(", 
        RowBox[{"%", "*", "p1m"}], ")"}]}], "\[Equal]", "0"}], ",", "c"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cTestTwoPart1", "=", 
   RowBox[{"tmp", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.726988357328991*^9, 3.726988464220191*^9}, 
   3.726988512236991*^9, 3.727266320968094*^9, {3.732972712029488*^9, 
   3.732972782204488*^9}, 3.732973236466292*^9, 3.732973627155488*^9, {
   3.7400722937561464`*^9, 3.7400723872256513`*^9}, {3.7400734392299027`*^9, 
   3.7400734432004595`*^9}, {3.740114069881284*^9, 3.7401140836609297`*^9}, {
   3.7659680709076777`*^9, 3.765968085362948*^9}, {3.7659682244539347`*^9, 
   3.7659682368018365`*^9}, {3.7659702921177397`*^9, 
   3.7659703296143875`*^9}, {3.76597036196288*^9, 3.7659703647184973`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ExclConstr", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1e", "/.", 
   RowBox[{"p1", "\[Rule]", "p1m"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", "*", "p1m"}], "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"k", "*", "0"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbindTPT"}], "+", "0"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1.1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"Contours", "->", 
        RowBox[{"{", "0", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{"%%%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1.1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", "Red", "}"}]}]}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Mu]", ",", "8"}], "}"}], ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"d", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7400720399651966`*^9, 3.7400721312368803`*^9}, {
  3.7400721810824413`*^9, 3.740072211963564*^9}, {3.740072468741439*^9, 
  3.74007251728353*^9}, {3.74007297315242*^9, 3.7400729739014444`*^9}, {
  3.740073084442377*^9, 3.740073127255234*^9}, {3.740073293926479*^9, 
  3.7400732996236353`*^9}, {3.762845408838872*^9, 3.762845509066807*^9}, {
  3.7659680947388973`*^9, 3.7659681335081935`*^9}, {3.765970355835275*^9, 
  3.7659703561853466`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`d$$ = 0, $CellContext`\[Gamma]$$ = 
    0, $CellContext`\[Mu]$$ = 8, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 8}, 0, 10}, {
      Hold[$CellContext`\[Gamma]$$], 0, 1}, {
      Hold[$CellContext`d$$], 0, 1}}, Typeset`size$$ = {450., {221., 229.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`\[Mu]$784982$$ = 0, $CellContext`\[Gamma]$784983$$ = 
    0, $CellContext`d$784984$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`d$$ = 0, $CellContext`\[Gamma]$$ = 
        0, $CellContext`\[Mu]$$ = 8}, "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$784982$$, 0], 
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$784983$$, 0], 
        Hold[$CellContext`d$$, $CellContext`d$784984$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ContourPlot[($CellContext`\[Mu]$$/(1 + 2 $CellContext`\[Mu]$$)) (
           1 - $CellContext`\[Mu]$$/(1 + 2 $CellContext`\[Mu]$$)) - (
          1 - $CellContext`k - $CellContext`\[Mu]$$/(1 + 
          2 $CellContext`\[Mu]$$)) (
          1 - $CellContext`k $CellContext`\[Gamma]$$ - (1 + 
            2 $CellContext`\[Mu]$$)^(-2) ((1 + 
              2 $CellContext`\[Mu]$$)^2 ((
               1 + $CellContext`\[Mu]$$)^2 + ((
                2 (-1 + $CellContext`c)) $CellContext`k) (1 + 
                2 $CellContext`\[Mu]$$)^2 + ($CellContext`k + (
                 2 $CellContext`k) $CellContext`\[Mu]$$)^2))^
           Rational[1, 2]), {$CellContext`k, 0, 1.1}, {$CellContext`c, 0, 1}, 
         Contours -> {0}], 
        Plot[((
           Rational[-1, 2]/$CellContext`k) (1 + 
            2 $CellContext`\[Mu]$$)^(-2)) ((1 + $CellContext`\[Mu]$$)^2 - (
           2 $CellContext`k) (1 + 
            2 $CellContext`\[Mu]$$)^2 + ($CellContext`k + (
              2 $CellContext`k) $CellContext`\[Mu]$$)^2), {$CellContext`k, 0, 
          1.1}, PlotStyle -> {Red}]], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 8}, 0, 
         10}, {$CellContext`\[Gamma]$$, 0, 1}, {$CellContext`d$$, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {313., 320.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.740072193616767*^9, 3.7400722125671773`*^9}, {
   3.740072475543523*^9, 3.740072517795896*^9}, 3.7400730886135025`*^9, 
   3.7400733010153294`*^9, 3.740381460467809*^9, 3.74074110953763*^9, 
   3.740801333330766*^9, 3.7408274342181797`*^9, 3.7628449760284543`*^9, 
   3.7628454402229347`*^9, {3.7628454974169645`*^9, 3.7628455094068966`*^9}, 
   3.7659681341664305`*^9, 3.765968330377547*^9, {3.765970356833606*^9, 
   3.765970367238773*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"The", " ", "relevant", " ", "boundaries", " ", 
    RowBox[{"are", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"F1m", "\[Equal]", "0"}], ",", "c"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"cTESTconstr", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cTestTwoPart1", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", 
         RowBox[{"1", "-", "k"}], ",", "%%", ",", "%%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "8"}], "}"}], ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.726988694148591*^9, 3.726988769746191*^9}, {
   3.726989344962191*^9, 3.726989383244591*^9}, {3.7272663886568985`*^9, 
   3.7272664217264986`*^9}, {3.732972789818488*^9, 3.732972803477488*^9}, {
   3.7329732807061377`*^9, 3.732973285330063*^9}, {3.7329735456883082`*^9, 
   3.7329735461693563`*^9}, {3.7329735793726764`*^9, 3.7329735831470537`*^9}, 
   3.7400714607374763`*^9, {3.7400724030006504`*^9, 3.7400724263517027`*^9}, {
   3.740073132385877*^9, 3.7400731376569405`*^9}, {3.740073471647107*^9, 
   3.7400734962816257`*^9}, {3.740073611596332*^9, 3.740073611904185*^9}, {
   3.7401142199156427`*^9, 3.740114239282143*^9}, {3.7405733711032915`*^9, 
   3.7405733782001762`*^9}, {3.7659681685623913`*^9, 
   3.7659682177697906`*^9}, {3.765970258096701*^9, 3.7659702746035843`*^9}, {
   3.7659703447528944`*^9, 3.7659703776818013`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, $CellContext`\[Gamma]$$ = 
    0.2, $CellContext`\[Mu]$$ = 8, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 8}, 0, 10}, {{
       Hold[$CellContext`\[Gamma]$$], 0.2}, 0, 1}, {
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {146., 153.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`\[Mu]$788944$$ = 0, $CellContext`\[Gamma]$788945$$ = 
    0, $CellContext`c$788946$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0, $CellContext`\[Gamma]$$ = 
        0.2, $CellContext`\[Mu]$$ = 8}, "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$788944$$, 0], 
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$788945$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$788946$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{((Rational[1, 2]/(1 + 
           2 $CellContext`\[Mu]$$)) (-1 + $CellContext`k - \
$CellContext`\[Mu]$$ + (2 $CellContext`k) $CellContext`\[Mu]$$)^(-2)) (2 - 
          5 $CellContext`k + 4 $CellContext`k^2 - $CellContext`k^3 - 
          2 $CellContext`\[Gamma]$$ + (
            4 $CellContext`k) $CellContext`\[Gamma]$$ - (
           2 $CellContext`k^2) $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - (
           2 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + $CellContext`k^3 \
$CellContext`\[Gamma]$$^2 + 
          6 $CellContext`\[Mu]$$ - (
           22 $CellContext`k) $CellContext`\[Mu]$$ + (
            22 $CellContext`k^2) $CellContext`\[Mu]$$ - (
           6 $CellContext`k^3) $CellContext`\[Mu]$$ - (
           6 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + ((
             18 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ - \
((12 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + ((
             4 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ - ((
            10 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + ((
             6 $CellContext`k^3) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + 
          6 $CellContext`\[Mu]$$^2 - (
           30 $CellContext`k) $CellContext`\[Mu]$$^2 + (
            40 $CellContext`k^2) $CellContext`\[Mu]$$^2 - (
           12 $CellContext`k^3) $CellContext`\[Mu]$$^2 - (
           6 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + ((
             26 $CellContext`k) $CellContext`\[Gamma]$$) \
$CellContext`\[Mu]$$^2 - ((
            24 $CellContext`k^2) $CellContext`\[Gamma]$$) \
$CellContext`\[Mu]$$^2 + ((
             5 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 - ((
            16 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + ((
             12 $CellContext`k^3) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 + 
          2 $CellContext`\[Mu]$$^3 - (
           12 $CellContext`k) $CellContext`\[Mu]$$^3 + (
            24 $CellContext`k^2) $CellContext`\[Mu]$$^3 - (
           8 $CellContext`k^3) $CellContext`\[Mu]$$^3 - (
           2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + ((
             12 $CellContext`k) $CellContext`\[Gamma]$$) \
$CellContext`\[Mu]$$^3 - ((
            16 $CellContext`k^2) $CellContext`\[Gamma]$$) \
$CellContext`\[Mu]$$^3 + ((
             2 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 - ((
            8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + ((
             8 $CellContext`k^3) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3), 1 - $CellContext`k, 
         Rational[1, 4] (
          2 - (($CellContext`k $CellContext`\[Gamma]$$^2) (
            4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) $CellContext`\
\[Gamma]$$))^
          Rational[1, 2] - $CellContext`k (
           2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), ((
           Rational[-1, 2]/$CellContext`k) (1 + 
            2 $CellContext`\[Mu]$$)^(-2)) ((1 + $CellContext`\[Mu]$$)^2 - (
           2 $CellContext`k) (1 + 
            2 $CellContext`\[Mu]$$)^2 + ($CellContext`k + (
              2 $CellContext`k) $CellContext`\[Mu]$$)^2)}, {$CellContext`k, 0,
          1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 8}, 0, 
         10}, {{$CellContext`\[Gamma]$$, 0.2}, 0, 1}, {$CellContext`c$$, 0, 
         1}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {237., 244.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7400724139938383`*^9, 3.7400724269111905`*^9}, 
   3.7400731386134396`*^9, {3.7400734505931144`*^9, 3.740073497795644*^9}, 
   3.740073612960961*^9, {3.740114224419612*^9, 3.740114243551491*^9}, 
   3.7403814607545834`*^9, 3.7405733792619996`*^9, 3.7407411098694935`*^9, 
   3.7408013336466036`*^9, 3.740827434473873*^9, {3.765968184055936*^9, 
   3.7659682130034995`*^9}, 3.7659683341913724`*^9, {3.7659702588208003`*^9, 
   3.765970301247306*^9}, {3.765970345400156*^9, 3.765970378195485*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Preparing", " ", "relevant", " ", "boundaries"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"F1m", "\[Equal]", "0"}], ",", "c"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "\[Equal]", "cTestTwoPart1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kswitchTest", "=", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{"%", ",", "k"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7405744630377607`*^9, 3.740574476014289*^9}, {
  3.7659709636861925`*^9, 3.7659709841315327`*^9}, {3.765971034239492*^9, 
  3.7659710405854883`*^9}, {3.7659710852230916`*^9, 3.7659710856668835`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Next", " ", "two", " ", "are", " ", "used", " ", "to", " ", "fill", " ", 
    "the", " ", "gray", " ", "areas"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Max", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"cTestTwoPart1", " ", ",", 
           RowBox[{"k", "<", "kswitchTest"}]}], "}"}], ",", 
         RowBox[{"{", " ", 
          RowBox[{"cTESTconstr", ",", 
           RowBox[{"k", ">", "kswitchTest"}]}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"cWelfaremix", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"cWelfaremix", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "<", 
            "ckswitchmix"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Re", "[", " ", 
            RowBox[{"cWelfPure", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"cWelfaremix", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ">", 
             "ckswitchmix"}], "&&", 
            RowBox[{"k", "<=", "kWelMax"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "-", "k"}], ",", 
           RowBox[{"k", ">", "kWelMax"}]}], "}"}]}], "}"}], "]"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Min", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"cTestTwoPart1", " ", ",", 
           RowBox[{"k", "<", "kswitchTest"}]}], "}"}], ",", 
         RowBox[{"{", " ", 
          RowBox[{"cTESTconstr", ",", 
           RowBox[{"k", ">", "kswitchTest"}]}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"cWelfaremix", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"cWelfaremix", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "<", 
            "ckswitchmix"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Re", "[", " ", 
            RowBox[{"cWelfPure", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"cWelfaremix", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ">", 
             "ckswitchmix"}], "&&", 
            RowBox[{"k", "<=", "kWelMax"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "-", "k"}], ",", 
           RowBox[{"k", ">", "kWelMax"}]}], "}"}]}], "}"}], "]"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"These", " ", "are", " ", "the", " ", "boundaries"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"1", "-", "k"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"cTestTwoPart1", ",", 
         RowBox[{"k", "<", "kswitchTest"}]}], "}"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{"cTESTconstr", ",", 
         RowBox[{"k", ">", "kswitchTest"}]}], "}"}]}], "}"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"cWelfaremix", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"cWelfaremix", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "<", 
          "ckswitchmix"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Re", "[", " ", 
          RowBox[{"cWelfPure", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"cWelfaremix", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ">", 
           "ckswitchmix"}], "&&", 
          RowBox[{"k", "<=", "kWelMax"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Null", ",", 
         RowBox[{"k", ">", "kWelMax"}]}], "}"}]}], "}"}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "Plotting", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Quiet", "[", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"%", ",", "%%", ",", "%%%", ",", "%%%%", ",", "%%%%%"}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0.001", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"K", ",", "\[CapitalDelta]"}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", " ", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
           RowBox[{"{", "Black", "}"}], ",", "Black", ",", "Black", ",", 
           "Black"}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"Filling", "->", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"4", "\[Rule]", "Axis"}], ",", 
           RowBox[{"5", "\[Rule]", 
            RowBox[{"{", "3", "}"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"FillingStyle", "\[Rule]", 
         RowBox[{"{", "Gray", "}"}]}]}], "\[IndentingNewLine]", "]"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"c", ",", "0.0001"}], "}"}], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "10"}], "}"}], ",", "0", ",", "150"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7405736850306034`*^9, 3.7405736865285892`*^9}, {
   3.74057382277913*^9, 3.7405740197241726`*^9}, 3.740574439664568*^9, {
   3.740574657834087*^9, 3.740574719072032*^9}, {3.7405747492252617`*^9, 
   3.7405747923520174`*^9}, {3.740574888451724*^9, 3.740575181955693*^9}, {
   3.740575232115158*^9, 3.740575237294941*^9}, 3.740575382791093*^9, {
   3.7406768234050016`*^9, 3.7406768235318184`*^9}, 3.7407227821756887`*^9, {
   3.765971045782611*^9, 3.7659710458773584`*^9}, {3.7659710887776165`*^9, 
   3.7659711490793076`*^9}, {3.7659711898848095`*^9, 
   3.7659712187695475`*^9}, {3.765973847511791*^9, 3.765973849808668*^9}, {
   3.7675310440851555`*^9, 3.7675310446355467`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0.0001, $CellContext`\[Gamma]$$ = 
    0.2, $CellContext`\[Mu]$$ = 10, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.2}, 0, 1}, {{
       Hold[$CellContext`c$$], 0.0001}, 0, 1}, {{
       Hold[$CellContext`\[Mu]$$], 10}, 0, 150}}, Typeset`size$$ = {
    450., {146., 154.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$819273$$ = 
    0, $CellContext`c$819274$$ = 0, $CellContext`\[Mu]$819275$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0.0001, $CellContext`\[Gamma]$$ = 
        0.2, $CellContext`\[Mu]$$ = 10}, "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$819273$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$819274$$, 0], 
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$819275$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Quiet[
        Plot[{
          
          Piecewise[{{((((
                 Rational[-1, 
                   4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
               1 + $CellContext`\[Mu]$$)) (1 + 
                2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + (
                5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
                9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
                7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
                2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
                 2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
                   2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 
                  5 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
                  9 $CellContext`\[Mu]$$^3)) + (((
                  2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
                 2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) (
                   1 + $CellContext`\[Mu]$$)) (1 + 
                   2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
                 3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
                  4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                    2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                    2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                    4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) \
$CellContext`\[Mu]$$^4) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((((
                    8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^4) (2 + 
                  3 $CellContext`\[Mu]$$) - ((
                   4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
                  63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
                  511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
                  257 $CellContext`\[Mu]$$^6) + ($CellContext`k $CellContext`\
\[Gamma]$$^3) (-3 + (2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                    200 $CellContext`k^2 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    4 (-4 - 199 $CellContext`k^2 + 
                    5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                    1580 $CellContext`k^2 + 
                    36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                    2 (-23 - 784 $CellContext`k^2 + 
                    14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                    624 $CellContext`k^2 + 
                    8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
                  18 $CellContext`\[Mu]$$ - (65 + 
                   4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                   12 (17 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                    3 (-147 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (-257 + 
                    34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                    56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) + \
$CellContext`\[Gamma]$$^2 (
                   1 + (2 (
                    3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                    15 + (4 $CellContext`k^2) (-43 + 
                    31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                    4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                    15 + (148 $CellContext`k^2) (-10 + 
                    7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                    1 + (16 $CellContext`k^2) (-38 + 
                    27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                    4 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                    2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
               Rational[
                1, 2]), ((((
                  Rational[-1, 
                    4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
                1 + $CellContext`\[Mu]$$)) (1 + 
                 2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + (
                 5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
                 9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
                 7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
                 2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
                  2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 
                   5 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
                   9 $CellContext`\[Mu]$$^3)) + (((
                   2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
                  2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) (
                    1 + $CellContext`\[Mu]$$)) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
                  3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
                   4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                    2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                    2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                    4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) \
$CellContext`\[Mu]$$^4) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((((
                    8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^4) (2 + 
                   3 $CellContext`\[Mu]$$) - ((
                    4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
                   63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
                   511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
                   257 $CellContext`\[Mu]$$^6) + ($CellContext`k \
$CellContext`\[Gamma]$$^3) (-3 + (
                    2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                    200 $CellContext`k^2 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    4 (-4 - 199 $CellContext`k^2 + 
                    5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                    1580 $CellContext`k^2 + 
                    36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                    2 (-23 - 784 $CellContext`k^2 + 
                    14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                    624 $CellContext`k^2 + 
                    8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
                   18 $CellContext`\[Mu]$$ - (65 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    12 (17 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                    3 (-147 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (-257 + 
                    34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                    56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) + \
$CellContext`\[Gamma]$$^2 (
                    1 + (2 (
                    3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                    15 + (4 $CellContext`k^2) (-43 + 
                    31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                    4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                    15 + (148 $CellContext`k^2) (-10 + 
                    7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                    1 + (16 $CellContext`k^2) (-38 + 
                    
                    27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                    4 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                    2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
                Rational[1, 2]) < ((((-1)/$CellContext`\[Gamma]$$) (
                 1 + (2 + $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$))/(1 + 
               3 $CellContext`\[Mu]$$ + 
               2 $CellContext`\[Mu]$$^2)) ((-(-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                   Rational[1, 2])) (1 + 
                 2 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$ (-1 + (-2 + \
((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\
\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$))}, {
            Rational[1, 2] 
             Re[(-1 - 6 $CellContext`\[Mu]$$ + (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                 13 $CellContext`\[Mu]$$^2 + (
                   7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                 12 $CellContext`\[Mu]$$^3 + (
                   8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
                 4 $CellContext`\[Mu]$$^4 + (
                   3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)^(-1) \
(-2 + 2 $CellContext`k + 
                2 $CellContext`\[Gamma]$$ - (
                 2 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
                12 $CellContext`\[Mu]$$ + (
                  16 $CellContext`k) $CellContext`\[Mu]$$ + (
                  8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                  4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
                  16 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ - 26 $CellContext`\[Mu]$$^2 + (
                  48 $CellContext`k) $CellContext`\[Mu]$$^2 + (
                  10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
                  14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
                  52 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 + (2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
                   4 $CellContext`k) $CellContext`\[Gamma]$$^4) $CellContext`\
\[Mu]$$^2 - 24 $CellContext`\[Mu]$$^3 + (
                  64 $CellContext`k) $CellContext`\[Mu]$$^3 + (
                  4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
                  16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
                  80 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 + (4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
                   16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - 
                8 $CellContext`\[Mu]$$^4 + (
                  32 $CellContext`k) $CellContext`\[Mu]$$^4 + (
                  6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
                  48 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^4 + (2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
                   18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
                  2 $CellContext`k) $CellContext`\[Gamma]$$^6) $CellContext`\
\[Mu]$$^4 - ((2 - 2 $CellContext`k - 
                   2 $CellContext`\[Gamma]$$ + (
                    2 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
                   12 $CellContext`\[Mu]$$ - (
                    16 $CellContext`k) $CellContext`\[Mu]$$ - (
                    8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + 
                   26 $CellContext`\[Mu]$$^2 - (
                    48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
                    10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (
                    14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + ((
                    52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 - ((
                    4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 + 
                   24 $CellContext`\[Mu]$$^3 - (
                    64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 - (
                    16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + ((
                    80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 - ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 + 
                   8 $CellContext`\[Mu]$$^4 - (
                    32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + ((
                    48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 - (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 - ((
                    18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 + ((
                    2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4)^2 - (
                  4 (-1 - 6 $CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                   13 $CellContext`\[Mu]$$^2 + (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                   12 $CellContext`\[Mu]$$^3 + (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
                   4 $CellContext`\[Mu]$$^4 + (
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) (-2 + 
                  2 $CellContext`k - $CellContext`k^2 + 
                  2 $CellContext`\[Gamma]$$ - (
                   2 $CellContext`k) $CellContext`\[Gamma]$$^2 + \
$CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Mu]$$ + (
                    16 $CellContext`k) $CellContext`\[Mu]$$ - (
                   8 $CellContext`k^2) $CellContext`\[Mu]$$ + (
                    8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ - 
                  26 $CellContext`\[Mu]$$^2 + (
                    48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
                   24 $CellContext`k^2) $CellContext`\[Mu]$$^2 + (
                    10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
                    14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
                    52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + ((
                    26 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
                    4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - ((
                    2 $CellContext`k^2) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - 
                  24 $CellContext`\[Mu]$$^3 + (
                    64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
                   32 $CellContext`k^2) $CellContext`\[Mu]$$^3 + (
                    4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
                    16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
                    80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + ((
                    40 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + (
                    4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - 
                  8 $CellContext`\[Mu]$$^4 + (
                    32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
                   16 $CellContext`k^2) $CellContext`\[Mu]$$^4 + (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
                    48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + ((
                    24 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
                    18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
                    9 $CellContext`k^2) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
                    2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4 + ($CellContext`k^2 $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4))^Rational[1, 2])], 
             
             And[((((Rational[-1, 
                    4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
                 1 + $CellContext`\[Mu]$$)) (1 + 
                  2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + (
                  5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
                  9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
                  7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
                  2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
                   2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 5\
 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
                    9 $CellContext`\[Mu]$$^3)) + (((
                    2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
                   2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) (
                    1 + $CellContext`\[Mu]$$)) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
                   3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
                    4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                    2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                    2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                    4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) \
$CellContext`\[Mu]$$^4) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((((
                    8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^4) (2 + 
                    3 $CellContext`\[Mu]$$) - ((
                    4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
                    63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
                    511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
                    257 $CellContext`\[Mu]$$^6) + ($CellContext`k \
$CellContext`\[Gamma]$$^3) (-3 + (
                    2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                    200 $CellContext`k^2 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    4 (-4 - 199 $CellContext`k^2 + 
                    5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                    1580 $CellContext`k^2 + 
                    36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                    2 (-23 - 784 $CellContext`k^2 + 
                    14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                    624 $CellContext`k^2 + 
                    8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
                    18 $CellContext`\[Mu]$$ - (65 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    12 (17 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                    3 (-147 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (-257 + 
                    34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                    56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) + \
$CellContext`\[Gamma]$$^2 (
                    1 + (2 (
                    3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                    15 + (4 $CellContext`k^2) (-43 + 
                    31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                    4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                    15 + (148 $CellContext`k^2) (-10 + 
                    
                    7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                    1 + (16 $CellContext`k^2) (-38 + 
                    27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                    4 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                    2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
                 Rational[1, 2]) > ((((-1)/$CellContext`\[Gamma]$$) (
                  1 + (2 + $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$))/(1 + 
                3 $CellContext`\[Mu]$$ + 
                2 $CellContext`\[Mu]$$^2)) ((-(-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + 
                  2 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$ (-1 + (-2 + \
((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\
\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$)), $CellContext`k <= (
                Rational[1, 2]/($CellContext`\[Gamma]$$^2 - 
                2 $CellContext`\[Mu]$$ + (
                  6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                11 $CellContext`\[Mu]$$^2 + (
                  19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                 2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                20 $CellContext`\[Mu]$$^3 + (
                  32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                 8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                12 $CellContext`\[Mu]$$^4 + (
                  21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                 9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4)) \
((-$CellContext`\[Gamma]$$) (-2 - 8 $CellContext`\[Mu]$$ - 
                  10 $CellContext`\[Mu]$$^2 - (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                  4 $CellContext`\[Mu]$$^3 - (
                   4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4) - \
($CellContext`\[Gamma]$$^2 (-2 - 8 $CellContext`\[Mu]$$ - 
                    10 $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                    4 $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)^2 - (
                  4 (1 + 6 $CellContext`\[Mu]$$ - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                   13 $CellContext`\[Mu]$$^2 - (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + 
                   12 $CellContext`\[Mu]$$^3 - (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + 
                   4 $CellContext`\[Mu]$$^4 - (
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) \
($CellContext`\[Gamma]$$^2 - 
                  2 $CellContext`\[Mu]$$ + (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                  11 $CellContext`\[Mu]$$^2 + (
                    19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                   2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                  20 $CellContext`\[Mu]$$^3 + (
                    32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                   8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                  12 $CellContext`\[Mu]$$^4 + (
                    21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                   9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4))^Rational[1, 2])]}, {
            Null, $CellContext`k > (Rational[1, 2]/($CellContext`\[Gamma]$$^2 - 
               2 $CellContext`\[Mu]$$ + (
                 6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
               11 $CellContext`\[Mu]$$^2 + (
                 19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
               20 $CellContext`\[Mu]$$^3 + (
                 32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
               12 $CellContext`\[Mu]$$^4 + (
                 21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4)) \
((-$CellContext`\[Gamma]$$) (-2 - 8 $CellContext`\[Mu]$$ - 
                 10 $CellContext`\[Mu]$$^2 - (
                  2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                 4 $CellContext`\[Mu]$$^3 - (
                  4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                  2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4) - \
($CellContext`\[Gamma]$$^2 (-2 - 8 $CellContext`\[Mu]$$ - 
                   10 $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                   4 $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)^2 - (
                 4 (1 + 6 $CellContext`\[Mu]$$ - (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                  13 $CellContext`\[Mu]$$^2 - (
                   7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + 
                  12 $CellContext`\[Mu]$$^3 - (
                   8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + 
                  4 $CellContext`\[Mu]$$^4 - (
                   3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) \
($CellContext`\[Gamma]$$^2 - 
                 2 $CellContext`\[Mu]$$ + (
                   6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                 11 $CellContext`\[Mu]$$^2 + (
                   19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                  2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                 20 $CellContext`\[Mu]$$^3 + (
                   32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                  8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                 12 $CellContext`\[Mu]$$^4 + (
                   21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                  9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4))^Rational[1, 2])}}, 0], 
          
          Piecewise[{{((Rational[1, 2]/(1 + 
               2 $CellContext`\[Mu]$$)) (-1 + $CellContext`k - $CellContext`\
\[Mu]$$ + (2 $CellContext`k) $CellContext`\[Mu]$$)^(-2)) (2 - 
              5 $CellContext`k + 4 $CellContext`k^2 - $CellContext`k^3 - 
              2 $CellContext`\[Gamma]$$ + (
                4 $CellContext`k) $CellContext`\[Gamma]$$ - (
               2 $CellContext`k^2) $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - (
               2 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + \
$CellContext`k^3 $CellContext`\[Gamma]$$^2 + 
              6 $CellContext`\[Mu]$$ - (
               22 $CellContext`k) $CellContext`\[Mu]$$ + (
                22 $CellContext`k^2) $CellContext`\[Mu]$$ - (
               6 $CellContext`k^3) $CellContext`\[Mu]$$ - (
               6 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + ((
                 18 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$ - ((
                12 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$ + ((
                 4 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ - ((
                10 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ + ((
                 6 $CellContext`k^3) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ + 6 $CellContext`\[Mu]$$^2 - (
               30 $CellContext`k) $CellContext`\[Mu]$$^2 + (
                40 $CellContext`k^2) $CellContext`\[Mu]$$^2 - (
               12 $CellContext`k^3) $CellContext`\[Mu]$$^2 - (
               6 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + ((
                 26 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^2 - ((
                24 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^2 + ((
                 5 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 - ((
                16 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 + ((
                 12 $CellContext`k^3) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + 
              2 $CellContext`\[Mu]$$^3 - (
               12 $CellContext`k) $CellContext`\[Mu]$$^3 + (
                24 $CellContext`k^2) $CellContext`\[Mu]$$^3 - (
               8 $CellContext`k^3) $CellContext`\[Mu]$$^3 - (
               2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + ((
                 12 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^3 - ((
                16 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^3 + ((
                 2 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 - ((
                8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 + ((
                 8 $CellContext`k^3) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3), $CellContext`k < (
               Rational[
                1, 2]/($CellContext`\[Gamma]$$ + (
                 4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                 4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2)) (
               1 + $CellContext`\[Gamma]$$ + 
               4 $CellContext`\[Mu]$$ + (
                 3 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + 
               4 $CellContext`\[Mu]$$^2 + (
                 2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (1 + 
                2 $CellContext`\[Mu]$$) (1 - 
                 2 $CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2 + 
                 4 $CellContext`\[Mu]$$ - (
                  2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                 4 $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]$$^2 \
$CellContext`\[Mu]$$^2)^Rational[1, 2])}, {
            Rational[1, 4] (
              2 - (($CellContext`k $CellContext`\[Gamma]$$^2) (
                4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$))^
              Rational[1, 2] - $CellContext`k (
               2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), \
$CellContext`k > (
               Rational[
                1, 2]/($CellContext`\[Gamma]$$ + (
                 4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                 4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2)) (
               1 + $CellContext`\[Gamma]$$ + 
               4 $CellContext`\[Mu]$$ + (
                 3 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + 
               4 $CellContext`\[Mu]$$^2 + (
                 2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (1 + 
                2 $CellContext`\[Mu]$$) (1 - 
                 2 $CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2 + 
                 4 $CellContext`\[Mu]$$ - (
                  2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                 4 $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]$$^2 \
$CellContext`\[Mu]$$^2)^Rational[1, 2])}}, 0], 1 - $CellContext`k, 
          Min[
           
           Piecewise[{{((Rational[1, 2]/(1 + 
                
                2 $CellContext`\[Mu]$$)) (-1 + $CellContext`k - $CellContext`\
\[Mu]$$ + (2 $CellContext`k) $CellContext`\[Mu]$$)^(-2)) (2 - 
               5 $CellContext`k + 4 $CellContext`k^2 - $CellContext`k^3 - 
               2 $CellContext`\[Gamma]$$ + (
                 4 $CellContext`k) $CellContext`\[Gamma]$$ - (
                2 $CellContext`k^2) $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - (
                2 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + \
$CellContext`k^3 $CellContext`\[Gamma]$$^2 + 
               6 $CellContext`\[Mu]$$ - (
                22 $CellContext`k) $CellContext`\[Mu]$$ + (
                 22 $CellContext`k^2) $CellContext`\[Mu]$$ - (
                6 $CellContext`k^3) $CellContext`\[Mu]$$ - (
                6 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + ((
                  18 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$ - ((
                 12 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$ + ((
                  4 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ - ((
                 10 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + ((
                  6 $CellContext`k^3) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + 
               6 $CellContext`\[Mu]$$^2 - (
                30 $CellContext`k) $CellContext`\[Mu]$$^2 + (
                 40 $CellContext`k^2) $CellContext`\[Mu]$$^2 - (
                12 $CellContext`k^3) $CellContext`\[Mu]$$^2 - (
                6 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + ((
                  26 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^2 - ((
                 24 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^2 + ((
                  5 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 - ((
                 16 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + ((
                  12 $CellContext`k^3) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + 
               2 $CellContext`\[Mu]$$^3 - (
                12 $CellContext`k) $CellContext`\[Mu]$$^3 + (
                 24 $CellContext`k^2) $CellContext`\[Mu]$$^3 - (
                8 $CellContext`k^3) $CellContext`\[Mu]$$^3 - (
                2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + ((
                  12 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^3 - ((
                 16 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^3 + ((
                  2 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 - ((
                 8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 + ((
                  8 $CellContext`k^3) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3), $CellContext`k < (
                Rational[
                 1, 2]/($CellContext`\[Gamma]$$ + (
                  4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                  4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2)) (
                1 + $CellContext`\[Gamma]$$ + 
                4 $CellContext`\[Mu]$$ + (
                  3 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + 
                4 $CellContext`\[Mu]$$^2 + (
                  2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (1 + 
                 2 $CellContext`\[Mu]$$) (1 - 
                  2 $CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2 + 
                  4 $CellContext`\[Mu]$$ - (
                   2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                  4 $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]$$^2 \
$CellContext`\[Mu]$$^2)^Rational[1, 2])}, {
             Rational[1, 4] (
               2 - (($CellContext`k $CellContext`\[Gamma]$$^2) (
                 4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$))^
               Rational[1, 2] - $CellContext`k (
                2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), \
$CellContext`k > (
                Rational[
                 1, 2]/($CellContext`\[Gamma]$$ + (
                  4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                  4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2)) (
                1 + $CellContext`\[Gamma]$$ + 
                4 $CellContext`\[Mu]$$ + (
                  3 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + 
                4 $CellContext`\[Mu]$$^2 + (
                  2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (1 + 
                 2 $CellContext`\[Mu]$$) (1 - 
                  2 $CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2 + 
                  4 $CellContext`\[Mu]$$ - (
                   2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                  4 $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]$$^2 \
$CellContext`\[Mu]$$^2)^Rational[1, 2])}}, 0], 
           Piecewise[{{((((
                  Rational[-1, 
                    4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
                1 + $CellContext`\[Mu]$$)) (1 + 
                 2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + (
                 5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
                 9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
                 7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
                 2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
                  2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 
                   5 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
                   9 $CellContext`\[Mu]$$^3)) + (((
                   2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
                  2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) (
                    1 + $CellContext`\[Mu]$$)) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
                  3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
                   4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                    2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                    2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                    4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) \
$CellContext`\[Mu]$$^4) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((((
                    8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^4) (2 + 
                   3 $CellContext`\[Mu]$$) - ((
                    4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
                   63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
                   511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
                   257 $CellContext`\[Mu]$$^6) + ($CellContext`k \
$CellContext`\[Gamma]$$^3) (-3 + (
                    2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                    200 $CellContext`k^2 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    4 (-4 - 199 $CellContext`k^2 + 
                    5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                    1580 $CellContext`k^2 + 
                    36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                    2 (-23 - 784 $CellContext`k^2 + 
                    14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                    624 $CellContext`k^2 + 
                    8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
                   18 $CellContext`\[Mu]$$ - (65 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    12 (17 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                    3 (-147 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (-257 + 
                    34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                    56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 
                    2]) $CellContext`\[Mu]$$^6) + $CellContext`\[Gamma]$$^2 (
                    1 + (2 (
                    3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                    15 + (4 $CellContext`k^2) (-43 + 
                    31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                    4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                    15 + (148 $CellContext`k^2) (-10 + 
                    7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                    1 + (16 $CellContext`k^2) (-38 + 
                    27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                    4 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                    2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
                Rational[
                 1, 2]), ((((
                   Rational[-1, 
                    4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
                 1 + $CellContext`\[Mu]$$)) (1 + 
                  2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + (
                  5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
                  9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
                  7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
                  2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
                   2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 
                    5 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
                    9 $CellContext`\[Mu]$$^3)) + (((
                    2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
                   2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) (
                    1 + $CellContext`\[Mu]$$)) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
                   3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
                    4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                    2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                    2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                    4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) \
$CellContext`\[Mu]$$^4) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((((
                    8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^4) (2 + 
                    3 $CellContext`\[Mu]$$) - ((
                    4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
                    63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
                    511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
                    257 $CellContext`\[Mu]$$^6) + ($CellContext`k \
$CellContext`\[Gamma]$$^3) (-3 + (
                    2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                    200 $CellContext`k^2 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    4 (-4 - 199 $CellContext`k^2 + 
                    5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                    1580 $CellContext`k^2 + 
                    36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                    2 (-23 - 784 $CellContext`k^2 + 
                    14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                    624 $CellContext`k^2 + 
                    8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
                    18 $CellContext`\[Mu]$$ - (65 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    12 (17 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                    3 (-147 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (-257 + 
                    34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                    56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) + \
$CellContext`\[Gamma]$$^2 (
                    1 + (2 (
                    3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                    15 + (4 $CellContext`k^2) (-43 + 
                    31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                    4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                    15 + (148 $CellContext`k^2) (-10 + 
                    7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                    1 + (16 $CellContext`k^2) (-38 + 
                    27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                    4 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                    2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
                 Rational[1, 2]) < ((((-1)/$CellContext`\[Gamma]$$) (
                  1 + (2 + $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$))/(1 + 
                3 $CellContext`\[Mu]$$ + 
                2 $CellContext`\[Mu]$$^2)) ((-(-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + 
                  2 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$ (-1 + (-2 + \
((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\
\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$))}, {
             Rational[1, 2] 
              Re[(-1 - 6 $CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                  13 $CellContext`\[Mu]$$^2 + (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                  12 $CellContext`\[Mu]$$^3 + (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
                  4 $CellContext`\[Mu]$$^4 + (
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)^(-1) \
(-2 + 2 $CellContext`k + 
                 2 $CellContext`\[Gamma]$$ - (
                  2 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Mu]$$ + (
                   16 $CellContext`k) $CellContext`\[Mu]$$ + (
                   8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                   4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
                   16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ - 
                 26 $CellContext`\[Mu]$$^2 + (
                   48 $CellContext`k) $CellContext`\[Mu]$$^2 + (
                   10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
                   14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
                   52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + (
                   2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
                    4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - 
                 24 $CellContext`\[Mu]$$^3 + (
                   64 $CellContext`k) $CellContext`\[Mu]$$^3 + (
                   4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
                   16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
                   80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + (
                   4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - 
                 8 $CellContext`\[Mu]$$^4 + (
                   32 $CellContext`k) $CellContext`\[Mu]$$^4 + (
                   6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
                   48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + (
                   2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
                    18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
                   2 $CellContext`k) $CellContext`\[Gamma]$$^6) $CellContext`\
\[Mu]$$^4 - ((2 - 2 $CellContext`k - 
                    2 $CellContext`\[Gamma]$$ + (
                    2 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
                    12 $CellContext`\[Mu]$$ - (
                    16 $CellContext`k) $CellContext`\[Mu]$$ - (
                    8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + 
                    26 $CellContext`\[Mu]$$^2 - (
                    48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
                    10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (
                    14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + ((
                    52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 - ((
                    4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 + 
                    24 $CellContext`\[Mu]$$^3 - (
                    64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 - (
                    16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + ((
                    80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 - ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 + 
                    8 $CellContext`\[Mu]$$^4 - (
                    32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + ((
                    48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 - (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 - ((
                    18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 + ((
                    2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4)^2 - (
                   4 (-1 - 6 $CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                    13 $CellContext`\[Mu]$$^2 + (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                    12 $CellContext`\[Mu]$$^3 + (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
                    4 $CellContext`\[Mu]$$^4 + (
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) (-2 + 
                   2 $CellContext`k - $CellContext`k^2 + 
                   2 $CellContext`\[Gamma]$$ - (
                    2 $CellContext`k) $CellContext`\[Gamma]$$^2 + \
$CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Mu]$$ + (
                    16 $CellContext`k) $CellContext`\[Mu]$$ - (
                    8 $CellContext`k^2) $CellContext`\[Mu]$$ + (
                    8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ - 
                   26 $CellContext`\[Mu]$$^2 + (
                    48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
                    24 $CellContext`k^2) $CellContext`\[Mu]$$^2 + (
                    10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
                    14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
                    52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + ((
                    26 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
                    4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - ((
                    2 $CellContext`k^2) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - 
                   24 $CellContext`\[Mu]$$^3 + (
                    64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
                    32 $CellContext`k^2) $CellContext`\[Mu]$$^3 + (
                    4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
                    16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
                    80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + ((
                    40 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + (
                    4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - 
                   8 $CellContext`\[Mu]$$^4 + (
                    32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
                    16 $CellContext`k^2) $CellContext`\[Mu]$$^4 + (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
                    48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + ((
                    24 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
                    18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
                    9 $CellContext`k^2) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
                    2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4 + ($CellContext`k^2 $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4))^Rational[1, 2])], 
              And[((((
                    Rational[-1, 
                    4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
                  1 + $CellContext`\[Mu]$$)) (1 + 
                   2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + \
(5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
                   9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
                   7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
                    2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 
                    5 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
                    9 $CellContext`\[Mu]$$^3)) + (((
                    2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
                    2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) \
(1 + $CellContext`\[Mu]$$)) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
                    3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
                    4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                    2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                    2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                    4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) \
$CellContext`\[Mu]$$^4) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((((
                    8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^4) (2 + 
                    3 $CellContext`\[Mu]$$) - ((
                    4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
                    63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
                    511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
                    257 $CellContext`\[Mu]$$^6) + ($CellContext`k \
$CellContext`\[Gamma]$$^3) (-3 + (
                    2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                    200 $CellContext`k^2 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    4 (-4 - 199 $CellContext`k^2 + 
                    5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                    1580 $CellContext`k^2 + 
                    36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                    2 (-23 - 784 $CellContext`k^2 + 
                    14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                    624 $CellContext`k^2 + 
                    8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
                    18 $CellContext`\[Mu]$$ - (65 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    12 (17 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                    3 (-147 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (-257 + 
                    34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                    56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 
                    2]) $CellContext`\[Mu]$$^6) + $CellContext`\[Gamma]$$^2 (
                    1 + (2 (
                    3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                    15 + (4 $CellContext`k^2) (-43 + 
                    31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                    4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                    15 + (148 $CellContext`k^2) (-10 + 
                    7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                    1 + (16 $CellContext`k^2) (-38 + 
                    27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                    4 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                    2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
                  Rational[1, 2]) > ((((-1)/$CellContext`\[Gamma]$$) (
                   1 + (2 + $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$))/(
                 1 + 3 $CellContext`\[Mu]$$ + 
                 2 $CellContext`\[Mu]$$^2)) ((-(-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + 
                   2 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$ (-1 + \
(-2 + ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\
\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$)), $CellContext`k <= (
                 Rational[1, 2]/($CellContext`\[Gamma]$$^2 - 
                 2 $CellContext`\[Mu]$$ + (
                   6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                 11 $CellContext`\[Mu]$$^2 + (
                   19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                  2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                 20 $CellContext`\[Mu]$$^3 + (
                   32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                  8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                 12 $CellContext`\[Mu]$$^4 + (
                   21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                  9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4)) \
((-$CellContext`\[Gamma]$$) (-2 - 8 $CellContext`\[Mu]$$ - 
                   10 $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                   4 $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4) - \
($CellContext`\[Gamma]$$^2 (-2 - 8 $CellContext`\[Mu]$$ - 
                    10 $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                    4 $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)^2 - (
                   4 (1 + 6 $CellContext`\[Mu]$$ - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                    13 $CellContext`\[Mu]$$^2 - (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + 
                    12 $CellContext`\[Mu]$$^3 - (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + 
                    4 $CellContext`\[Mu]$$^4 - (
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) \
($CellContext`\[Gamma]$$^2 - 
                   2 $CellContext`\[Mu]$$ + (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                   11 $CellContext`\[Mu]$$^2 + (
                    19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                   20 $CellContext`\[Mu]$$^3 + (
                    32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                   12 $CellContext`\[Mu]$$^4 + (
                    21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                    9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4))^Rational[1, 2])]}, {
             1 - $CellContext`k, $CellContext`k > (
                Rational[1, 2]/($CellContext`\[Gamma]$$^2 - 
                2 $CellContext`\[Mu]$$ + (
                  6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                11 $CellContext`\[Mu]$$^2 + (
                  19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                 2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                20 $CellContext`\[Mu]$$^3 + (
                  32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                 8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                12 $CellContext`\[Mu]$$^4 + (
                  21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                 9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4)) \
((-$CellContext`\[Gamma]$$) (-2 - 8 $CellContext`\[Mu]$$ - 
                  10 $CellContext`\[Mu]$$^2 - (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                  4 $CellContext`\[Mu]$$^3 - (
                   4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4) - \
($CellContext`\[Gamma]$$^2 (-2 - 8 $CellContext`\[Mu]$$ - 
                    10 $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                    4 $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)^2 - (
                  4 (1 + 6 $CellContext`\[Mu]$$ - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                   13 $CellContext`\[Mu]$$^2 - (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + 
                   12 $CellContext`\[Mu]$$^3 - (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + 
                   4 $CellContext`\[Mu]$$^4 - (
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) \
($CellContext`\[Gamma]$$^2 - 
                  2 $CellContext`\[Mu]$$ + (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                  11 $CellContext`\[Mu]$$^2 + (
                    19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                   2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                  20 $CellContext`\[Mu]$$^3 + (
                    32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                   8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                  12 $CellContext`\[Mu]$$^4 + (
                    21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                   9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4))^Rational[1, 2])}}, 0]], 
          Max[
           
           Piecewise[{{((Rational[1, 2]/(1 + 
                2 $CellContext`\[Mu]$$)) (-1 + $CellContext`k - $CellContext`\
\[Mu]$$ + (2 $CellContext`k) $CellContext`\[Mu]$$)^(-2)) (2 - 
               5 $CellContext`k + 4 $CellContext`k^2 - $CellContext`k^3 - 
               2 $CellContext`\[Gamma]$$ + (
                 4 $CellContext`k) $CellContext`\[Gamma]$$ - (
                2 $CellContext`k^2) $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - (
                2 $CellContext`k^2) $CellContext`\[Gamma]$$^2 + \
$CellContext`k^3 $CellContext`\[Gamma]$$^2 + 
               6 $CellContext`\[Mu]$$ - (
                22 $CellContext`k) $CellContext`\[Mu]$$ + (
                 22 $CellContext`k^2) $CellContext`\[Mu]$$ - (
                6 $CellContext`k^3) $CellContext`\[Mu]$$ - (
                6 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + ((
                  18 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$ - ((
                 12 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$ + ((
                  4 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$ - ((
                 10 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + ((
                  6 $CellContext`k^3) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + 
               6 $CellContext`\[Mu]$$^2 - (
                30 $CellContext`k) $CellContext`\[Mu]$$^2 + (
                 40 $CellContext`k^2) $CellContext`\[Mu]$$^2 - (
                12 $CellContext`k^3) $CellContext`\[Mu]$$^2 - (
                6 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + ((
                  26 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^2 - ((
                 24 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^2 + ((
                  5 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^2 - ((
                 16 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + ((
                  12 $CellContext`k^3) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + 
               2 $CellContext`\[Mu]$$^3 - (
                12 $CellContext`k) $CellContext`\[Mu]$$^3 + (
                 24 $CellContext`k^2) $CellContext`\[Mu]$$^3 - (
                8 $CellContext`k^3) $CellContext`\[Mu]$$^3 - (
                2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + ((
                  12 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^3 - ((
                 16 $CellContext`k^2) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$^3 + ((
                  2 $CellContext`k) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 - ((
                 8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) $CellContext`\
\[Mu]$$^3 + ((
                  8 $CellContext`k^3) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3), $CellContext`k < (
                Rational[
                 1, 2]/($CellContext`\[Gamma]$$ + (
                  4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                  4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2)) (
                1 + $CellContext`\[Gamma]$$ + 
                4 $CellContext`\[Mu]$$ + (
                  3 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + 
                4 $CellContext`\[Mu]$$^2 + (
                  2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (1 + 
                 2 $CellContext`\[Mu]$$) (1 - 
                  2 $CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2 + 
                  4 $CellContext`\[Mu]$$ - (
                   2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                  4 $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]$$^2 \
$CellContext`\[Mu]$$^2)^Rational[1, 2])}, {
             Rational[1, 4] (
               2 - (($CellContext`k $CellContext`\[Gamma]$$^2) (
                 4 + ($CellContext`k (-4 + $CellContext`\[Gamma]$$)) \
$CellContext`\[Gamma]$$))^
               Rational[1, 2] - $CellContext`k (
                2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), \
$CellContext`k > (
                Rational[
                 1, 2]/($CellContext`\[Gamma]$$ + (
                  4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                  4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2)) (
                1 + $CellContext`\[Gamma]$$ + 
                4 $CellContext`\[Mu]$$ + (
                  3 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + 
                4 $CellContext`\[Mu]$$^2 + (
                  2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (1 + 
                 2 $CellContext`\[Mu]$$) (1 - 
                  2 $CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2 + 
                  4 $CellContext`\[Mu]$$ - (
                   2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                  4 $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]$$^2 \
$CellContext`\[Mu]$$^2)^Rational[1, 2])}}, 0], 
           
           Piecewise[{{((((
                  Rational[-1, 
                    4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
                1 + $CellContext`\[Mu]$$)) (1 + 
                 2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + (
                 5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
                 9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
                 7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
                 2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
                  2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 
                   5 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
                   9 $CellContext`\[Mu]$$^3)) + (((
                   2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
                  2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) (
                    1 + $CellContext`\[Mu]$$)) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
                  3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
                   4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                    2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                    2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                    4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) \
$CellContext`\[Mu]$$^4) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((((
                    8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^4) (2 + 
                   3 $CellContext`\[Mu]$$) - ((
                    4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
                   63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
                   511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
                   257 $CellContext`\[Mu]$$^6) + ($CellContext`k \
$CellContext`\[Gamma]$$^3) (-3 + (
                    2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                    200 $CellContext`k^2 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    4 (-4 - 199 $CellContext`k^2 + 
                    5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                    1580 $CellContext`k^2 + 
                    36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                    2 (-23 - 784 $CellContext`k^2 + 
                    14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                    624 $CellContext`k^2 + 
                    8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
                   18 $CellContext`\[Mu]$$ - (65 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    12 (
                    17 + ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                    3 (-147 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (-257 + 
                    34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                    56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) + \
$CellContext`\[Gamma]$$^2 (
                    1 + (2 (
                    3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                    15 + (4 $CellContext`k^2) (-43 + 
                    31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                    4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                    15 + (148 $CellContext`k^2) (-10 + 
                    7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                    1 + (16 $CellContext`k^2) (-38 + 
                    27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                    4 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                    2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
                Rational[
                 1, 2]), ((((
                   Rational[-1, 
                    4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
                 1 + $CellContext`\[Mu]$$)) (1 + 
                  2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + (
                  5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
                  9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
                  7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
                  2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
                   2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 
                    5 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
                    9 $CellContext`\[Mu]$$^3)) + (((
                    2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
                   2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) (
                    1 + $CellContext`\[Mu]$$)) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
                   3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
                    4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                    2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                    2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                    4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) \
$CellContext`\[Mu]$$^4) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((((
                    8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^4) (2 + 
                    3 $CellContext`\[Mu]$$) - ((
                    4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
                    63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
                    511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
                    257 $CellContext`\[Mu]$$^6) + ($CellContext`k \
$CellContext`\[Gamma]$$^3) (-3 + (
                    2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                    200 $CellContext`k^2 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    4 (-4 - 199 $CellContext`k^2 + 
                    5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                    1580 $CellContext`k^2 + 
                    36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                    2 (-23 - 784 $CellContext`k^2 + 
                    14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                    624 $CellContext`k^2 + 
                    8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
                    18 $CellContext`\[Mu]$$ - (65 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    12 (17 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                    3 (-147 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (-257 + 
                    34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                    56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) + \
$CellContext`\[Gamma]$$^2 (
                    1 + (2 (
                    3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                    15 + (4 $CellContext`k^2) (-43 + 
                    31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                    4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                    15 + (148 $CellContext`k^2) (-10 + 
                    7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                    1 + (16 $CellContext`k^2) (-38 + 
                    27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                    4 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                    2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
                 Rational[1, 2]) < ((((-1)/$CellContext`\[Gamma]$$) (
                  1 + (2 + $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$))/(1 + 
                3 $CellContext`\[Mu]$$ + 
                2 $CellContext`\[Mu]$$^2)) ((-(-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + 
                  2 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$ (-1 + (-2 + \
((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\
\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$))}, {
             Rational[1, 2] 
              Re[(-1 - 6 $CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                  13 $CellContext`\[Mu]$$^2 + (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                  12 $CellContext`\[Mu]$$^3 + (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
                  4 $CellContext`\[Mu]$$^4 + (
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)^(-1) \
(-2 + 2 $CellContext`k + 
                 2 $CellContext`\[Gamma]$$ - (
                  2 $CellContext`k) $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Mu]$$ + (
                   16 $CellContext`k) $CellContext`\[Mu]$$ + (
                   8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                   4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
                   16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ - 
                 26 $CellContext`\[Mu]$$^2 + (
                   48 $CellContext`k) $CellContext`\[Mu]$$^2 + (
                   10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
                   14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
                   52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + (
                   2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
                    4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - 
                 24 $CellContext`\[Mu]$$^3 + (
                   64 $CellContext`k) $CellContext`\[Mu]$$^3 + (
                   4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
                   16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
                   80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + (
                   4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - 
                 8 $CellContext`\[Mu]$$^4 + (
                   32 $CellContext`k) $CellContext`\[Mu]$$^4 + (
                   6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
                   48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + (
                   2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
                    18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
                   2 $CellContext`k) $CellContext`\[Gamma]$$^6) $CellContext`\
\[Mu]$$^4 - ((2 - 2 $CellContext`k - 
                    2 $CellContext`\[Gamma]$$ + (
                    2 $CellContext`k) $CellContext`\[Gamma]$$^2 + 
                    12 $CellContext`\[Mu]$$ - (
                    16 $CellContext`k) $CellContext`\[Mu]$$ - (
                    8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + 
                    26 $CellContext`\[Mu]$$^2 - (
                    48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
                    10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 - (
                    14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + ((
                    52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 - ((
                    4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 + 
                    24 $CellContext`\[Mu]$$^3 - (
                    64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 - (
                    16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + ((
                    80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 - ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 + 
                    8 $CellContext`\[Mu]$$^4 - (
                    32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + ((
                    48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 - (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 - ((
                    18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 + ((
                    2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4)^2 - (
                   4 (-1 - 6 $CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                    13 $CellContext`\[Mu]$$^2 + (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                    12 $CellContext`\[Mu]$$^3 + (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - 
                    4 $CellContext`\[Mu]$$^4 + (
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) (-2 + 
                   2 $CellContext`k - $CellContext`k^2 + 
                   2 $CellContext`\[Gamma]$$ - (
                    2 $CellContext`k) $CellContext`\[Gamma]$$^2 + \
$CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Mu]$$ + (
                    16 $CellContext`k) $CellContext`\[Mu]$$ - (
                    8 $CellContext`k^2) $CellContext`\[Mu]$$ + (
                    8 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$ + (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ + ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$ - 
                   26 $CellContext`\[Mu]$$^2 + (
                    48 $CellContext`k) $CellContext`\[Mu]$$^2 - (
                    24 $CellContext`k^2) $CellContext`\[Mu]$$^2 + (
                    10 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^2 + (
                    14 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - ((
                    52 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + ((
                    26 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^2 + (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^2 + ((
                    4 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - ((
                    2 $CellContext`k^2) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^2 - 
                   24 $CellContext`\[Mu]$$^3 + (
                    64 $CellContext`k) $CellContext`\[Mu]$$^3 - (
                    32 $CellContext`k^2) $CellContext`\[Mu]$$^3 + (
                    4 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$^3 + (
                    16 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - ((
                    80 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + ((
                    40 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^3 + (
                    4 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^3 + ((
                    16 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - ((
                    8 $CellContext`k^2) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^3 - 
                   8 $CellContext`\[Mu]$$^4 + (
                    32 $CellContext`k) $CellContext`\[Mu]$$^4 - (
                    16 $CellContext`k^2) $CellContext`\[Mu]$$^4 + (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - ((
                    48 $CellContext`k) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + ((
                    24 $CellContext`k^2) $CellContext`\[Gamma]$$^2) \
$CellContext`\[Mu]$$^4 + (
                    2 $CellContext`\[Gamma]$$^3) $CellContext`\[Mu]$$^4 + ((
                    18 $CellContext`k) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
                    9 $CellContext`k^2) $CellContext`\[Gamma]$$^4) \
$CellContext`\[Mu]$$^4 - ((
                    2 $CellContext`k) $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4 + ($CellContext`k^2 $CellContext`\[Gamma]$$^6) \
$CellContext`\[Mu]$$^4))^Rational[1, 2])], 
              
              And[((((Rational[-1, 
                    4]/$CellContext`k) $CellContext`\[Gamma]$$^(-2))/(
                  1 + $CellContext`\[Mu]$$)) (1 + 
                   2 $CellContext`\[Mu]$$)^(-3)) ($CellContext`\[Gamma]$$^2 + \
(5 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + (
                   9 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + (
                   7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 + \
(($CellContext`k^2 $CellContext`\[Gamma]$$^2) (1 + 
                    2 $CellContext`\[Mu]$$)) (((-2) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2 + $CellContext`\[Gamma]$$^2 (1 + 
                    5 $CellContext`\[Mu]$$ + 11 $CellContext`\[Mu]$$^2 + 
                    9 $CellContext`\[Mu]$$^3)) + (((
                    2 $CellContext`k) $CellContext`\[Gamma]$$) (1 + 
                    2 $CellContext`\[Mu]$$)) ((((-2) $CellContext`\[Gamma]$$) \
(1 + $CellContext`\[Mu]$$)) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) (1 + 2 $CellContext`\[Mu]$$)^2) (2 + 
                    3 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$^2 (-1 - 
                    4 $CellContext`\[Mu]$$ + (-7 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2]) $CellContext`\[Mu]$$^2 + (-5 + 
                    2 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^3)) + (((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) ($CellContext`\[Gamma]$$ + (
                    2 $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$)^2) ((((
                    
                    4 $CellContext`k^3) $CellContext`\[Gamma]$$^7) \
$CellContext`\[Mu]$$^4) (1 + 
                    2 $CellContext`\[Mu]$$)^2 - ((((
                    8 $CellContext`k^2) (-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^4) (2 + 
                    3 $CellContext`\[Mu]$$) - ((
                    4 $CellContext`\[Gamma]$$^6) $CellContext`\[Mu]$$^4) \
($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2 - \
($CellContext`k^3 $CellContext`\[Gamma]$$^5) (1 + 10 $CellContext`\[Mu]$$ + 
                    63 $CellContext`\[Mu]$$^2 + 240 $CellContext`\[Mu]$$^3 + 
                    511 $CellContext`\[Mu]$$^4 + 566 $CellContext`\[Mu]$$^5 + 
                    257 $CellContext`\[Mu]$$^6) + ($CellContext`k \
$CellContext`\[Gamma]$$^3) (-3 + (
                    2 (-7 + 10 $CellContext`k^2)) $CellContext`\[Mu]$$ - (17 - 
                    200 $CellContext`k^2 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    4 (-4 - 199 $CellContext`k^2 + 
                    5 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^3 - (-55 - 
                    1580 $CellContext`k^2 + 
                    36 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^4 - (
                    2 (-23 - 784 $CellContext`k^2 + 
                    14 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 - (-13 - 
                    624 $CellContext`k^2 + 
                    8 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) (-3 - 
                    18 $CellContext`\[Mu]$$ - (65 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$^2 - (
                    12 (17 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^3 + (
                    3 (-147 + 
                    4 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (-257 + 
                    34 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^5 + (-243 + 
                    56 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[
                    1, 2]) $CellContext`\[Mu]$$^6) + \
$CellContext`\[Gamma]$$^2 (
                    1 + (2 (
                    3 + (2 $CellContext`k^2) (-4 + 
                    3 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$ + (
                    15 + (4 $CellContext`k^2) (-43 + 
                    31 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^2 + (
                    4 (5 + $CellContext`k^2 (-180 + 
                    127 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^3 + (
                    15 + (148 $CellContext`k^2) (-10 + 
                    7 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + \
$CellContext`\[Gamma]$$^2))^Rational[1, 2])) $CellContext`\[Mu]$$^4 + (
                    2 (3 + (16 $CellContext`k^2) (-47 + 
                    33 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^Rational[1, 2]))) $CellContext`\[Mu]$$^5 + (
                    1 + (16 $CellContext`k^2) (-38 + 
                    27 ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) \
(-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) $CellContext`\[Mu]$$^6) - ((((
                    4 $CellContext`k) $CellContext`\[Gamma]$$) $CellContext`\
\[Mu]$$) (1 + 
                    2 $CellContext`\[Mu]$$)^2) ((-(-1 + ((-(-1 + \
$CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + $CellContext`\[Mu]$$)^3 + (
                    2 (2 + 3 $CellContext`\[Mu]$$)) ($CellContext`k + (
                    2 $CellContext`k) $CellContext`\[Mu]$$)^2)))^
                  Rational[1, 2]) > ((((-1)/$CellContext`\[Gamma]$$) (
                   1 + (2 + $CellContext`\[Gamma]$$) $CellContext`\[Mu]$$))/(
                 1 + 3 $CellContext`\[Mu]$$ + 
                 2 $CellContext`\[Mu]$$^2)) ((-(-1 + ((-(-1 + $CellContext`k \
$CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\[Gamma]$$^2))^
                    Rational[1, 2])) (1 + 
                   2 $CellContext`\[Mu]$$) + $CellContext`\[Gamma]$$ (-1 + \
(-2 + ((-(-1 + $CellContext`k $CellContext`\[Gamma]$$)^2) (-1 + $CellContext`\
\[Gamma]$$^2))^Rational[1, 2]) $CellContext`\[Mu]$$)), $CellContext`k <= (
                 Rational[1, 2]/($CellContext`\[Gamma]$$^2 - 
                 2 $CellContext`\[Mu]$$ + (
                   6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                 11 $CellContext`\[Mu]$$^2 + (
                   19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                  2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                 20 $CellContext`\[Mu]$$^3 + (
                   32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                  8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                 12 $CellContext`\[Mu]$$^4 + (
                   21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                  9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4)) \
((-$CellContext`\[Gamma]$$) (-2 - 8 $CellContext`\[Mu]$$ - 
                   10 $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                   4 $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4) - \
($CellContext`\[Gamma]$$^2 (-2 - 8 $CellContext`\[Mu]$$ - 
                    10 $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                    4 $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)^2 - (
                   4 (1 + 6 $CellContext`\[Mu]$$ - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                    13 $CellContext`\[Mu]$$^2 - (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + 
                    12 $CellContext`\[Mu]$$^3 - (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + 
                    4 $CellContext`\[Mu]$$^4 - (
                    
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) \
($CellContext`\[Gamma]$$^2 - 
                   2 $CellContext`\[Mu]$$ + (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                   11 $CellContext`\[Mu]$$^2 + (
                    19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                   20 $CellContext`\[Mu]$$^3 + (
                    32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                   12 $CellContext`\[Mu]$$^4 + (
                    21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                    9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4))^Rational[1, 2])]}, {
             1 - $CellContext`k, $CellContext`k > (
                Rational[1, 2]/($CellContext`\[Gamma]$$^2 - 
                2 $CellContext`\[Mu]$$ + (
                  6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                11 $CellContext`\[Mu]$$^2 + (
                  19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                 2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                20 $CellContext`\[Mu]$$^3 + (
                  32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                 8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                12 $CellContext`\[Mu]$$^4 + (
                  21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                 9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4)) \
((-$CellContext`\[Gamma]$$) (-2 - 8 $CellContext`\[Mu]$$ - 
                  10 $CellContext`\[Mu]$$^2 - (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                  4 $CellContext`\[Mu]$$^3 - (
                   4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                   2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4) - \
($CellContext`\[Gamma]$$^2 (-2 - 8 $CellContext`\[Mu]$$ - 
                    10 $CellContext`\[Mu]$$^2 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - 
                    4 $CellContext`\[Mu]$$^3 - (
                    4 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)^2 - (
                  4 (1 + 6 $CellContext`\[Mu]$$ - (
                    2 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ + 
                   13 $CellContext`\[Mu]$$^2 - (
                    7 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 + 
                   12 $CellContext`\[Mu]$$^3 - (
                    8 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 + 
                   4 $CellContext`\[Mu]$$^4 - (
                    3 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4)) \
($CellContext`\[Gamma]$$^2 - 
                  2 $CellContext`\[Mu]$$ + (
                    6 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$ - 
                  11 $CellContext`\[Mu]$$^2 + (
                    19 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^2 - (
                   2 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^2 - 
                  20 $CellContext`\[Mu]$$^3 + (
                    32 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^3 - (
                   8 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^3 - 
                  12 $CellContext`\[Mu]$$^4 + (
                    21 $CellContext`\[Gamma]$$^2) $CellContext`\[Mu]$$^4 - (
                   9 $CellContext`\[Gamma]$$^4) $CellContext`\[Mu]$$^4 + \
$CellContext`\[Gamma]$$^6 $CellContext`\[Mu]$$^4))^Rational[1, 2])}}, 
            0]]}, {$CellContext`k, 0.001, 1}, PlotRange -> {0, 1}, 
         AxesLabel -> {K, $CellContext`\[CapitalDelta]}, 
         PlotStyle -> {{Black, Thick}, {Black}, Black, Black, Black}, 
         Filling -> {4 -> Axis, 5 -> {3}}, FillingStyle -> {Gray}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.2}, 0, 
         1}, {{$CellContext`c$$, 0.0001}, 0, 1}, {{$CellContext`\[Mu]$$, 10}, 
         0, 150}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {238., 245.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.740573835837878*^9, 3.740574020204481*^9}, 
   3.7405744421732454`*^9, 3.740574498596377*^9, {3.7405746717250824`*^9, 
   3.740574689067192*^9}, {3.7405747784319763`*^9, 3.740574792761104*^9}, {
   3.7405748908882055`*^9, 3.7405749131825275`*^9}, {3.7405749483029785`*^9, 
   3.7405749721504326`*^9}, {3.740575003485812*^9, 3.740575090445196*^9}, {
   3.740575164670701*^9, 3.7405751825432568`*^9}, 3.740575384571823*^9, 
   3.7406768241670904`*^9, 3.7407227890759993`*^9, 3.7407411107278557`*^9, 
   3.7408013344878426`*^9, 3.7408274351616917`*^9, 3.765971153123458*^9, {
   3.7659711956583343`*^9, 3.765971219339019*^9}, 3.765973850296338*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Figure", " ", "4", " ", "in", " ", "the", " ", "paper"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"parameters", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Gamma]", "\[Rule]", "0.4"}], ",", 
       RowBox[{"\[Mu]", "\[Rule]", "2"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Next", " ", "two", " ", "are", " ", "used", " ", "to", " ", "fill", " ", 
     "the", " ", "gray", " ", "areas"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Max", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Piecewise", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"cTestTwoPart1", " ", ",", 
            RowBox[{"k", "<", "kswitchTest"}]}], "}"}], ",", 
          RowBox[{"{", " ", 
           RowBox[{"cTESTconstr", ",", 
            RowBox[{"k", ">", "kswitchTest"}]}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Piecewise", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"cWelfaremix", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"cWelfaremix", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "<", 
             "ckswitchmix"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Re", "[", " ", 
             RowBox[{"cWelfPure", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"cWelfaremix", "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ">", 
              "ckswitchmix"}], "&&", 
             RowBox[{"k", "<=", "kWelMax"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "k"}], ",", 
            RowBox[{"k", ">", "kWelMax"}]}], "}"}]}], "}"}], "]"}]}], "]"}], "/.",
      "parameters"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Min", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Piecewise", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"cTestTwoPart1", " ", ",", 
            RowBox[{"k", "<", "kswitchTest"}]}], "}"}], ",", 
          RowBox[{"{", " ", 
           RowBox[{"cTESTconstr", ",", 
            RowBox[{"k", ">", "kswitchTest"}]}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Piecewise", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"cWelfaremix", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"cWelfaremix", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "<", 
             "ckswitchmix"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Re", "[", " ", 
             RowBox[{"cWelfPure", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"cWelfaremix", "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ">", 
              "ckswitchmix"}], "&&", 
             RowBox[{"k", "<=", "kWelMax"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "k"}], ",", 
            RowBox[{"k", ">", "kWelMax"}]}], "}"}]}], "}"}], "]"}]}], "]"}], "/.",
      "parameters"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"These", " ", "are", " ", "the", " ", "boundaries"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "-", "k"}], "/.", "parameters"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cTestTwoPart1", " ", ",", 
          RowBox[{"k", "<", "kswitchTest"}]}], "}"}], ",", 
        RowBox[{"{", " ", 
         RowBox[{"cTESTconstr", ",", 
          RowBox[{"k", ">", "kswitchTest"}]}], "}"}]}], "}"}], "]"}], "/.", 
     "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"cWelfaremix", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"cWelfaremix", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "<", 
           "ckswitchmix"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Re", "[", " ", 
           RowBox[{"cWelfPure", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"cWelfaremix", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ">", 
            "ckswitchmix"}], "&&", 
           RowBox[{"k", "<=", "kWelMax"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Null", ",", 
          RowBox[{"k", ">", "kWelMax"}]}], "}"}]}], "}"}], "]"}], "/.", 
     "parameters"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "Plotting", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Figure4", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", "%%", ",", "%%%", ",", "%%%%", ",", "%%%%%"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0.001", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.1"}], "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "K", ",", 
          "\"\<\!\(\*SubscriptBox[\(c\), \(2\)]\)-\!\(\*SubscriptBox[\(c\), \
\(1\)]\)\>\""}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", " ", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", "Black", ",", "Black", ",", 
          "Black"}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "8"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1.1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Arrowheads", "[", 
         RowBox[{"{", 
          RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Filling", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"4", "\[Rule]", "Axis"}], ",", 
          RowBox[{"5", "\[Rule]", 
           RowBox[{"{", "3", "}"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"FillingStyle", "\[Rule]", 
        RowBox[{"{", "Gray", "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"PlotPoints", "\[Rule]", "1000"}]}], "\[IndentingNewLine]", 
      "]"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure4.pdf\>\"", ",", "Figure4"}], "]"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.732888682938962*^9, 3.732888720653963*^9}, {
   3.7328887590234823`*^9, 3.732888773057062*^9}, {3.7328888126273403`*^9, 
   3.732888923212778*^9}, {3.7328889555213985`*^9, 3.7328889710503516`*^9}, {
   3.732889061387287*^9, 3.732889062929139*^9}, {3.732889203911458*^9, 
   3.732889301663131*^9}, {3.732889339405588*^9, 3.732889347786707*^9}, 
   3.732889379929554*^9, {3.7328894822538395`*^9, 3.732889534628327*^9}, {
   3.732889565388169*^9, 3.732889591336404*^9}, {3.732889701965727*^9, 
   3.7328897500449095`*^9}, {3.7405745786493883`*^9, 3.740574607372815*^9}, {
   3.7405752170671177`*^9, 3.740575315736664*^9}, {3.740575348916952*^9, 
   3.740575356352786*^9}, {3.7406768351805553`*^9, 3.7406768353486795`*^9}, {
   3.740722671596496*^9, 3.740722676226858*^9}, {3.740722724466091*^9, 
   3.7407227253093724`*^9}, 3.7407227955111732`*^9, 3.740810991170085*^9, 
   3.740811039851472*^9, {3.7659712814289274`*^9, 3.765971381929085*^9}, {
   3.7659714535285587`*^9, 3.7659714835880976`*^9}, {3.765973786997672*^9, 
   3.7659737953901825`*^9}, {3.765973857635672*^9, 3.765973859815896*^9}, {
   3.7659738996692705`*^9, 3.765973912891889*^9}, {3.7659740080972247`*^9, 
   3.76597406265024*^9}, {3.7675310252260504`*^9, 3.7675310359324646`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxsvHlYzV3090/I0IA0yJBkSqMoKcObSFGIRDJVoiREKqWiQdFAaRSSoUlz
p6N5nqczdJpP8zxQiWQoPfs8v+/3/uO5fv5xva9zPnuvtfZar7X2ud2f9ca3
T13lmjNnToHQnDmcv53MavuOG+tgzv/8qWgWlpU/MQgT+13fJIto+H/1u+c2
s7OzY/99P3mjsFGALRPrpP1eP4w9DNnCYS8LDybM+zsWaDENMSx3ZElICBOl
giIlbXkW2JjBdcsqholHrDYufsl7+LNwzhzZDCbcHJl9yQ/ssHyzR59KJRPZ
BQqObPmHKFp06vfGFiZujn4c+73LBROL7k/kDTGxt/zKPXaxG4ybtiDhDxMa
C+U9dR564JbF6kz7JbVwk52X38/liSx6yJPQ1bWoV3SbiqN447HOnT3mMrXw
+nekk+fEcwwH+oit3FMLbaZAbmOLL/w+7TgteqwWt41cd49veAGW69r0Xxdq
cf81b66yrj/OyPjdlr5VCx2zIbvXwQE4M3GZl/9hLWZErHO6mYH45nC3kfas
Fq7qfQ8ufA8CrYH/Z/dbsp9QCFN6awgOT46q1SfWIlXqlX3q4ZfYrSBlbZtX
i4UnxZ5InQ/FnT1jfywYtRA/OZ23y/UV1Hh/JezvrEWzU1f2uP9r6MV6fjb9
VovNii6lH9PeoM/0/od9XCwcDH4nLFUbhmVDMbnfl7Pg3Nl3VKPhLRxUrspO
S7BgtkNpy2mbcLgeN6ns3s5Cb/rCMp+f4VjonKttp8ZCdZ6L9ae771Dj8l7i
ii4Lj3f+9febege5I5Wbpa+wIKUv2zd25z0Y7Q+cDt9jIUDQOJDx4z3G/J5k
LX/MgrpNTYO71QfELG7enBXAAnV8yGL94AdE6FD60iJYWKBauG3I5CP2XGDW
vqCy4KJE069p/AhBZbsVBaUsHNWXzn95KgLX5R1U3jaysPjM/W02FRE496XQ
5/wAC03X5u5r3BkJr/v+Sjd+sbChe98Cemwk9CuieM4tqsN1dvbkI5EovFcW
KfspUoevtpdFEh5GQdZ6WcOAZB0oO+fZbhyLgq7tsRVpu+ogYVTpR9WLRpam
4MfmI3XIYdiI6BRFI1x556o4gzqUeQvon5ONgfjIq9wL5nW46vlSvu1ZDLpu
en02fFAHS/1bTWJTMdhHzW1V86rDvWaqHu/ZT1i56thgXWgddGyuilRRPmHH
8asambF1mFBeUjIrHIuhwwV1jll1eHJkv7LK3Vh08kdRA6rr8L1z9HI8KxZW
rxjFT1vrkFKkbqcnG0fySC9D7gvZz1fKb9o1DnW5V+ZumamDgaXqpZedccif
ptrO8NbD31zLIE8pHqOLXxzYIlaPdF8N5fe+8XipWDE+R74eBtnbfO8PxqNj
wyFa+r56bMu3pMmoJOBat+Zs0Yl6RHoIORk8T8CTq36X4i/XQ7LlXpBfewK2
cCt9OHy7HiWiKXtXSCdikY3x7h2P6mFC/b6J5pAIt0+suf+e14OutFapqywR
BxJoq9e8q4fCqRd60zxJeEDfuHo4uR5Xcu82Rm1Pgg41VzOooB5Lu7MCN59J
gql5d0VgbT10dUrEFzkkQbT3iJ1Vdz1OlkbNZ4YlgVd2t8PH7/UY+tOk01OU
BAd/D5PH8xtgIDm3L2YgCR65Ig8OCTZAbamPmeOiZNSlK/Sd2dSA71vrNjlI
JyPb9rmjhlIDPonPXf9KKxnrT2v+HTjUgAj2Ke5A82SUzXpWs/UacDH9nckb
r2QsslxeHX+1AcPupXOGYpLhlbh+HcumATKR28ylK4nm9Tkb7dGA+44tMQeH
krFZbk/u+eAGvP/FN6dwQQq41lnfN45uwPbl4VOrNqbAru6boUZ6A95GdQ2P
IAW3oirkWssaMLX2jOtngxR8PCKtU9zUAP+rrj37bVNgncR46znYgAql1Mwr
finw6J9V+/i7AVUkp7bFp0Cx667g68WNkH1Xdi+yNAWXf++vOijaiInVPJTN
HSmo6gyp3yfViLyAt3k7f6eg1luRf6VqI9bXOxcsXU7BqkUGoYe0GvFg4pX6
FSkKOsNbeNZfaMS/ulUS2WoUHPgXFsu+0YidfqFrZ/Qp6JH6Gjbk0IilNvIq
by0pEF/zML/euxGTlPv3VNwpaJGyKLvzuhHVF7z5fodS0LCoZ71RfCNu92T7
zk2m4Gbsm09yOY2Q5Nmhta6EAvW13e4naI1YfaGG624LBaFxzpriHeRzic7X
faMUeM65uos+2oh+9pk7XnNTkb2h9gFzthHe0tccjgul4imP69fkpU1Yvn9V
1KktqQguzEnpE2/CQcpzhqFqKiSCdS9WKDTh5besgjDtVGhuk93pdaAJ/u9r
ylUupiIpxNc4/FQTtvz83V52KxWUEuUcf+MmLDEqu1bglIody1Rndt5tguWQ
4p2Fz1LxY2upr6xrE35cuBIpFZYKnUVBp7j8m8AruusOKy4Vo9QxU6mPTUhX
HzbWyE7FYuePxlzUJlSXxqXMq0pF3rI3XunFTSg3WZ14uSkVn2+vW1RY34SZ
3Ovad/qJff59KTF9TfC8ZPpX/nsq9Ou4Dx6YbILA2bD6k7OpiOlN3izD3YwC
hnuRIC8VgRnhuyaFmhG5/LXMGxEqCi+Khi3f0oyoebfzqRuouLnu62CbcjMk
NHg8ZeWpoETMN36iQb4vpbHNVYUK1b8Rcu76zTDVXlh++hAVF4S8thqbNWPX
iEz+suNU5P37betn14zldfNP7dKnInxBcaylZzNS+prtqoyoWMNk8smFku9f
mX1maE5F843rRftim/Fe/lLyMSsqFKoORclmNeNf0dYmzQdUcGs+sKyubMb1
J30lZS5UrA3Y7ZPLbobi+XMrvD2poH9E07ORZgQGPLK+50f8cauxSZluBmOe
bfOLECq2u3z+85ivBXUeywwU3lKx91BPnPLaFsS4Xp5eHEGFZ/3LlD1yLSjo
v6nKHUvFXemA/nX7WiDbmjiikURFY9jQbMqxFvxuXnpZnEqFY1e5xctLLZAP
uNW0JJOK3MGRhZdutaDSMfvOiVwqDuSF/LR+2IJfenEvgwupuGzwdIXF8xZw
SUg0HCql4o9AvZDA2xZQVqTN8a+goiH00w2epBZUDbxJZlVTcWygaKw7rwV/
fp154EMn/s8zLeNjtiAsWatcupaKPXuuug12teCl8LY3pnVU8KlG3X73rQVa
84Kfb2ugYt1Cq4R4LjZeWH9TqWmkojrEZXWIABusxWKac5upmNL4enO7BBuS
WYtvDhB9pbRrhfgONra+uKXq10KF+eJVgyNqbNKX+5X6iE5Z3bqU5zQbG8Iq
PowRbav1e02LCRt5iaKD0UQ3wUDf4x4bxyrqt6wj2n6e+oDHYzY8XgzP2UPW
T/Oy+ngtkI3TbY4P1jVRodQjTQ2JZOOXU0DBa2Kvgj5i7dPYmFXNPlhL/Cn3
C6KrlrGRJdIU1kn8DQ+11TjexIbI1D8zOwYVK8xef8UgG/GhAVd/1FAxT3eN
XdcUG2/y1uqqVpH1+TbrNyxqRci+39N/y6jg8ra6GrOyFbseKE4lFVOxrOVo
KX1rK2qFqoLq86l4pe7IG6naCud5tyQKs6kosP7+yOBoKzTVStZT0qnYav1d
0/h8K5Z7nFJbkEqFjIoyNG+0YnjRt3cmiVTErWpY1W7fCr2R1e5vPpH6qfp3
pMyrFcKfsiK3kvyq2H8j6tmrVgy2h25gkfwzfWykHxPXCtGMsNvFL4l/z14p
v89uxVVloXdsfyrOULdNH60m65VISNf5kHyIPSGo0daKnHVJ3As9qOi4mmKw
/msrQl/esLj9iNTnWNiP4/9acTheiGehHRXzg/utZJa2QejflR2Od6gY57q7
flCsDWuN0vx2kXpbu89DYkq+DY9FdFlCxlT07e082Ys2fKf46O03oELqfMA1
5xNtWFq1/f65U1Qka9TS7hi2gWvF0QyPI1Swfule3W9Jvr+F8mf5ASp22l0+
YezcBhVJhZZIZSqERUrFFF+0wUnhWcwWOSpe2Fmu6X3XhnV01wMrNlFxIvbj
zYGUNuw/ZtgwvYqKqHdrvpYXtuHZLr0K/eVUOFDHThrUtsFmzZumxIXk+RDt
Jehpw8Kzf6p+Tafi0P6v43O/t6EjbdniwolUKKeJSK+c3442qpuy1UAqSiYe
+/MKtuM4nXdpXGsqGFonupI2tMM3WDqjn5mKNffeu0QrtkNQ8KLfTEkq5hup
nHI61A5LHttXMZmpkF1rYB2l1w5rQaUtkgmpYP2sd3x0rR3pX+rmRb5LhWBg
YKqyTTueTuZ/LA0k/YOrY5+aRzt29FEkEp6kgqpoMSUV3E7mgWvn4UB473Y6
sCiyHe9ey7HabqdC5kOpe2JaO26K18wqG6fig7tDpF1ZO5zeVCRr6qXigkq2
aHBTOyR8u0d4NFLxYvHZuyZD7Rgpmppp3pWKK2FKv5f+boeWaID5DelUWHOF
sfiXdGB7wc1TH9eQ/iV9tHVEtAOzWv1bo/hTsXzDo11rpDsgeTj/ueYsBY67
lttP7+7A8DpFwb9jFLgJ9A9lanXgn2/1PLcuCqqzDsVXX+jA16ufC8KZFCRu
HQjLtuiAvo7oqdBCCpZSe60vOHSglDrASKZQkLzUIvyETweeBabRT32gYFRO
+bf4mw40t+4zbfWnwGKtd4R6QgcYbccXDLhQYLp1j/KqvA44HMrT5btLwcxv
+alqWgd8r8nxShpTUP8yfgmrowM9b/UCMnQo0Px3SzttrAOK9F1B6vsp2PXI
y0prtgPXA5Zc/y1PAXVwpa3ook5MjmvtXyVGwavvPlrTSzvRff3uJ5YeBRL9
ZRVPVnZiy6LWqAHi/8/MDZfdxDuR/O2FovcrMg+IyQ6cleyEcmrN34MKVORc
/7uyflsnXI50z/chvNkXPGJUsKsTVJ0pnyvGn2EYF3767IFOvD0yfPzuzGcc
0JmnWnKkE6Vp+uGFL9Jwu8Fj5/uTnVDr9I1+vDod+w4xWyUNOhEjOCW9MT4d
BgF7QsWMOzESxeyN3p4BJSu9o1+ud+JM3+jAGUoGklV2fLxytxPHVxZ+ebon
E/bd24WO2nci1FqadjEzE713p+RbXDqRd2BB9I39WeB9cX2vmlcnJjSeVWUV
ZMHFf8ZI1L8T7KAhxXO7svHS4cy20FedsGqS39X5ORszGkwhzw+d8D8/M8Ij
nQOuv8siNsR1Qsi/0rotMgcle/5tDkztRI72Ij0zsVw0GPLlW2d34pSuuJWM
dy6eWHRxzSnphNnIjl/ac/PgYdB44Xd1J5p1I9QnLPKg3mgfU1nXidbMBacH
6/LwYXfPW/W2Tqz3XbHj7/p8nHC5GS/f14ko6YH78/Ty8Top26Toayd+bZHO
s/fKR9TNDH75n524e7FLaF1+PubwNdEX/+vEfbm3Aw/H8/HbP0v1GXcXont7
8+U3FmD/TH62M38XZEXvaGfqFkB90krhmHAXcpzp9xKcCzBSN3KiUKwLt1iS
LFZKATqCHj+O3NwFlaqvbO7OAljt7zVRlO/C3NaMeaeWFaL0/vjOUOUunM3Q
mLsYhTD1FxO/jS4M6qdt+Xe9ENGByylfNbrQr3rJdCy4EMr2my+yT3ThfNG5
EOXCQlw7PCf5rn4Xqj4uppmMFeL0O4+pLsMuXH58oG/N6iL4tm/TyzfrgsFl
uJ49WASLeW8vaN7pwodbbbsu3ipC0BL5B7DrQldEU8HfwCI4hVt48zt34c5p
8caT2UVYKHZbw+NpF+K/Lysw6CtCu6O/6G2/LvzRa8mQ4CkmfcMhcE5oFxL8
vx18uqMYXq9WzDd/34WlainPogyKwX+6+qnapy4Yz5yNj3EqxvYfRzKKU7rg
o7rnyo6IYny0GZqlZnaBObG1kFJeTOamnSoPC7tw01v+5fKRYkQ80lwzUdmF
K5K0B11LS1B03kG4rrYL9wprgsoVSuAiZp15md0FDbkfNUvPlOB50XNrg54u
eF5h2T+0LYHB1NkNsiNdMD+2NqEjuASlAn32Md+7MPb3ZYtXZgkeLgsYCvjb
hbc1YmZOLSVonlzIJTW/G/XPzm6Lmy7BxPWtfMG83TipeSe/Ym0p9PMt5K0E
u+F59Wvy0T2luPzv3t9fa7px5/bN2O8XSkERe9v+dWM3Sg4n9PE/KEVpjU1q
pkw3fNbqJiqHlMLeZIWiglI3vunM3LFJK8WDNmal8N5uUIo9LQ/UlZJ+qccT
qd6NrdGwWPG9FI6y7vv4jnfDacq07duyMkjPNj3p0evGy+vv66xlymCfPu5w
5VI3qH03Ho0dKYPwaaknp651Q3CuY+zqq2XQbZTcO3KrG7vXdd+XdynD8aG6
3vO23ejZ5RV0KawMwW3vP+x+2A0v/k+pZ9PL4JyhxFvi0Y3gEzbyknVlSLcd
9sp53g3Gv9xM2tcyJBRr//MJ7kaZ6KPsaO5yHPpttWpReDdq0mILjq4vh+Sy
nGPforpxbG+UcJNKOeL5q6TckrrhUjSQIX66HOOv3P+MpnfjRBfd+tXNcjjz
mHSV53dj/tJALeHH5Ugx5r6rXdGN7HDH2L1h5VB4XSkKZjcUjnUzblPLcdtk
T+ri5m4ERMvfGKoqxzFBq1+OXd3Qno59Pbe3HHaRVbpGQ92ouxhprfynHIfF
h/RHv3XjSxfrwhyBChg6SFoP/+7GgpM3R8e3VEDFVMgtd24PfFeL6+zYW4EU
lbI9e5b0IEPDx/2vbgXsRkN5twr0gBsbJWfMKtDlucM9b1UPvleUJto9rMDC
z3YTsht6EN970PdwYAUeFHVZ80j3QO72jPalmAo8T+f/8GJHDwwqnSV7cyvw
7fnFgSe7e+Dt8Lkup7YCy3+eEzt7sAd+O2+U/u6rQO3B1bM0rR4IZvXkBP8h
+1n9+0nV7UFlKY/tS75K+HpFhhy+0IN/b2eUv6+vxD+FaZlEkx4cqF6VF69U
iYxMqyZ3ix783Lo4i61RCSHpJNlF1j3oHTvHfeZ8JfIc+UN/OfRAMaatXutm
JbZcXvU7360HuzytfVKcKrFNcmTuDp8e1NncvW/gVwl3Vtt6wcAemDJSjnm/
r4TjtcCRsDc9YPIvl/6ZWolC9q3qkIgeRFSsCfxWUomSjsm35vE9cGYm+F5t
qMT1qgNr+6k92Hem/w/3YCUMXiYmM3J6MM1jFKrxqxJfjnePmZT2IOSh7lDc
4irs9S8UZ9J6cNJ1v87TVVVgZxSbxTX04KngcXMBqSqsKvcyUOjoQVzZ/H6q
ahWi0u9d2TTQgy+Jylx8R6swocxz+dtoD3Q2+K4Y0q9Ce9i1+aZTPVj0qTWn
3qwKIoM9+VqzPbhq12TjYluFbys3b2lZ2Iv7Mjxpyh5V8GwSerR/WS8W+nba
WgZVwdJ+y7jQyl48vuMQYP2xClPz/i0OFO9FuPuRJDtKFapu/1R1leyFUpPr
fZ2CKuwvogitVujFA9GvHmKMKtyLEOvxVOlFduKGzzbtVZi8Hlt2/UAvitIW
HIkfIfYIz+hNHOnFvfv5XLW/q+D+0fLvEJmQE+wiN7G5q5Fa4Oefca4XS3Zr
37VfUQ3XUtv67ca9SDLtVJ4Vr8bb+Idyq817ESZN2WslW40LDtoK8Xd7Yac5
HVCiWo3G5tLNIg96saebLyVOoxrhold2jLv0Yv3RWrqPbjWWHCgeuuvVi9Tl
L4oPGVaj4KhGmol/L+7M8OHvjWoo99jayr3qhe0WEa+TttU4duVm17sPvbjG
L/fa2rUaySVuxm6xvfAK9pb68Kwan5ca+SxL7YXJoqzG4NBqLNpzmc6T3Yvx
9tSjryKqITq1ZH5HUS8OPomOPZhUjcqXD7rPV/dC9bPq9disalSI8Tdp1PVC
Jl7BTrq0Gte9rtq2tfbC21vP2YRZjTJ388Vafb2IbR/edKC1GlYmfilbvvZi
ulU9FP3VyNvquCBhshe33UZvjo1X4xzT8/aHmV6EnHMeL/lTjZSFh6stF/TB
0k2BfmR+DWI3ldYO8PVh0uwt3Za/BhObzMZrhPoQtb7zZL1IDZr56GkXxfqw
TkZutmF9DR669dwp2dyHjTz+BW7SNbBqEz34Wq4Pu58415gr1pB+KZS7RrkP
Sw0jh7/urcHQ/u06vOjD2tbZ2vjDNbihJegdodGHA02b+Bfo1CCu90OmsE4f
+IXTv/Ceq8FuQ705U2f7YN0/ucDAqAbmRVVjjwz78FRWJFTZvAYDi0x+2pn1
YaGAec6luzWQaIsZO2rZh/y15+VgX4N/IakvSu73YV9ZyIsYlxpIKndpJz7q
Q43mmStXPYl/2bVJak/7YDEzXRrxogYPmHcWJvj1QbbX9lBYaA1Olm+3fvKy
D2t6u+ePv6tBeWS6N+97Yp9/4Ne8mBr4mBpmzcb04WHWjNjXpBosS6O2Vib3
Yc6VSpuWtBoojtKjkNmH1NIXDcirQcRCXs8NhX1oSH3FWFxag7RFfMLJlX2o
Fw0sO1xTA5Ev8hnxtX0oO+6q8oVVA6VLc064tPRhni//fb2WGvxIC3w2p6cP
FzOulUl31WDOD+2+r8N9CN0yG35noAbxIhV9bt/78DngROy60RqIVk40ff9L
ntftM/T9UYPaS/t6mPP64WZ2PM72Tw1k2MeDz/H247f5qG7BHBpYKs7GOoL9
0LL6LfeYmwaVLUbi69b04/Cs3jcBXhr2Ty94EryxHzfqnjvOLKchgFLN/VCm
H6sF/tSZidDw9JS+/DKlfkR76BjKrKVh7yO/o3Z7+yHLxZWdLkHDPt8vDifV
+9Hyr/J+9RYaOj14z7GO9WOgK3FkuywNdKPj2sV6/RjnoYpv3E6DY+Xe7T4X
+5F07+tg704aqldNFMxe7YfVGb4t33fTYHas3KzrZj88q3+derGfhgjTKxkW
Nv34dD3yvb06DfIm4utNnfrBw+jcOHWEhvtjng9U3Pux8o+r2uHjNBgbZz6k
PuvHpAndovkUDS/TeF6FB/VDat3DQu6zNNz5sd5Q6W0/xJZ6/LA6T8PC/D6R
91H9CJH+k5VymYaRm1X9jon9UFCMjfK7QoPlPJvL89L70S1rfT3WlAa1B2pj
U3kkHr+6LpvdIPF1zr5TXNYPTSE5vplbNMy3/PtGldEPjZLYgrK7NLjuv9C1
rqkfb1T61Hfb0PDhlzMtoZP4L/G8tdOOBmfoJQgN9cPGmSp70ZGGeLOjESPj
/djIahv2eESDnd38wzd+96NKSvFPhysN/hadM+fmDkD087EzQ+40HNdwvjyx
eACRm7Jk13jSUJZEpxgLDODFmN1TSR8ank1jndqqAXxrXPN+5DkNk/LWilUS
A2iauvCS9YKGT+rVhkVSA6B+TxGxDqRBbJjx0H/7AOR7dRIng2nYbhOqybd7
AJ7hxZlBoSQ/eh9L/lQbwHx3RfOfr2kIUt2Z8kRrAMafVUbuvqXh7LoAue+6
A1A0dwypeUfDtf4VhdXnByAgO77oywcahAL1Z0+YDCB48a4vEpE0CGzO01Wz
GMBhrt07xKNpqFFnhfLeG4BB1qrBOZ9o2HoszuuRwwD+fR/vmIwl8d4Z5X/F
bQDCqi58n+NpWLvIVH3cewA1aud4PRJpoGZp8n8JGMD5vKO0Tck08PxrrMh7
PQDWxUmdTyk0cEnKyO+NGMD4oqUvdqfSoKH4PnZr/ABSpXzU31JpkJFsY+ZR
SXzZny7yptHA+FQyLJs7gF7DN2cvpdNQsJSxiqd0AG86z9t4ZNCge+HtDz/a
AJR8KsapmTTs8PLt82gYgPKpz79ysmhgaspX6LWT8zDXTU3MpmHZ6IszNf0D
OMF34uv7HBpeW6/8SxkdgNDAL/F7uTRU9BofOTQ1AMFU+w8H84g/3QaecbMD
eL6gj2ua6NHCe92uCwex2LO1JiifhnJP3d75ywYhdGN4uUwBDWOKp2d+iAzC
7smjRZFEp5WK5j8THwRFbellkUJSrwPe1nO2DmI/151sK6IFhterdW0bhOgK
C7EMoj3qHqTfUBnE+g6VjRNEH3k3pX71wCAWlHReFS6ioXJavHTnkUGcOH5g
rRTRc/6fPxt3c/8pHmrB4ePDGnr1VASJ8z3f8qcFI/ea3i5upOIn/U/v+yVs
xLFmnlo2UWE8nnbo6io21C1klB2bqZD1GNgfI8XG+6urEg+3UNE/MDOzYDfR
M3tkiol+JvD3wQMtNgZpl9t/EB1AMQ+6e4GNsQOvDzYQHV0Sk5lkwYbz0rkx
FkTHvKO/XejIxuv5BtFpZP0QjVZ1Wx829N35bD6T/W3S6HGzb8j+l5ZrmhH7
KG+UkhYnsnEhc2p3AbHf7PTtkI55nfgm6MC/bAsFkrd0u5bwkvt/3/GOFCEK
2r988lQT7MQDH1sJnVgKWDOf2w+sGUSOR+2GLhL/P2dYoWUbSbzqb/VokHhG
mzWyx2UGoVRhfzeEaO2O446blQbhFXdkppHowUyVh2Z7B2FteFGHm8R3yQle
7uPqgxhtClKSIPq82Mrz944NwrGB94gc0UlZSnkNfS1QCZjM66yj4pSswcPe
yRZ88ygve9tAhefI5yPR3GzIPtmvtJ74G3xobZKTMBv108W2B0g8XpiaN97c
zMb8+5siRUm8NjaOLVqhzMZskP63OKKnfZak7NBg4ym9JIrze/UH0w2sffps
FAsdvcf5Pdv3CfNGiRkbR3YVfPMmOn9c0KHsPhv73mmMfiXrP43wDXr4lI0M
HTPzv2T/oHfvJCkv2dgbdvlmKYn3vfyk7cxPbNjY7bmlQOxV81wVUzi3E3Mk
Wo66S1NwS3qnjMCSTgh58w8NiFKwx3LNjXUCnUjoFK5IeESB0csFt1avGoSJ
ys3txSTeTc9sZGMlBvEqaWDnNhLP71tSon9JDSJkwXCIO9GJJukd83YMYo+z
8KYKotPLWlab7x6E5ZuTOdNES/2aG3nu4CCuTIxUriHxfeHz2ldPaxBZ3MEl
MkQbpe579Iaf5O+V/apZxB+Z16eatcTYSGnXeJJK/C2PNPnUK8fGqmBDz1uc
fPzF8/3XPjb+2a78yslP8eAR9aITbGif3dnKyV/32eRzkYZs5DmIChZy4sfl
svi1JRsDj7KXahL94pRnkYYzG9Mtt/UdyPrPxIo9phd0QrdSiRokQUF3kmXQ
PP5OGLWrXBGRo+BizDT/kNwglB88PhJD/Bk+17fqiPIgaL7OUX1Er0wI6b6G
QahLFbTxE3+GI4SvqWkMIqx3X+Tm//Kr6X/yKxc/H9S86+hpwdp6vsKPJL+S
KI+mCr+3wNWjrdGMnNfp34LTn+azIUr1rp4i55kySr/qJciGStrK0fXE3uLG
WAmdjWz4zyuWn0v8KaaZPRNVYsNynVvEW6IpWgI1S9XZsJ1vKjxC9KeCh982
nmFDTkNPhqPnm18tpl9jozlG3/YV0dohyuZRNmxUd+bLLCTapW4419WDDTMd
1wNryH6RQZ793sFsbPJ7EPyd2FN3cvR7ajQbh22HKabEXvlNlgqpczqhfqN6
b74sBQKeUUyhxZ1QGOW7MXcNBV8U9Nh8yzsRVrLigeYNUu8DcUqLRAk/J54f
opL8Kpcq//l6/SDpUzfHN5B4hnisez5NeDqUtEzLkWjDLV99JxQGoTgZrFFA
tPhx6WFz1UFwP/LxmyI6s3ra+rLaII7tTU8TJfGWK7kkffjoIAJ9lgZJEy1T
+Hp7OC8bpvw+NkEkvzQOL3iuv4aNEFuTmy+Jf3+EIydLZdhQ6tVSO0/81xh3
uz+7hw29ldWraUQ3nv5u+PYYG1bWu90mifY5x3/f+xL5/OfzqmqiFXuFjCNv
kfqXOtlvQLTYn7jkLQ/ZSDdyehdK1n+QIbpsdH4n3KKNSlgbKXi8tHv3Qr5O
vKEqOW9eRQHXYvPJL7KDiC86+i+c+PNqzapq5Z2D5F619lc70Y8Uh5JM9w3C
kzs3bQnxx95++U7Nw4M4f3WTz0ai8/v18l2PD2Jh5so3HH4ZTkl6e0mSfNnn
yNhG7HncYePKq8LGoThpsQyi1RlcwWePEN7r6A5PEP2aryxV34CNtjPfH7QT
vSZq74oscza5Lz0/60h0VXWxOz9PJ2pf3cqsEaEgdMPCBt1Dg/AO8ni7juz3
U69l0kR7EA3u/bGyRC+e639zYj8bx1yNwjnrXW/ukRo4ycbkrfB+zn5OEXq7
843ZWFbmuvYz0ftOzY7PknpzUowt+HuAAgPm6qA9moOQnh59JPlf/ZT/T/0k
QPSC6Ire7hZYsJxPu5P6af/pvyNlogUYqmzXJvmoOueQXtw8NlbveBTdTfI1
72BMvt8KNlqEY3KXk/Nof66teWAD4cvXn7Y/iA44uom5RpENa9s+/xBOP5QK
apk5yEYT9zKdQaITRuPnrNQj8Zy/xfcr0bkGieN1V9nwKDp76j3RAl80jYKt
ST1GZ59aQfS/ERHWY3c2Jg4qHJIh68stf1hiF8TG7vJDKYtJ/rmt8qmLjGJj
/ZNiIxdib+RE6KQMqZ/G5yZfWglvTFQMPwYv6kS+pMYI31oKil/cWfF4WSca
PGV7nxtSwPvs0UunlYPg8jiRFE/qJ/+XJVuI1M9Q7OrktSRfbiifcXEi9fPh
eovXfaIznngMXSf14xB1f08O0af9dE+OkHnEwUy45wfRXMp/LnaTeaQl9Z3w
ShLv6c68+7lkHonbUdvNmUeWV1R5veNhw1v0aoQrsf/0q/ahS6sJX0c+W3sR
/wTph1enS7NhGLta4iTxX9jiQBYXqZ/fzQyNCs5/n91he8tHmw2ZLP7znPrx
dd/j8fAiG/MEniQyiR6tu/ws9iYbB+23Dl8huvdYbrSIE+HZKeVjMWT9CfdD
dddI/RQEsbgmNlHQkBvK/5TMCz8uiCpECFJQnx4+eIvUT8l2m/zXxJ8fjqkb
E0n/X3lJwo1NdKrt8pWDpP+bSqt6LyL+FPbyi1WR/r//gez1DUQ/40rjmyb9
//NWJQdO/dglViQ7bGHj+Nsak03EntPnd5Qu3cWG2OkwaQqn3yS6f1TXZGNF
atfdb0SHq04WaZ1jQ/LeBvFuohuCPZB/nQ2dubs0HnPqycHxnC/pt0MhOgMt
K0l/8Zmf20D6oRcP714xsl/xnd0H20g/3Nfce4BTP00OJ5ImwYbGXbvhFvL8
oXTTXfU6JJ8cV/Jw+ptLretRihEbm9nx+7M58ZybXuRM6keucIEEzy4K3u8W
dcoj/WfVlSuvtnDWFz51SES1Fu3hFZ+NBdLQZPEsb/1hNp6ETD7h5HNkwMlu
hbMk3nUX73Py3TBmpq2G8HP+zr87Of35/r1ypem9bHyK3hldy5lfrG/rJh9n
w/Xf2DnOeSoabr3+mPAs6tNTV3HCt+3LBI+XED7t4X30bhN5fqLyx12eE4O4
djkjlhNf829OT68fZWNu/EZ+jj/2a3lTvQlfVsZbGOcLk/6gahf9hfDk/OCb
eZzvqz5ukBo7QPYPbOLnxPfZn8trf59i4+vmpluc+P9/fEj/Hz6EQUo7T+sa
4cMneQEuW8IHm5A3zK2EDx9LJgv2kXqLc2XPlSV8kH3/9E8j4cPhUaFRQcKH
ZnsN78Uk34ZH1rAzJAi/f/ZOc+Ythyeud8N2kHnOe9N4AMd/Uf2ue4QPr/bY
1PQTvW2B+hO/02x0Vf37MEr0Kt0697OED/pNnRERRE8GMi8sJXxgbb6mwZkH
s23l2rgJH/z+aksrkvXvHv+tOB5I+DOx4p0gqa9Wp9bidYQPX/VvvXpO7C1M
MUysne3Aty0/t92QJ/Xvl+2jT/ggenHb6gDCh21FDxP3Ez7As2b39vMUOBmZ
V6kQPuT8aW6PIXzIvlxyrJbcV2rHLDxXcer/+bcHIHx4tl1msw3R1zLqAjcR
PqhuYshnET2aMuAWS/iwdiT18XeiN3/5xfxA+HDk3c79IuQ8em5ZvrUnfBDR
Oe3C4YOb9pVdEoQPm/p/i9sT+9nqWiLd5P5hWHbsshvxT1xaJGEb4YN2+eSE
FoePMW8vuJH7R4jTn8JSTj1tULGeT/gwV1pyCyefBN6w+H+T+4f43ufz6ojW
qnHbKEf48KZO6ZQZ0aVThz8+J/cPO55WtySyfvzXczs3ED6o6nXxO2+m4KHw
1NQRwoemxiA+GXKfyF22p1ue8CHwjuOrUOJPeMJcpjnhQ0fr8qJmoo+/jNCK
Jnzomj5juZD40/+S74U34YPFyjNMzv3gnq+pYjrhwyR1yISTj+48oYcmyXw/
qtr8nPPvSfa89DP1I/P9lblWIkmc/AzTjM0m871nbEXwONESJ721Ssh8z+W1
q66H6B2+cfVqhA+UCfFNT4kuYTWrnSR8uKAXcNOIzOPcB+dtDyF8EI0ef7yW
7Bc7O3L9JeGD7IuF3Bw+5GfGn7QlfPjpm/6jicPXqK3QJnz4pbPCiVNP84dW
1coQPkwuvaCYR7TKOcF4NcKHqbvhkct3UFA6LjLxiPCh/WyxBIcPhy/olIaQ
ebE5c7PBF/J9ydjB67FkXjyYcLF1iDMPKSfM9yQ8uGxPH+TMU4YpmxsdCQ8c
pibMGZx/j3NVwUCS8KB2nZsd5/xa0x6fOkx4sEqe0b9hHQVnSgQK3QkPvhw5
LMrhQbN+xMsyMq+EaSdHcuLZ1Lnft5PMI9Rrie7fOfGyNntzjPBgqRFzhQaZ
N5aWb6VHEx54X+Fp4fgvUaRYbUl4sCHB07CTU49D6zdaEh54p2xS4swX4rvr
WO6H2Hi7g5rDsV+mSdgujPTvTVYHzTj+HTpENRUm89zaXEF7jr1c/l9eRpN8
sctj5BqRfhJ1j3sAxL48i7FnHPtS8orf0Ajv90ovVeGs39bjuWY9sWediLwd
x56G8giFS2S+yV6r4cqx/5l7vLYquY906DzaxFl/d6unpCLhH+2WTxxnvem5
OS4ThH8zJqmPOOelFlfuvI3kl75OmCTnc3GeMGEXXTaGlmT4c/JnxyEBsy2E
Z0POYydvE56pXX8f3vetBebxtrHKhA/X1Lfof+Viw4nh97qW8OzpwWq3BgE2
7lXfsFhA6mNc9PFGG8IzrUDftGGiLaO2H7xMeOY356mIP+e+sDzDZBvh2TLl
Y/M5PLvju0z7OOEZpf/qZs79VJPez1xJeLbw/JYjUZzfD4YDDarukX5xeJPq
GqJf5agYlz1mg/1Sa+Uuzjxw87NFLOHZsQ/1y1YRHixSmL+3NZKNy9+/bQsi
9jqK2ix/Tnjmzud7PIXwrDPbnEuF8Gxfj4h8I+HZNba7oxjh2cHcg8tc9SnY
qXXZRITw7FbhkR9RhGeq/mPuSYRnyn91J1dyfk/ZnfdrHeHZuz2Mb/eIzj75
98Y8wrMlL6hbMjn3g6LkMC/CM4FQ+3rO7y/ph395uRGeyS19yuL8/tJALU/R
JzxLsbmow+HZXv7EZ91L2Hi8mHbWmtgv9mpuwgfCM71t92oeEf82n3s49UWK
jeGWMN0jxP+J8uOy6oRnfilNdiWc+8Kq0F95WmxcOGq4gHP+upJva6mEZ7PC
QpvrOf3uSPDtMQvSfyKKHpoTna7N816L8Mzp+zpRzn13yTsT07mEZ1vW7fUt
Jzw7rRZhIUXyMz2gyvY24Rkle/HlZYRnehcdPV4Sf34elozSJDx7mFvc2UT0
6k+3rz4hPHObbe3k/N5x/wev9k3CMxnb764cnpk15mkEkXy7ZOtzlpNv3ipc
z5IJz8L1g99wznNb+v5dpwjPePM+uCdw7gtBMXL3Cc8atK5KcPLRuPXsUhfC
s+G6gshejubNE59PeGaqGsrnRXTorEeaAuHZpZhPcR8Jz0LecH25T3hmaT8i
yeFZ2OFDjraEZznpRv2c+SK1+YLELsKzDvuN3xs594W3noULCc/SuvISOfWh
fq8/cIjc51dNpEfmE83/uHD9BsIz5ZrxNwHbKNDXEokzIjyTuPWvl3PfntZN
PnKa8Ix7aV8m5757fWeqrBnhmXBQi/sw0apO3CvNCM8YfFz5HJ6dZtZH7SM8
OzfzSp3O4cfFF209hA85tg+cOeeX1LOjbDPh2akAiWMR5D47uE7AwZTwrCk3
hcW5fz1rerfiNeFX5RGx3Zz6/xkuLCBH+LVq8r6ZJ+EX11KXbnfCi7aDXkUc
Xgh397xWIPxi+Ca7dHD43eUSJU349cHJ0ZfDl8btSmfVCL9WrnVezOHXzSvd
e84TfpW/+/yPw6+/u4VHmKRfbs+Uvfn/x6/QrEt/1hJ+hd/c6M453+tpm9Z7
En6JJgQ2ceYlhlSP/CyJ/0e9NZc49vjkc1NFCb8MvCorOParO/EzJgnPjzzW
VeOs/8/19WVZwq8jWh7/l1+U32u5Ewi/zDcvPso5H6Xv4oH8JJ/ULiQJcz5v
5Jp9uZfwSyatex5nv+vSTd80ib0fQtIOctb7NKzpep3YG5mXFD5I7HU+snR9
C3k++OX6O5zn/yaWZ/mS85+t3qbBWZ9yk9FgQezxDNCz4Dy/fqiDdxPZ/zad
u4Zj7xpnZlYlia/q12tjHH+eaZ/uNSDnd3ms6P+en8Fu36QBsp+RN5drFDmP
VNkElhGJzw25oKD/a+8z7QonwuuRpzbzON9XX3JhdiepX/nnm1M4+xtJHVvS
Rp6/1Ps6h07m0/833k5uyerZREtIxy3XIvX5v/+/0a2C04535zTCzP1h2g4B
Q3wN/dO/cKoBsJvJH3ptBsEzX/ewvjSA3ipnc17LEgW66obaPQ04eiHSeLfi
Pbx7u2Z2srkBa+L8FMbv3IcHLSe/nt6AFIlbfttMHcDIWqt8pZQ8r9gx9F7/
Ed5u95vZnN2AkYU3dn6ycoGitZvR6pQGXL91W8vW3A3uK7ov5kQ3QCAnnpng
5Y5eC96hwLAGrHtrIh735Al+XL84uzqwAYxtD1dFPvDEoobEkFqvBiR8Yj1e
8tIbuyen5+Y7N2A0LTxD8cUz9GYtaTC434D4Bt3EXgNfjDgoJsncaoDS1qdn
4039oG2uoyhv0oBbJX969I1foC361b92gwbk6C2OUbnrj4/mZ0VLdYiWP31q
5nYAGiv7zQw0GsCa2a340yUQDwWfqW/e24DsD/U3vvoGgWvH5gaJHQ044x/r
UeYdjCyVy3eqtzaA21asteFNCFYcivkSv64Bph9rBCtev8S7BOtLe4Qb8CpG
7kNGUChSH8258Je3Ab3vZcw7Il4hdPmB5xNcDWjvuyY0+P41HJUOeQb9rsfo
mn2/N1Hf4LjrIi6rsXowpcu2GxeGYVPwzp2P+upx1c1bxznnLebbav1Taa2H
h5kta/haOMqD8j7I1NYjlVJqyd0fjvGX8sVV5fWoGh7d9c74HfZp4/arvHp8
fXX1TcPQO9jICp7/SK3HwJ0/VjOm79ETvu3pubh6fClo688dfw9JG6ejmu/r
Ubmzo+qO5Qe4HPqp0BNSD7/gDPaHrx8gzf4ZkfC8HlfudntYWn9E1UDmqtTH
9eC7uzVS7sdHiDtttbnqUI/CkVxDD8cIMp/KyZ68Ww+jk7KHL8+PhGVjVdxN
s3o0sTPeSLpEYnjico3S5XoYdAb4eS+JQqi6SvEuvXpQFz+b6noaheVHtVUH
tOrxW8zwyWfuaBxR8FEqVauHZsIj6qZn0ci+WuvWuaselsZ5p915Y/Dhz6ZF
kfL1eO+r7escGIM6vhSNqE31yP2U8vPv6k+Y4Pt3onl1PVKGdtJNX35CVomK
6meBeiS/X3zo1vpYuGyZsKAvqsfTR3+kroXHYjqRcs5/tg4WTSoJv7bG4UaX
zNyAyTrsWnPqwpLkOPAxztqUjNShze2JA598PEyUSo6+666DtymfSmxaPJb3
2lhlNtVB8HaSqapyAlw71emO9Do8NpYp0ExNwJ/T3uF3Suswl/Hz87fdiSi7
xXPlQ3Ydzhh3iHlnJkJ4f/yUE6UO55W9/DrXJ8Ej4clsSEwdHu1YEaN6NQnc
m0/Se97WYbnaJzu+j0n486NjYVNQHaJ8zEJkB5MgYPfNiMenDp9GlCxLtyRD
Lcz024BrHd7l3W4Tu5YM3uWi3T/s6xDGYIQUxyRDr1cm8sCdOiz8sZ+vZzAZ
t+6Eyyub1cH6dBP9uGwK5oWXrrt5qQ46ZU5aO26mINZv7hstvTqsS/K70Bib
goa7BvcMtOvwo74qq3wsBd3B41af1OqgxC9Ut53MXRLY7P5epQ4PXB+rDluR
ubeg2bBVvg6fbxnvNEqjwDfow+/Dm+tw0eL4iM5PCjz2PRE/t7YOS6KMRn1U
U6EhuqY/fkUdNvxw/XTQPhXFhXN+xyypg0KawHR6eioarjloNsytw6G08lcP
plOxJrRv2eFfLBRX+Pz4vJvcg5c4hF4YY+GIqP0rPCJzT17yybQ+Foraaxs9
iqi47zyfqtbKQsxn1RpNrs/gyZBRu8diIaCqYtnZw58hq84zOlzBwpcJU772
x59h0PfWbmEBC7t8777dWPwZKu+3rj2dzoKn+ceH6QvTsO8Bra4/gQXNs30r
Sw6nwfBbSLVYJAu8zsfmrPNKg0tL9Ic3r1nYk1Mc/q0yDWkd580L/FkwvB3d
4Lo4HU+ct6kKeZH1LlEMrhxLR+Lajd+TnFkQN6wJzvJOh1e8/+j4fRayw/g3
GDHTETt/e6LdbRa0dbMPlgpmwO6p/uz2a8TfVXZrP+pmwGPgVuPziyxoiV1U
pwdnoEur9OXO0yxkKOpstmrMQLeA75NHWiysKUh83SCUiT81c3X+qLHg5rnT
yONcJp7/+yydp8LCuWvV7UkhmUgUqLu9WYGFHQ+fftrSlomLJ3pym7ewwMVP
4bkknoUOw/UOOWIs7E0c2cR3OQsODk00NWEWnHy0ni3+kIVrDR/vCfGxIO2U
mejUnYX7uvqaT+ez0Bars+7AlmzsMRO01/pbC7cTuhuLzLOhOTd5+b6JWgQv
uNqdE5MNV/svE4yhWiT9ejO6YDQbX4d2BVI6a6H0r49SKpuDSm3B5TubapFo
F8qvYZEDhWi6wCC9FnLbbdIEk3JwpvnyvpHSWojOGIqeH8sBb6/saZ/cWixZ
YFUxuiMXaVpmuc7UWoy5fONXs83F9wAD48i4WhxY8ZCP/3MuXpbdGjP7WIuQ
zh0GW/7kIqsg8eLDV7U4nz91OUMlD/Pv5u7c4V+LFcKSf5fcz4Ogwqy2sFct
mNEPe2Oy8lC/6ULjcZda/D3W717wJw9ZcWZ5G+xrIbQyc7f/uny09qy4fuJO
La68eLLMBfk4+GbfoPD1WsRq8CUxLuVDXBqP+YxqYfMq4mfJo3yIptGCLujX
wvZ+yUvb8HzU9KSeP6xD1v/+q4demA+102IzTzVqYfep+5dHbz6is3cHzOyr
heywrvn0vAJsva0dtUS5FiblTS4imwuw+x3jnpUcsVe+b2pUvQD6K1U3WW+u
xa7aKOXNVwsQLGDyMkKsFhIrnMTmexSgyWZv/A7hWqi1sY3CIgtg5/P40jn+
WvSpH9PuKC/AT7WVB9oX1MJl6N7cR8MF+HH8QOOLGSb0hDeuaFtciCHpyvi2
SSZiu/qrOqULsfusT+XTr0wo71ToCtcqhOCDeQ5VfUwc3vr8zcJbhdimobLJ
so2JE2c/bKQ9L4TNxuabh+qZeM6PRScTC/FEfzUrroaJkyajL+yZhdDmdbxt
X8LEkYOb7A2/FcLE68Ntdg4Tey4KyEQuK8JwYfQb889MJAutePxiexFKRLqP
GiUwcfHsK9Xdp4ow80CRNRTJhJeycrDnvSKsityQyw5jIvXU01yVoCJI/Ngw
NR3ExIopY7UIahHcrC5eS3jOxA8VnZtpjUWoEfHIqPJggpe75MfjqSJ45H6x
uv+ICTG+8cOpwsUo5w1rP2XHBCVFbv/TXcVQzVub/uoOE05dPwJX6Rej7XDO
gbvmTFQn0F6csi+G/6fB0xnGTAimXTIYflWMoL/x+vLnmXihaeO0L6sYop9F
diqcZsL//rsjKm3FMM5/bhqpzUSlwuk749PFsKvc7hWpzoTb01X7j68rQcFa
Kc01+5ikvwU38xwoQc4l1ab8nUxI7HpFf2xYAv2HGoaj8iS+EykWkS4lkE1m
uAVIMrF956lrru9L8EjQOrpwPRP01Cip/IIS7DSPj1+7mokx5rKgDz0lUD24
5tKPFUyo35976eC8UqzQKJzR4SP+5yyoebqpFJRzHgxpbia+7cnn3qZRCtcA
NW6lWQb+qHO9eXGtFGX9eZMFvxhw/3q25dWTUmRJl1gxvjGgKaZ0zyi6FE69
dwONRhhY4Fne5F5WiiWZkqNifQwcCrjde2qoFI30N3uN2hnI2BKmzV5UhrFs
7Z4NTQwkn+s8v0Sa6FHayVtMBjoEP5VNHi2D0iX+L8pVDCzikfq337wMy6hL
rWRLGKC8zWFv9y6DiKff7YRcBgJymoS6Ysvg6eoiFpfOwC+7hVNKtDLwPow+
tiuFgbN3vrwfHivDgS4HlYlYBr580489v7QcoyK3FDZHMjBvebOBlUI57pU1
pHx5y8DJjM5rGifLQXk+NiEdysDL12F7H1iWY0pSXi8ogAETMcssvRfloDuM
nAt+xsDVrRWBX5LLCTf2GPA/ZWCwVklEqo7o/udG61wZuJamf6VsshzWoty+
Fx0ZWLVpHu96oQrMfZtZzH+f7KdQcH69cgX4QkceXbrLQG4p96L2MxWw+MZP
X3eTgYQ/l88fsKuAAcvzuKspAyHXb9vNf1WB085dZSuMGUg34v7hmlmBzCvp
HwUuMnD+V5LQp9YKOKVy+6afZUBxZY+/93QFjjdXHq86xcBCq6pW2upKZMl/
Hlh4nEH6fVl12t5KGDxlPBzXZGBo9KjoxYuVeLBhfajaIRLPpd28MQ8rUSvf
VnkIDMy1kK86/a4S89hbNaxUGdh/cn5/dn4lqMzRtIU7GeCq/xJV1V0JE72o
+JMKJH+6LpQGcVUhInpO86wMif9W18SC9VUIHI2qbZBkwGhZDvwPVqFjglFv
tpEB3kdOMuuvVKE9i8/gvDgDqs908/UeV+F6Qowd3xoGwjYlJR2OqMLp2lxV
sZUMTE8V3ggurkJTV5z+WUEG2syGap71V+HhSb5FZ5Yx8MM42FuNuxr8iVoX
E3kZePZXf+K1ZDX+5NTtYC1iQILOkDh7tBqWgwoXJRYw8FWakVhzvRpJjqyB
srlk/y09PcNe1bAJ/cDtOE1HTqzjveLYaji8nqAL/KRj9w0afaayGoGVTh0/
x4iu2F7b9qUadRdumHoO0XE3SUzBnrcGwlJVL3N66JDeKaacI1cDn575J2Pb
6Oj4yVpoqFODiPjfY18b6ajYv1wp73YNeD8z40tr6di51XhxiV8NyhEcblZD
R3OoqqpHcg0sk+3nvS6nw0ajQimGUYMlDQnfVhXTEfTiRtOdiRq4XG+ZdzeP
ji/XAht/LqdBZdc5X50sOkqaax0lFGm48W1f+Io0Ourqgx8tOU1D3uOfEuco
dLTxrjh+yoqG83salw0l0nG9+13h/kAafrGsY2/GEfsPpPuPpNLwPitwrnkM
HZb7unn2NtJwOkLdzCySjkSbwuOjv2hwTlx3IuMDHRt3SY2eX0mH6PVnVjbv
6FgTEqFoqUrHIv4Qe423dBx1jm7cb0DHN/3OtQ/fkHhFGKnfsaNjzH52duYV
HWvN5Aw0yd8Cx1QH3ofS8Y/iUsXOpGP+1sHr71/SYRw23CNE4rhk8c9fDSF0
5BctKkv8R4f7SHjreaKlVM7Om7eUgQ+WVx/IEf25g2Izl+TVqfmXtx4luu3o
6ZXt8gws5l10KJ5o9cdOfPwHGBDQn8q8TtaXaps3+PUk+Tywg9+G7P/pd/V4
rBEDe5aHfM0idln0rTuWQ+pWVne0y5LYXxH4uTHOhYGju6KD9Il/H65Ea2i/
YMCvfF2gC/E/d85GHnwgddlsWKnwkY57xj3TSynk+ZuJuxdEkfX8ZdQUi0kd
x9fttvxER1cXw2JRPamrSsVkyQQSpx/pJZm9DJRNV1RPJtOh1ih1N3+SgdMr
DL/e/UyHnFOn9scFTPD0mgnNkDgFq33j3SXExOC13zYlJB/UGrzE121mItLl
aNWZEjqeyJkb9yox0WfCbuqtpGPpmdqp6cNMGEwlu+kw6VBQc8r6foZJ+DhE
TSL5ydB6bBJ6jYnRtsTgY+10/O/7UhzTROR7+uj/vS9lXqJX6vmv9P/el3Lj
/Y1rPZP0/96XonZwkz+VnNP/vi+FJarfEzuP8d/7Uihy8wL8SX3+7/tS0pUu
xV7iY/z3vhT58zVl6gKM/96XEmE/t7JWhPHf+1ISfsVqqaxl/Pe+lGUN766e
2sD4730pnQEr/g9bdx5OVfcGjJ9CpoSQhCQJUVKZimUmlTRJpkqSNCFKgyGJ
kpBkChkLSTIlZJ7DOWQej/mMiAYq/Jbv9XM/7/Ve71/PdT97n7Xuvfe61/CH
T2bBskTwUr5ybJN4hcfBipfyZ1PNPUc8n614KVXMjV6rNYjgpewwDqNfw/Pj
ipdyRy9H5N8hIngpMpe1rhqdIIKX8id3R4a7JRG8lEsnS26ev0AEL8W751qN
7RUieCm0U5d+WLgSwUvx8GwNXbpPBC9lobmpLN2PCF6K8mdHDfcQIngpMm9S
pMeiiOCl3I4KS72WTAQv5UWThU5wJhG8lGc9eT41eP1c8VLW+fX178TjcMVL
GWqbScZzJXgpqX7258/0EsFLMS9DlKwJIngpPmYUyUezRPBS3Fvu6eQytYCX
4uf+hmaO9x8rXkp5tgTLVbxfWfFSWi+nbY6XbQEv5YN1WoOaSgt4KaJuTzdb
4XG64qV08HXr9uH91oqX8n7NDP3ahRbwUoanSKJJN1vASwnZWWK87WELeCma
/IMm58NawEvJuX2DUZzSAl6K7DbLiyfw/nTFS8ldeyOrvK4FvBTNh085bfE4
XfFSDh/xu8pLbwEv5Ud+pU3eUgt4KdubarXv8LeClxLDEWJjjOMVL6WkVOLH
S85W8FKMDBxvc6xu/c9Loeok9+Bxv+KlPL7walB1tgW8FC/dTuaf1BbwUoTC
a6S6h1vAS+kN+Mdi3NsCXkpY94TQxm8t4KXEsfkXu35tAS9FwfbDurnKFvBS
NopV9XUXtYCX8sSdfdowtwW8lPvj4QUCGS3gpfz7s0ebI7kFvJTyZzHlT2Ja
wEtpUq1Dl/H7X/FShm8nPGsLbAEvZepa5frXvi3gpUi4Jik/v98CXkqzwXwv
j1sLeCnG41zM9Kst4KW8NVv34OTFFvBSLkZWmIxat4CXki6rNPTtVAt4KVmX
CL4mJi3gpbwWGdomi8fbipfiP+slvQPv11e8lPQX6YxPeL++4qXEab78nbyz
BbwU1XW9CaLbW8BLKSozOlu0uQW8lLbNdomFG1rASzl9yU9Tj7cFvBT3VIuI
newt4KWEbXi6NQnX04qXspi0N0lzngheCoty0pb9eH++4qUYz/E8K6cQwUsp
2RqikDZEBC+l+d/X1k/dxP+8FLZ6MdNWIngpCaM6pIMNRPBSXqpxSTVVEMFL
2bw1ZevtIiJ4KdOvxnp88Lq24qUs2R4jbMgggpdi/35LFg+ej1a8FOGQBGv5
GCJ4Ka12h1d/w/vtFS/F0ITU3htIBC/l6qnjHtceEcFLuV5d/eg83l+veCmq
fToH7rsRwUtxLvB+uPk6EbwUueZ7V7bZE8FLMTW2Kc+xIYKXYmMZ5uWA988r
Xsr3XVtFvY8SwUspOHpxbDPeL694KfHsyaWSWkTwUsJm/PkPqxLBS/G4yGu6
oEgEL0W953kfH15/VrwUvj2M3ZlbiOClkE1PFTuJEMFLWb0puSUcr3crXsrP
1QFOelxE8FKm5yO/nsLr54qX4q5q3inymwBeCinDJT2STAAvJVzb7/pAFwG8
FLLL3EMlvP6veCm/TJtpJnj/sOKlFHsppHzC+5EVL8Wbf/funTEE8FIePSP7
XQskgJciPOF8vdCDAF6KUk33thM3COCl/CmwEMk7SwAvZe/p/duljhHAS3lz
nodopU0AL2WGI+fS0G4CeCn7ssJjXLYSwEtRVXkz1LSeAF5KPO2v7z5WAngp
YQryUeRfzeClSE3+ULCfaAYvhSt7Pn2qqxm8lH7BJRa9+mbwUiQlfrAnFzaD
lyKQqml8NKMZvBR33vbO6phm8FJS+YOiDYOawUtJ/crN+tKzGbwURwKlQeFG
M3gpX7e6Hm051wxeil4RlaZ1rBm8FOquu5xFOs3gpYSzqnN54338ipdirnEl
hG9bM3gpcXP80u+FmsFLea1sEyW4phm8lHUphtz1v5vAS1nosBH1ozSBl6KV
6H2bt6cJvBT6mf69yV+bwEsROB71krW4CbwUdbWCyo8ZTeClmD6dHbKPawIv
heXSxDpqUBN4KV77YmbdvJvAS1E8P7frsEsTeClBvIzRadsm8FIG9m8cjj3Z
BF5KXwJv5kb9JvBSigOMpgb3NYGXcjQziCNzexN4Kd+G7a0OCTeBlyLKdfvo
NEcTeCmhlUIGg38bwUvJMs3sjcXnuBUvJWSw4s2FgUbwUkyr5uzmmxvBS5ks
sJQIL2sEL0XIdcvH+9mN4KUEswZE70lqBC9FStRqw/ewRvBSfNw1tbweNYKX
0rHfzOL0rUbwUoIq7sbsc2gEL2Xm26bvo+aN4KV02Y8pR+Nz7IqXwlK/gSnq
QCN4KVydPzQvKzSClyJK7ViDNjeClxLRNRExvq4RvBRDvsyaTqZG8FLWTJcI
Nc98BS/FlE80NHzkK3gpidvU5y+0fwUvRVrj14u7tV/BS7m+dbbwQsFX8FJs
LHkuH0v/Cl6K2TORWb5XX8FLoYbvJHQEfgUvxfxvcM6o51fwUhY+87VV3/gK
XooHR9Nw+vmv4KWwW+Tfv3D8K3gptB+P1C7qfgUvhTdI0ctx31fwUgRPyn3U
lf4KXopspIKqhPBX8FLMnjjd1ef8Cl7K89yNa9DfBvBS3jw97b+f0QBeSvkr
09fcAw3gpTjrvQ2UJjSAlxI6H8ypW94AXoqXtpbX3uwG8FLKHSaOySQ3gJdS
K7Te4XtYA3gpxVskZVf7NYCXMvJqakzIvQG8lDfzL/SYLjeAl8L3p/wqzaIB
vJS0s/a94kcawEu5H2FgKKPZAF7KgoSK+B7FBvBSLP95awhsafjPSxEuKtbg
bwAvxX6KxdCBpQG8FK+W1bcu/6wHL8XQgdnrykQ9eCnu/+of5XXXg5ey/Upt
QEdDPXgpd9gurZ0rrgcvZc61oXP6fT14KcdkRaYor+vBS6FFF/fJhdaDl6J8
jvWK7sN68FKMGY+olm714KVsYSs8cdi+HrwUM5pEhu/pevBSnOUCIosP1oOX
st/4QV2jej14KQF1nVZ98vXgpbCLCD/Ys7kevBSl9YvoAm89eCmxXYEcoavq
wUvhe38qL2q2DryUz5n3OSijdeClkJ9sWKvSWQdeivPVRWObujrwUoLvfOHw
LawDL0V2/8jBh+/qwEsp2x3O1RBTB17KlMWzWZ7gOvBSdv28lKvgXQdeipvb
gWvGLnXgpbwsZTuUaVcHXsqLm35m9FN14KVs065bJWNUB17KJlc3SU21OvBS
Vpcueb6SqwMvRWhrzNZfonXgpWx1c3q+g6cOvBRHdVYRG6Y68FIowi2+nTO1
4KXY6bFyy4/WgpdiOxhs7tFRC16KfM0Qa3ptLXgpTVmTGWKfa8FLiT3nUvHs
XS14KXgCDOyOqQUv5eUDt6gtwbXgpZxXo8bpe9eCl9LjYHIny7kWvJTaP85o
g10teCmX22SPW5yqBS9l52lfqSjDWvBSqKdCb4qr14KX4pphfs57Ry14KZcL
wj73i9WClzL2S3V2w7pa8FIOrgsri2SqBS+lXrEuRWC2BrwUZ6Lvl2ujNeCl
JIcPlpd31ICX8mr1ndVW9TXgpThf0679VlgDXsrwrLi0wfsa8FLY5hKMwuNq
wEuJb9boJYXUgJfib/jqsfPDGvBSrjzrNCK51oCXEsG8QebgpRrwUoxCjlmG
mNeAl9K3u6tUzPg/LyXWfHg6+f/wUuwbRWs4d/7npaSl5Wo4SvznpTgJG4eu
W/+flxKMBrpesPznpex9Y+TC97savBQ1gWSN6+Rq8FJ6I3f94+2pBi/lWGJi
cUZjNXgpzntbF7aXVIOXsl3q+YaYrGrwUhr40r9PJVSDl8LWPR7z5EU1eCmc
NXuIm/yqwUvRJmrwB92uBi/FkUs1Z+5yNXgpbDwC31KtqsFLodwvOqJmUg1e
ytJQdne5VjV4KdKPfi/KKVWDl0JbJBV0b60GL2WLmPA+b6Fq8FKO7XkbsYa9
GrwUqeTtYX5/qsBLOa8f2mbMqAIvZeOooMH0QBV4KaS1p1mftVSBl3Lm3JY9
XJVV4KVkNHv6eedVgZcydu7TgnpqFXgpOwaGFTqjqsBLCbpVr+IYWAVeysnf
DSqDHlXgpRQkMjtH3agCL+XR8xJlY9sq8FJONv/V6D9RBV7KLPfRdHuDKvBS
ni78YNqnVgVeyqkNhsNjclXgpVhJKA0EilWBl7LrKD1eaF0VeCluzKwXxpiq
wEvp5xicTZutBC9F6V7Wy2NjleCl3LL3G5zsrAQvJUId9RIbKsFLaULkXeHF
leCl+IhdGjH9UAleyq91C3JT8ZXgpWgvdKT7vKgEL+VH3sgXC79K8FJGJnMz
hNwrwUtZCKcG1DpWgpfCp9HkZWVVCV7KUfUgUWWTSvBSREM8bVi0K8FLYfpS
tZSvVAleirbjCQmbbZXgpTT9nI45KFwJXsoz66ulGzkrwUth/hS8ceBfBXgp
4sGPT/hPVoCX4jo/s+BKqgAv5a4bX4TZtwrwUrSdn5wWq64ALyU26eZQ56cK
8FImdV0bb6dVgJeyrd6Hw+pVxX9eSqxV7Z6gCvBSih0fK3z3qgAvRfiI3VSC
SwV4KXlTgp/DL1aAlxIip+PkfLoCvBS3mrkDyLgCvJQtSUyKs/srwEsxG5zQ
pClUgJdiojK2qUOiAryU9MOnL77lrwAvpanqvPkV1grwUtqemIjfnCsHLyVF
vz7sPLUcvJSkz303dPrLwUspWXNrDyehHLyURyaHVarKy8FLcVVS/V6eWw5e
imSSf+ebN+XgpXTnHf/sEVUOXkpyp+HS/qfl4KVQBNjXaXqUg5fyPUK1bbdT
OXgpni8cddbaloOXkpZgqNNzshy8FL/uC1VUw3LwUspNLJVG1MrBSyl8f2qy
Ub4cvJSNbqJNceLl4KUceRGunctbDl4K0/2tpYWry8FLYXllmpT2swy8lC+N
VteekMvAS7Fc/Np2rKcMvJRnc9Z51o1l4KXk121SsSgtAy+lm60zCn0sAy+l
tDP1rmByGXgpajedg3ZGlIGXwjhIqlJ8UgZeStE2VpWt98vAS2mNrGFeulYG
Xoodewq/+Lky8FLcDr3cpHCiDLyUkfLK0m36ZeClVDPfVeNRLQMvpahUJVdt
Rxl4KVI7aJxHxcrAS1Fb1/DzBG8ZeClu083fdVaVgZfSELG5VIdaCl6K5pKl
/SNiKXgpnKm/smJyS8FLsUj6aBUaXQpeSsC1AUFrz1LwUuL7Pcve25aCl+Iz
52DYZ1QKXorWyRobknwpeCmmklE8Ffyl4KXIu+6VkZ0vAS+FusHvmH1/CXgp
PXbkUO/KEvBSvF0iDzu/LQEvpeT0yZcTT0vAS/Elad1UdykBL8Wv4L2xnVkJ
eClKMndcHQ+UgJdiW5L29qdkCXgpPwL7jpmvKQEv5boYnRDO+AJeik+VlPz7
li/gpUz+DNv4+tMX8FJkPOd7BeO+gJdiLlI0b+fzBbwUERZfuWCHL+ClmEwF
i4Ue/gJeignhEKfI7i/gpfAfvvLk/oYv4KUoVk0eLPhbDF5Ks6mMZfNQMXgp
VMPcYYe6YvBSpF7LbO/PKAYvhefoDNrxohi8FGM5mXsnbheDl2L8ZcGUyaoY
vJQuXvP7fjrF4KWYioQYTkgXg5fSYRC8fcvaYvBShM/lcCt/LwIvhf3NKXNC
exF4KcejNdW1i4vAS8mtcIkLii8CL+Vx2WnzXL8i8FIC+gN/W18rAi9Fbm16
6MixIvBSQmIkOLRVi8BLCeNyGbwrWgReyp++4RJV5iLwUpzEGP+aJgrBS7Et
PCOk1VgIXsrM0SyTJ9mF4KX4rK/mNYsqBC+FydhAmsmzELyUCmeOYW+7QvBS
Zi4OnRg0KgQvJTL6mrzArkLwUrj3jlo1ChaClxJXjIps/3wGLyXGZXQNgfQZ
vJQg+tjoxurP/3kpTbIa5LTP4KUsmlPZA0M+g5diPlM6wOP2GbyUmh/nKfaW
n8FLCc8a+a6t8xm8FPvJmrv/pD+Dl8J/Mr386drP4KUYs8pS/3wvAC8l2ffe
HkZHAXgpImVJ5TlfCsBLER95lWaRWABeip1uSGT74wLwUn7cPq+z+1oBeClh
bdd71x0vAC9lkS1gVYVqAXgpJsWeVqfECsBLWTxdzVa8ugC8lEzZZqkU6idE
R+umPx4jIx/p49QbhE/I8uLm3TFnyKjGeOvTtfmf0BWXH5sUbclI75jxnmfR
n5Aaz+35V45kpPitwDnY6xM6Fbhp8pYLGUloCAvY2X9C/DO+gX/vkpEx5eTe
TYc+IVF1Xp0pHzLaufXlveTdn9AY70FqYQDOZ4vW4AfhT7huDQ4oviCjVcZL
e+IW8hGrk32KwCsy4vfUOmAzmo+s54wLEpPIiLTaMIy5Ph/dXNf/hT2DjJjC
BuW2Z+ajTvbnPf05ZNSnJ7Uk9jIf9VI4EqyKyeh6q3Hk3J18pPA+2dO4iowS
U+aUks/lIwlzFrbhRjKyjxf8vkc/H7U85/M+1k5GIbrvvujL5SPiey0+xX4y
Km6QFJLhy0dOH/ceLhgjo3jZebapn3nIOsI47gODjM4dSTb068tDHNw8I54/
ychz+p3468o8dMohvOX3An4/W8uXYlLz0NQbrc5BVgriLfha4hich+SaPvg5
81CQ8sXjY2KueWirT6NMrxAFHaj8VXn8TB5y3Mg1nCNOQffnbLlPa+WhY5E8
+srbKchXu3+X9rY85De/p3T7LgpyOPHtwR+uPHSHwib/XZmCroofEdw3m4vW
lsfp2CEKIn3Z9eNUVy6aumvuZGCI42Hh5/qluchZtNOw9SgFyTyvaN+UnIu0
428rN52mIKFStdiygFxEyK7eEH+WggK51riPO+eixYyuRFEHCmqMJjrOmuWi
e0/W6rM7UVB+zXqnZo1cFHlkzfNYdwqqeRJCCZHMRa7xmQTOBxQkwF4V0bYm
F8W239428ZiC7q5tH1v2+y/NsG679pyC2mwOiAx+y0Fe3/P220bh50GrclMK
c9Apr/X6uxIoyHab11pGQg5q/LFvLiWNgmIEDIpF/XNQyOG7FU8/UpBopev5
jddz0M+nD5U3FVKQzTexT4vHc9BGC/VYnwoKKvn5mGGnmoMCONdvOtNAQRLx
m9MiNuegmMQsne5WCrquzeqXw5KD/ok6PajroSC7vYczX9Gy0T/PH5fPj1CQ
yeif49eI2ajohrR+K42CzKTPp5fmZaNanbsq2bM4v/tr+/pjspHrQui3/f/w
+7nZ9WfsQTa6Ed3kt5eFihy37Cr87JCNZGry5Fm5qej6bE3BWtNs5NNte99L
gIqEWTbyH96XjWQJu0ccRKlIIvp63CnRbOScUT37V4qKwlJfDB5kzkbuwmt+
2ytQEZviO++S8Y+o0d6RT3sfFSXqLY4uNH1E5TGh7VUaVKTI/+qaTM5HtDqv
L+uTPhX9s7jkLRb9EbFYtXn6HKEi35PcD0IffERvqCG/fp2iIrlYW/5Z+4/o
peWNRz3WVJRl+7ZczOQj2pbLX3LJnooaN+Vb7N3zEa2a6lxrd52K7i9ldwmI
fERxBcamqreoaHxQVdiN+SPqvexzIN+TigQqBt6Xj2ehiwu9KMmPijT99Ys7
m7JQiPsfulowFRlktN/pyc5Cd3xqAlMjqOj4oUMbrSOzUNb1XF2/11TUKixS
meqVhR7rXEpem0pFB/r1AobsstD7uf2iLFlUxP7eaevIoSz0XKPEr/UTFdmL
ExXs9mQhQUfWV8ZlVKTOX1DWKpyFJtyv1+yuoyLbyA+FHExZyOJGzKsKIhVp
iQbIWTd8QE9/3L6wo5uKMqTUVr15+QFxWrnprB7C8bPcJk+7D0j2ncpXXwoV
pWZ47N276wMK79t0xe07FT3+k7b5zkImqoh5v6AxT0XnfvmaFDdmoiA9FvUs
ZhoiWVXS+yIyUWrz/WfPOWjI1Iy8P9A+E9lqFQaI8tNQYGBZ6sbdmcgRb3uE
RGjo385tp/ctvUe7b0u/IW+hodGo1hmT5vcoUnvOzE6OhkLi9nkbRr1HRyZp
4keVaEiCuexe06X3KNEnOWREnYbmdmlu2KP0HuWncP48qktDXZRHg+ELGUj4
XajTjkM0JColp+nfmIFEIgdfZp3Avze+I2AekYEcL5m0JlvSEDGZbX3exQzk
Xu3I7HyBhpg4xG3X7ctA27kO94xfwf0XZv8xZspAUnuONny9ifOdc6byEd6h
cp0Ndhb3aehw/BZiYdQ7JDYUOF3mS0OPI4z0z198h2rOS4WFB9JQvMW2A6F7
3yHeBu8hwZc0JHzyzmLKUjpKFVjSZ4mloayNke26zemIZKBzMiaFhqbZw6Sq
I9NR55o9p7gzaUjmSXmGrl062vRO/xotD7/PE1auh/akIyZlsV2uJTSklXXw
icpiGtqTJMR+tYaGfO0qnTIa0/C+7cu3/c00dPJP2iexmDSU7yN7MK8DP//h
gE2ul9LQS6NP7bED+PdUpYfHldOQ4C8ObsUJGrp/1ytbiDkNnVTi3Bc9RUMF
Hi+9OhtTEclU3u3mbxriXW/usTkmFa09vf7sryWc32UhIZNLqcgfiZ4jr6Gj
Uc36m6uVU1FZfuuJ7HV0lJXZGpHLmoqiBU2+bxOmowPRN6SOtLxF5Wa0FHYJ
OlJccky7Ev8WPfE6wvJSho4CS2aRy5W3KC6g5U6IIh0lH5W+sKj2FrlIrR6+
oEpHVQPm84843qKJlPlZkhYdPebKuf6r7Q1K4+AXazKiI6scyWRa0hvEfWpq
yvYYHRUo555vuP4G7dx1N494ho4k8jYSk9XfoFiadOj783QUE/lRYTXnG/Q+
OFJ4ryMdOWVnjx5qT0GcQvL5si509OOBqYRwcgqS3nHN4PcdOpozC1MZvJmC
Rrbf9L7uQ0ekm/03n6MUxGB71XIyAOfrauxYw5OCIpv8G0dD6UimSUBhojsZ
MW+VLDz8Cue7q5V99ZtkVGAxULI1iY5ChKcJ8W7JiPfu2WvJ7+ioSyVXaYd2
Msq7t2pPWA4dtYVabFDhTUZ/7RwTFYrpSPXZaqTYm4SW+rxYXlfR0fRFM3mp
t0nomMonD69GOooPq2+MvJWE9O7kxHO043wCAr3+aich39iWnlX9dLQ3dPre
AG8Semgau6ZtlI7cXRcci0iJSJKmMGDCwN9ncZ2yf0YiWudA+qr6k46KQ475
tN5LRLGNpy80LuDr2edM1xomIkrpfYYKGwP5Xpg4orM+ET18WRnEz8NAMlTy
0s/hBPTlOKE7XIiBRi03MEdnJiD9mX/7A8Txdb+jJsUeCShQoivklDQDab0W
+dN5JAHdVHYPbtjJQA4nJ4pHNyag1J3qKZnKDKTXZ8h6gxKPPHjK7Q4gBhII
mWCn5cYjPo+fQomGDDS9//Lbcw/i0WzTIdKtowyUEdrAdOJYPHJju3Ti52kG
Sl0ik1TE4pH+luT+4bO4f/U/Mkrdr1He1jd8dx3w79X3jffceI1Gc0+pUpwY
yDQYKd9if43Oy2y/VevOQEZC+RHsqXHI8+EX66MPGCjykfW4D4pDlDI3K4Mn
uD2FoNuz/bGI/1nvEcHnDGQeVblw0jMW9WmxUZ5FMZDE6OmF10Kx6EfH8Vdu
Cfj+Du38wbwYlHHS7jdbOgOVMcvs5DwSg7ae32rglM1AXawN/NLjr9DEUZYM
o0IG4t2xZfM+v1fosHR6UUMFzrdn0kNR/BVaGnAeLmpgoJC2pyriX6KRk/TE
X99WBmLyEaj6ax2NfE5tKf3dw0BZJnk7an9FoSF7j6juYQaaG/rg8DAcx2fj
xC7SGKgg5nblzp1RaNf+oYKzs/j5TkRJNzRGov0pLQZKf/H9yXklJ69FIvIv
P8/M1ZPIlN93gcAaiYblbJqiuCbRXMC/ErWUCORh8Kd6p8AkypLmdXx5IAJ1
Tut+fCU6iXiV/5WR2sORp8eHnNtSk8hB0pd7461wVPN98OyCPL6/r7VFjycc
WRopbZ3ZO4mmndLLrN6/RB8UlLpLDuDfKyhW25q8RMl/fqnu059EdWtn6qwn
wtB4Wv8HkSOT+Dwl76rrH4bqtZ4Q005N4vdZZLN5cxhytB8e4bXB16NobZSC
F+jMdWueiYuTKCRb3iH2zAtEsY4dtr8+ic6xedYazYSiml1LTaduTSJvwfd3
+56HIj3KtguTnpNI4i5Svywbirx3/6Ha+OPnL7w8MVLxHK+X0080g/H935ut
9S88R/uuv2utjZhE7ONR1xL+hqD3to+Vyl7jfGsPeYxEh6DRMf5HIW9xPhaU
Cb4DIajI1PYBZ9YkIpXm9LmnByNS7Lew2U84P9FyWjg1CL1p5TjuV4b7W/v2
/QeRICQXzmD+XoefL7h4XaLJM/Rv/2xdAxG/n2f1Fy1CAtGN+i9qJt24PQlu
H96Kp2iXWnq51tAkcupBq58yP0WZKnoHuCi4vWdBbH16AahJLOmc13d8XeNG
s4L7E6Q+vjXGdh63v/4Wi/bnx8go/PKDKeYppCgw7Xqa6o+SZFo8aBxTiKl6
T5WCrD/6cnD8ainfFJL4mmDbfcUP3T5exqohMoXOSaaqP417hLw0ivNkJXEc
93t+fsAXyfB6rCuTm0JaQzaXndf5omBnmuXOPVPI+3Erb6nuQ6SXd6+Ua/8U
ij/+MqLmkQ+KIhEbQ3Vx/yY8fd2fHqADk4bfHx+aQmWHFm+m/PZGsQFX2U+f
mEJObTryevu90Wses/pmS9zfnd3KI/2eaMr1fELeBdy+IEd36jkPNFixe6vB
Vdz+eO7XkMp7KOj1h4hMV/w8NS5NEjvvogCbo1v97uPfHy99Lpjrjraz5pqv
eYTzbXycqyRyG/EHqaf8DpxCJCPuJx9fuaHYxUevnr/E99PXx1sv3EQTC56+
q+NwflleZz/YuyDPwSjf0RTcvkp0oxXNCeWn3tl5IxPHRcwb78VfRwdO3pty
yMf3S/8kMuKvIO8guST1EpzvX6kXr7Mc0MWsOKb8Gnz/Q6v6Su+LKCJ3r1t8
89TyeAt45m+LHOODX+ztxNe7q8lvYm3QP5HI5PhBfP2f1dInY3PUe7ui8d4E
jtUmjv6zO44siz/GMU3j+08or0pkMkKyIxX+P37j2CWYec9W1f/z36ss46ue
13hb6CBnqWuOhlOmxL/87UA26x/xdF8moCN1Ao35MQRUx1ZHsAogoEt1W3ca
viIgnqAufv53BFS74+xtkWgCUkzL75z7SkDmF67QlaIIiO/jnfZhBgHFTUr1
BkcS0KOmazcV1hBRNQorOoBjp0BWDZ8NRMScyIaUcGws6Fs7tZ2IXm6taXLB
MZ8Dhf+WKhGdlOsnMeH2VHeX//E4SEQLcxe8xnDseMWB3niGiKpKxAnrcD5P
b/yK2+tIRIXaJi5Pcb7RGlf48+4SkX+kC4dlHAEFGa/niclpQ0p3Hn3k4GhF
o3J79Tmq2lARPWb9FaFWJNe+XyO4rQ1VdK1mcuJpRRc/x+j++YvfD5H9FkFS
BoU+F2NvP34SRbVb1W9Y7EAnG4RmuW0J6NpbZraNsQQk1hHGOfGAgAz+/TSM
x/kI3XuorJBEQOVz/clW+P1EZMYcc6wk4PXoxAEHnH/h9myr+2ME5Ntxi/0j
ft7sDXfe6awmogkLyu7lvydost0Zr7OeiHZv6+1RwLH3n02v57YSkfZfO10r
HN/ujhOU20tEfXTna2041uzdzGKgT0TzZyzYUnD7xlLKjv2niIgqezKlDPcf
nTtkOH2RiMyHjv2UwO/n4fPqXZ9vEdG2SI2nIzj/c4eL5d59aEPWVjxSViyt
aLzgT2BlaRv6OMO0LnFDK2J1cZ5/TmxDJPUZKWveVmTY/OHi73n8flTrC7RE
lJCLyt+w1lACesfg/jSD+2NLUJj6lU1Awu7utn04n/okorV/GwHtFWbxWoVj
B3Vtk4O/CGjXuhS3mzh/84e2+4W5iOjUWzePPThen9/XXb6JiKxCBzL241hA
kT41voOI8mZjGp/h+N2vPbwVB4hIb19k0vJ42+1v+z3vCBEJ/Ni1Ywfuv9jI
8XvgpzZU7G/BU7K2FQ3HXFswqWtDBrF73lsItKKHyU+2LCzg/EntovGSwoh9
4fev5xbHUaO/jKT+UgcipJwdk7bB4/y4Y/gh/H7qNP5uz/AgIN6ReyHN+PtG
fzevU39NQIs/3+l64f6MPwbzbC0loFd8eZ98cT48F0wkDg4R0DAp2qES51tf
7Gl4hJmI9k/99D6O439NFS2SfETEqOkKWP6+mxgTnAtbiMh1Q2Tq8nW50Hkh
FiVcDx4tu8pwrKNIYJfTJSKuAP0iv+XxwySWNnZi+e+uZmqjcf+Sp0+LNl8g
opSWrZUMnJ97kYtmkSsRn5u1Y9Jw/sZNvJ+z37ehevUO8ppVrYi81J8V/6UN
La55kcIt2IpctAJPv2huQ+LDcqUn+FpRgfnnXz/n8PtxLMrJF9+HxF6fz44I
IqBOzzlrUdx+wIbVD1g+4DpmiqX8wfncf1MpokUkoK9aIhtFcFzs1s8nNENA
t7Qk1j3A+V+XceiU5CAi/WKtlyrLz7PFmStxI34fV66dVMbxB8kCS5osEX1i
PV/ihWObD0F8MepElBD2d8NG3N7ePr5fUYeIqOLT68w1+HlT6ku8wvLa0LfW
ENYLXK1oZMR0i3xNG/qy/Ua/LX6eHztfZP/9h/Pv6r/BISKJ7OmCUR8oBMTB
Jd79Grcf43JznSorHk8nf07p4Djud9R1W0EiEiNxXt2F47E1pnt+bCOi8mij
P/bLsfOGy+PlbYiv4MvRm7geBJaSA+7/ISBagdG6S/i69oDV67Vrich9U6ar
Io5HjY1Sh8SISKVq3mi5fX4R75DFRZzPuTz9Z5LsqFLp4nUnm2NIPN+F0IvH
W+B634E9VgT0JNJ4/0X8vWKdM/OD7uH545f91nH8vvsydJ9r4/8f9HD4Rwh+
/mQljmtLxXje4Vu8/AK/nwJvUZ9dgwSEiA2cTbi/k8EPXh5nIqKLWvjohuMX
q59R+Xnx/Ci6oXd5vDmMN2ktSRARHT3XN8Gx7+SbDd8V8fhxKw7Ox3FVjzSX
qA4Rbaon8Lnj9meuh9RRjhNR65MJg8e4f3uZULYvtkQU69+W0YbzczGt1y++
SUS6hU+Fn+E8S9bu987PaEOPXuZfG2BqRQ5JBJ3g4jY0+I4rp2J9K0p7G8UW
1tSGHvSq8BDweJsW00Ruy+NN3JD3R7wymmkV0L4biJ9LYyp+N26/sZVxkOs9
AQ32fwzmxP13bNe4I9qM5/2tKZbSOD/7F+9u/psioI+FPSaPcf5//jhuk2En
ohubE9jUcdxttl8qVJiIjmXbbtm7XH+b4p4zZIho4MMlyTs4LuA6wP9EjYiC
tCZauHF7+X6X554aE1FgwPlrv3AswkkxiMxtQ2zNzNuUOVuRnb9Ojkh1G9qV
X/t7HI83+R8b/t5dHm9S5gOO4tsQL+fon5cTBFRa+dY4Fbe/Xf+WtQYLEWkl
6N0wwLGygp3/cQEiun1d939/T6bErHz5lxQRoYpD987j2F6Q429bWRsa8OJw
+o3HW4noTbrtHM7rA4foNXy9Messg5+biFSLZTt34/i+N395iygRVdKutmou
r6eDLN0ey+PNtFJ5eiM/0qTemzdcRUQbVNpUlr+3XeRcgRI/Xj93l/xv/rlk
RRfPLsHzAffDjafxejhy6uITMU5cbzd9Lu3D19Npb2Y+ihCRYaF6lyqOeeOd
ypXYiMi3kjMX4XhNBeGUixARyR3Xf788/u2at3X+rmhDfaOTilO4vXwui2Ps
PHj+UuI3W66vI4Kewd/F8fsXj+Jdfh89J/8aei3vRyQUfJ9JzmnGN21KP0sy
RW5VptLbmTrRFWMhS3VLAhJ/OyjlgsfXYy72Ra+7eLyne7LP4PFxn/PzTz28
rhntpI1F4fFxbFY/hlFEQAcUtEjR+Ps9C16dIzmA9xU7bOdacH97v7PeSV8i
IK/FZ1fPLM834jO/AtYREclHY8vy91g3Umbpjetj6kXczsM4zopZiLiE66PK
8/Tg8nrNknWc+6U2jnfw9Tktz/fSxl1XcH2oaFZtWV4P2J9/uLcX10fckVM6
dTi/qWjX+gO4Pshir2Y9cf5zCsQLqrg+Zs0+dx3E9SHjVveUDdfH+te6VDFc
H3qWEjYCuD7eB6jnc/O3okBv75G9y/XhdMJsva0K6r96/fGVp3iep+nYHMDt
X1O8kMmTgfO2N7vHj/t/SL6TytlEQFFrdaLlcX4HEkOTpyYJyH/NDa5AnL+W
3dXGdLwfyzmSZr68viY7xyty4vrIWy8hvbz+Jgk/z7iO62P8t/yU2/J89jk0
dAnvx6x1KprZcHu/LV/Os+D60P/1l8bA8Uk5TzkRXB/PNyX1v8b7K6kz+/89
x/urnkIfVln8/evMLF6rL9eHDEd1TLw0GhP+uuPJOK7XhjXxGbj9q5m3Wcrw
/kdOX8HICMerjOpfNOD9D3ciy/++R/eCjO9tXB/Dibc6bHDMZupJXoPrY/ZH
IukHro8XOyzEzH7j76ShgZz+N9+eD3uJ9xNSrzsSlveXRq9uNx3E9bFtl/8+
DRyPaxt6aPxvPvY7ayguiHxPeMQ34PX5946lE6b4umKOdXU6Xp/Haqu9l+tD
ZufYJVlcHwqJloSPuN5lSu0V4/F69saG7ra8ft1i416SxfUx7a0euLy+mXG4
OOTh9SXRK/SgNo5b+/baUvH6YncvctVyfUjFi0vcwPXh8VFaazfO/5+r5VwA
Xj/GVUf6lutDWHHk1eXl+iClSOott/9Jg665XB9Z52+QN65CdeTtA9F4Pl+d
/yN1Ob/c55c9U/B85x7vUb1cnzwHOjaI4PV16Q9Rcbl+HfmX7vbg+eYbSzRl
+X2+0eXNtsbrWePfnLN5uH8/QxuDEDyfdNKcxJbnk0iPFxmFeH7I96j6X/tv
Ambb1fF+sG5qre8//D0PvHU8+AfX+1HS+qvL9zslmqc/wvW96ecB0nL7mjMF
SaXL+ZZp/o6XJGuu2/Tb8HSCKUplbW45jOu55+LZqC8WBHTmrctrd1wPHl25
CXN3CKiff4Z5Do/nw59n39bg/7ZyB9jF4fGcemI0xw7X8+OXbxPj8HibE7p9
KKYf78MyD99a3v/etVgjoYDr+eVar0SL5fXrndSCAa5nbaeWQ8v52J5Xp2jh
elZ5Uid7CMc1szJdkriehdDa4A/L4z+aHHgM17Nly5TRNdx+DPN2kjyu5z5l
zvC7uP8z+prK0+eJaPsrTcEKnNdOLWOuBRe8nthakW/j/IVKok/Nv2tDxxqt
I5eWWhD7gJ5iRVEbWnL/9/wrrl/+vJEnbY1taPW0RcAOHPd8TMgTWK5n10Ob
kypUUKvaJvlRfL7S7Rqq1Mbtaw7GngvB5yupsya3hXD/PUbCZQ8aCSjv2FjZ
LpzfG1k2jcu4nlkZY9PL++FhYcbmq7ievweuYl8+X3EutSrX4PMVqzVP1vL4
/xXOqb4L17OaErJyXV4feUtaC3E9S4xub1+N24s02HG3HJ+vcq8J5VBw7Fxo
JNqLz0uCtvJVJ3E9s1R8ij+C63ma8ZDbGH9/ocf3nEWW61kUseSf345M4zWr
VuF6Xv+yvyVzef68MHf6Aa5na6bv6geX9xvtf6P8cD1bnL/2d3k8yd9P5FPF
9dzrnRdg/f+o58XspjwCPh/YV3J2OePrec1DE2a4nu0W/Ncuz0+ZMunfWHE9
V9u9u778vHtvOhwVW65np5inN+OFkDT74uxTXM/HlM47HMPX2SPOc4/h/a5L
9RXls7h+v96ceHge1y/Z+s7q5Xrte6HJOo7r5cnnJsZyPc9/mSm6hev3Y0qq
yPL+TdXxksMbXL8sk025y/XJwvGqSg7Xr9mRccPjON842b5Dh3H9RjxLk16u
b88vgonbcP1eFjLco7s8Hsk2JeLL9aDl6KYuzop23rIYXXYFvms/Kl1+H6cN
qC32uH7N3s1cUMOxaz27eAeej5+phb1Z3q8QX+9+EI7r93Mk7cPyePbLCDTb
iOs3or31UgfuX/bfQNQxXL/92Tvdl+txkbMm+xauX9pNFLHcvt/sjbu/8Pw1
UlXUkIa/X+Le2KP5uH5D1GU4l+9ff7p7wQDXr/PfNRuXny9wa4/b6//Vb8q+
yY0zmnMhpdPNuJ4sf6f97/vFFIY/48H5JCkn/K++DDwfvQ7B32/N39PuwsKt
6ExZT3I9fh/ilpYRy+3ZWv7sHMDPu1h78X/5KE2fe7OI87sYd+R/z9/E6DSr
wv1TrT6+W25vuiyiZXC5f+8L5i2SXZrRLyVJurj9zrOI0+XZO3R+6MzlRzi+
XWkyIob7+7/Hz8r9GVd47rDj6yu+XqPQs67m31Pg6931NmpkTE2Br+e/Cgld
mJgCX88gcf3By4NT4OsZ5qg/ieicAl8vtS9msyhhCny9oq39cbtrp8DXU3ho
7hpbMgW+HumE9Ond+VPg6xnotEqaZU6Br8d98LNeS8oU+Hq+1zyP9sdOga+n
sTr8El/4FPh6pz6S2189mwJfT8Jjo8KnR1Pg6x06/6hHxmMKfL38fN2XFa5T
4Ou1y5JUGVenwNc7nvdJ6brdFPh6PjbXBL2tpsDX45OwMSGfmAJfb/h4Qpj7
oSnw9S4mVVRG6U6Br2fEvfkg3/4p8PX6Q8982rhnCny9nIBxJeMdU+DrUaIz
WVokp8DXa6k7WUoWmQJfb+M6ZaIZ/xT4egk1lyfpHFPg6/W/uvdz/aop8PXc
n9Qdfz4/Cb5eddhs5Ovvk+DrneBzprdTJsHX034jG247NAm+3rB5mYx39yT4
ekNbQ/l+ECfB13vBrTMyVzcJvp6/vV7FtvJJ8PV6uh78Ti2YBF9v0CFW8EvW
JPh6enw/nmxPnQRfjyoXy1X4ehJ8PR1bqVv9EZPg6/35OK58OngSfL2Lm/1J
5/0nwdfjXbwTEeY1Cb6e6M+3yWK3J8HX6+bIjVa5MQm+3i/lv+Nv7SfB1zvZ
HqalZTMJvt7F59wPL5tNgq/XfrF0E+XIJPh6v0+bxs7rT4Kvd8dW1O2cxiT4
egcG1C2m9k6Cr5d9W0VmncIk+Hr+sjcOP5KaBF9v3bzvmUDRSfD1utQYN4sE
JsHXY3oRMqrFPQm+Xi8Hv+Zplknw9QSjmhmVfxng64VE9aebzzLA1yv51GDq
SWOAr3docubwn2EG+HpPdeZ3r+ll/OfrsR+XOvCNAb4efWzsam0DA3w9r6HT
cSMVDPD1nH+ySJsVMsDXE9oeEn4mmwG+3r/6awKP0hng6+k88iOzJTLA11Oz
8UjZGM0AX+/50Q8FPs8Z4OvJZu/pXv+EAb6eq1L48L4HDPD1Nn/do5PpzgBf
7/6DDwGfnBjg64mkeZDIDgzw9YQpfoFO5xjg69UZXN/yxJwBvl5ncQj33FEG
+HoyyayswYYM8PV2pJmP5yMG+HpBNeNi+1QY4OslMp/Q1NvFAF9v/j3f1Xvb
GeDrfXDhmmbfzABfb8OpEavtGxjg6w0c/bU5hocBvp65w8TXBDYG+HoCM3KP
CIt08PV2haWFnfhFB1/v3wm2Zw6TdPD1ZOTjer+N0cHXC3d7rHKpnw6+3qc+
0/tP2+ng66lYndzA1kQHX+/y/L5XfNV08PX61jjK63+hg6+XtbN7PSGXDr7e
vpvSo5QMOvh6IsRMTstkOvh6WnFPNH+8ooOvJxygYykeRgdfzzRIuTnuKR18
vf1Z7HJZD+ng6/lSBfs23KODr8cb7vbqrQsdfL0jZ3N06xzp4OtRteR1kC0d
fD01rYeyhhZ08PUasuTFbx+ng69XqMZ3eeEgHXw9a9K3GAEdOvh6Z1+3SPuo
0cHXSyRsKdmwmw6+XqSYqaamLB18PcbDzwJFEnTw9X6uYW6rE6aDr6e5EB2/
yEsHX2+c06kygJ0Ovp628lbCWyY6+Hp/7/Dt3jRHA1/vUm//vc3TNPD1BDP/
fTtEpoGvJxll5tM8SANfbzghaONwJw18PeZK5jWHCTTw9WxP1TIP1NDA13Nj
vTLGVEoDX2+i6eDmu/k08PW4c9l0fDNp4Ou5cAm55L+hga+neu/cnGYcDXy9
LPYnl8zDaeDr+WfS5eue0cDXi69OXDr7iAa+3pU/ykWPPWjg6700ZGta40YD
X88lO6d2wzUa+HqZ+2KEPe1o4OvJy3Xe4raiga9ndWD6y46TNPD16PZ6lgmH
aODr7fxwa+itLg18vY8Of1079tPA1wtTL7Kx3EMDX09W7sxu5x008PXElJQs
+iVp4OudeGcd4ixCA19vv86lD+H8NPD1Hn5/J8XPSQNfz6Ok2Ud8FQ18vYJ/
upPH/1DB1ztx4seH/u9U8PXia30s5ilU8PWOnDxseWWICr7e/uMOl1m7qeDr
9V2zPafYQgVfrzch4v3HOir4ekGz6SOVZVTw9V5bz9+QL6CCrzejGs3x5QMV
fL253RsDB95Swdez0v1mZ/aaCr6eq8sV6bMRVPD1GvnNfgYHU8HX8/16T2SD
PxV8vakEL5ldXlTw9QpCSgJjb1HB16uaPrq45zoVfD2f66XmlvZU8PXiWBw5
uq2p4OtdL5hJnDhFBV/Pq7/poLgJFXy9KZFRg3f6VPD1+G91yddrUMHXC6Os
uayxjwq+Xt1dwSAdBSr4epoebmU3tlHB11sfyXtwVpQKvt4r4pPCNYJU8PV8
tmj6uHBTwddLH9E7zcpCBV/vUaWsoOw/Cvh6pUUHZZNmKeDrZbQYSmfSKODr
9ZhHKg6NUMDXuzS39bljLwV8vbd5z3p8v1HA1zN4qnT3ZwMFfD3pVtntQRUU
8PUKlZeKPxVSwNfLyFmXppJNAV/P1GTRwyidAr7eSWaZtA8JFPD1orclD2lG
UcDXC720uOrscwr4epTyF3fbH1PA15tVW9Pb500BX09za5MR9x0K+HoUqWbu
UCcK+HoGeu8/pzpQwNdbdb+2WPAcBXw9pm17m9JPU8DXy6J51hCPUsDXK2tg
ETpiSAFfz6fWwcQCUcDXe7Rvc1iwCgV8PXIRr+KmXRTw9RbOknJVtlPA13MR
pQWni1PA14v89e1EphAFfD1mnXXbengo4OvVpzw6bMVGAV9Pd3uP1Y1FMvh6
ouWXK7t+ksHXU208pOLIIIOvx/qTKyxwjAy+npLyGkPWfjL4enwvScM87WTw
9XZf5A7UaiKDr/fxyM2ndVVk8PVGTxTcHComg6/n5qKabZpLBl/PaBXX4sQ7
Mvh6zR+KlHiTyeDrZbu9/RL0igy+nvEZ591xL8jg60lmPstuf0oGX89i09iT
Cw/J4OvpvxEx9rlHBl8v+ODTc79dyODrPeXsObvgSAZfr/7Avas7LpDB17P3
P034YEEGXy9vim9T9XEy+Hp2Tmu+KBqTwdc7aXv0apU2GXy9385uLBQ1Mvh6
81EdMxd2k8HXyxwUbLghSwZfLzn8bWbSFjL4evMXXSkKG8ng6zGd2Lz2IB8Z
fD0Hc1b/QnYy+Hq8BA2ek0xk8PWuXDjp6Tk3Ab7eNt43ektTE+Drhfa0z/KS
J8DXs/miNe8+OAG+3hW+RS6Ozgnw9XY8jFojR5gAX894rdOZhJoJ8PVE86TC
0komwNfb2byjrzt/Any9hKVrd89lToCvV2MSxOz+ZgJ8PeN8ysBY7AT4erzB
EfX3Xk6Ar/f40dbYxGcT4OudDaPWbH40Ab4epSy4W8FjAny9XBv/+QtuE+Dr
DQoU3pi+OgG+XjG5oXntxQnw9ebahHwfWE2Ar0ce0JL0OzkBvp6wxZem7MMT
4OulMlwJ+/QmwNejxnEWHjwwAb7eU4fePzl7JsDXu560aGSwYwJ8vdX/lrwu
b50AX2/u6oG1IyIT4OvF/TV7yOCfAF/P/28lmwTXBPh6hPVXSamrJsDXqz84
k1jxZxx8PcnInCKlmXHw9UpO1w41UMbB1+Pa93l6dmgcfL0CufFTN7vHwdcT
0vye9LBlHHy99ssqRtS6cfD12tmI8+5l4+DrPS43CIssGAdfLypszpcnaxx8
PetHj20EU8fB17OdcNTXix8HX6/u/GOf+ohx8PUG5x+mDgaPg69nll4oddh/
HHw9nkbdTJLnOPh67lzvJNhuj4Ovp3PhCOXB9XHw9Uq6mqKD7MfB17tfGn+m
0mYcfL3okszrJmbj4Otd7o2+6mgyDr5eJG9FWZ/+OPh67J/2S97WGAdfT/7e
i6uJ+8bB18s8Lb1WSmEcfL3hYxHhytvGwde7Zad767XoOPh6h8naFxQFxsHX
a3sirnacexx8vUJd5YsNq8fB1zu5Sf7ut79j4OvtsnONYfkxBr6eY/VvgUDa
GPh6ZnpnbiWPjIGvl9j7U2F97xj4eoqjozNprWPg6zlxZse3NIyBr8d7sDD5
aMUY+HrnU+Kf2xSOga/3w6X76cvsMfD1xs2P9Emmj4GvF2j1WlA7cQx8vRB3
+ZS8qDHw9QyyI8SKno+Br6dpfSqJ/GQMfL1wCROvqw/GwNeLZ96m9+DOGPh6
HH+Vz9KdxsDXy734yt/LYQx8Pd7J/sikc2Pg6zUFWTKJm4+Br3fgyCdTWdMx
8PXo9y9mWhmNga/3r8rEFo8+8PVK5ISWmFTHwNcjpQrPOO8aA19PJ/LaDOf2
MfD1zFPie/duHgNfr7GBZ1Oe0Bj4ej/WWurW8IyBr3f38nC5AtsY+Ho6ysVH
viyMgq9XLOFa0f9zFHy98K2Xnp1kjIKvJ6mnqm01Ngq+3nS75arA/lHw9US9
Czfyt4+Cr/fP8PdG2aZR8PXUZW44hVeNgq9XeEetbUfxKPh6DPKQxPHcUfD1
vJyqK5vfjYKvVyXof7QvaRR8vYPyr8h8MaPg6+20pHbGvhgFX6/m7Yaswqej
4OsVc3sPKDwcBV/PPrjm5+57o+DrmT48K2JzcxR8vejgPS9JjqPg60V8Hpub
tR0FX2/2b2u2tcUo+HohH/jvTh0bBV+P5K0ox288Cr5ekOMTxafao+DrTTuX
bX6pNgq+3gvqQdHa3aPg6728x3PjqOwo+HrGch/THbaMgq9n8z3oQJfwKPh6
ObKlvTd4R8HXK/JquhDJPgq+nuSkkM4GplHw9Q7c1eTYPjcCvl6ueIL0s6kR
8PVu7DU7tmliBHy9vksUO/XBEfD1UnM+NX/oGAFfT1rMbkt+8wj4euO/bR+M
1oyAr8dGi1G5XDICvl7X39wOz/wR8PU4trE3Ut+PgK93v/R9s2fKCPh68bd3
FybFjoCvt81o+q/4yxHw9ayUn0nveDYCvl7by/s2Zx+NgK+XsfYtnXJ/BHw9
5aQPF1jdRsDX23xsVvH21RHw9YydnnDx2Y2Aryf9fqF5v9UI+HoXVr0nFy87
E/+/r3fcTZ227FCs+HrxTKv1VHRHwNdTXBBLr1UfAV/PZcOGebLSCPh6AsaH
4s7JjYCv5xBtLX9ZcgR8vQXLitookRHw9Wb22X6W4B8BXy9SgfRClXMEfL3X
GlFVb5hHwNebKElepTE/DL7esHWQrN33YfD19gvmvBkiD4OvZ0jN454mDf/n
6ylyeUt3D4OvpxP86mAOcRh8vQQuzn/EumHw9c7F57Dolw2Dr0c8vv/XwYJh
8PUe3hL8eStrGHy9l9lyxn/eDoOvZ8Et/pgnfhh8PQ/Pw6J3IobB1xs+3/SF
K3gYfL0/tvJGu/yHwddzul8jk+Y5DL5edI7mTM6tYfD1WKw46sevD4Ov1yy6
7tcN+2Hw9Q79neEKsBkGX2/7DJ/7n1PD4OvpWTz8HnpkGHw9AVLriWL9YfD1
dD2tuQ9oDIOvJ6Ve8/7wvmHw9ex5HFNy5IfB1yOfOJeuIzUMvp7op72RtqLD
4OtlKen1da0fBl/v19fdHCSuYfD1PDucddexDIOvZz9P/7bs9Kz4ektqBkfe
zQ6BrzcX2iMqTBsCX0/Junw+Y3gIfD0Jfb/S1p4h8PWu6vv1mrQOga/neMGO
ZNkwBL5e+kzYTEjFEPh6xtFMlqKFQ+DrxZw1zlDNHgJf77AG4cS7tCHw9bJU
lUYzE4bA1zuVMvGgJ2oIfD0LuS43q+dD4OvxNr05fuPJEPh60o+zHnV5D4Gv
55nLXXPZfQh8vceLBlNPnYb+8/XOFV9ncRgCX49naF3n2nND4Otdac07jMyH
wNeT6QsXrj06BL5e+GqzpkHDIfD1LuqadpmgIfD13H7ETI8pD4Gvp1JZ+33t
riHw9czTFQ4GSg+Bryf/wfnJK/Eh8PV0trF3tgoNga/3Kaf77jmeIfD1Bs4+
WePFNgS+np2UK3V2gQS+XhybRv78TxL4esIW5sHbJ0ng681UZ5a8GyOBr+d5
dKSjrJ8Evp7j9+P68u0k8PXCWQTLSxtJ4Ovd2pe3bbSKBL5ermcIyaaYBL7e
m7GDvo65JPD1ur6c2heXQQJfzzEz5oBMMgl8vczicnndGBL4esdHttzMfUEC
X0/lXlvNkack8PWaFS+udn9IAl+vZlExfO4uCXy9G9QePs6bJPD13CdLR5wd
SeDrVVz4XcFsSwJfr+QX91NJCxL4eiKJ1mlRx0jg68lcCcxKOEgCX889ZW11
izYJfD2Zufpd5mok8PWeONg9vLGbBL6e8Xc1hX4ZEvh6h2nnR10kSODrrVrt
4BslTAJfT2hP2l0hXhL4en3edWek2Eng640idQMLJhL4euE7m/ma8H0rvl6D
8KjDGtIg+HrFe5yuTuJ+Vnw9gYAC7d8lg+DrTVak7Db9MAi+np88R/OpuEHw
9XxbZA54BA2Cr6f1tsTsmMcg+HqeZ+efuuH3tOLrSZ6YDi3C73HF1/O9bW2Q
id/ziq93uNPvawX+Diu+XvjGU1e2yw+CrxcXGPVJddMg+Hrc+6Pbr3ANgq+n
KsIXf+jPAPh65F75R/fwOFnx9f51sRxo6h4AX6+Z7cTrr3UD4OuxOVm30QoG
wNf7xzGQV/B2AHy9W36rs9vDB8DXO6k55iWAx/mKrzctrfFnyW0AfL0Z42MG
a3GdrPh6t45xvnc0GwBfr/CxWpmr/gD4erZ/pVLi9w2Ar1cX56d8R2oAfL1s
qWfDCesHwNdjGj96jr56AHw9nq7HASMz/eDrebN6+v0b7gdf75agcOzFb/3g
68mZyZy7h+eZFV9Pp/XHj2w8D634eiJeKsoReJ5a8fVceTaHfg3pB19Pqbui
dAue51Z8vay2vigpPA+u+HqhXDn6B/E8ueLr7b25FCuC59EVX8/8yzTvAc1+
8PVIOnGnvHb2g68nM19ucEOsH3y9NmoCx4O1/eDrsZRKTwwv9IGvN1O5xfk7
vQ98PT2W7sYteJ1Y8fXM3NjaF7/2ga9Hrev6vaOoD3y90dOX6Hff9YGvF7Ph
6rNb0X3g6xXwKzCFBfSBr2c+HfqM+V4f+Hr5i9drNzn2ga9312jNt9MWfeDr
/asQfKp1sA98vWF3ksAhtT7w9Q7zmX5Owevwiq/n2rOP8z1ep1d8vVWDnfLL
6/iKr2ciMP33HV7nV3w9Ufn3Yy3jveDrmXpJJ2zs7AVfT2e1EAdPTS/4etEV
5TpS+b3g67na8UcE4H3Iiq/HrdIdEYv3KSu+Hqe+lWMr3ses+Ho1D09RcvA+
Z8XXY0uZ9Rm70Au+XjqzyaQq3iet+HrcweJsarq94Ou1nX43ZYH3WSu+nsWx
zEeyeB+24uvZKZgpG/H1gq/XqldY8Ji5F3y9xcCwCbfpHvD1Qnh3kH1JPeDr
Jd+yXz1K7AFfz32t8NcpvI9c8fWyBh/ZieF95oqv92b4cvrvuB7w9STqZjgl
g3rA11skq2hc9+wBXy9GfXbTpWs94OvF1To2PrDuAV9PUsU/go73ySu+nn3n
xnUsGj3g6/HkOJhrKPSAr+daqmCyVbQHfD2tNR8Ed3D3gK8XtLv9tw/ex6/4
ejGBzn7+eJ+/4uvxbG0Yf4/PASu+niY1ctYbnxNWfL2ZF9ybkj93g6/HeeeA
ACWtG3y94aDhzz2R3eDriZP0dk8+7gZfb2D94cpj+Byz4utZudczL59zVnw9
TeHV/GH4HLTi65HI2c0u+Jy04uuxxKx5k6DcDb5eUIDw0RnpbvD1OtJeJ0/h
c9iKr+fDMvKVB5/TVny9bO2vaz1/dYGvF/9B9l8UPuet+Ho/zPWKO/E5cMXX
Y9vTLlOBz4krvt59I8lLzbld4Ovd0hIok0vpAl9v5+X71XvCusDXO9wUH2Pj
2wW+noztfgnlm13g6/l13y2xxufcFV/POPDWzrf4HLzi6zXeIBvH4nPyiq+X
HSSklofP0Su+nmgIRVtMsgt8Pb0Kpd+7+brA12vdperpwNz1n6/XnPPx0HQn
+Hp0k7YlT3zOX/H1JLg+bm4jdIKvxz+3mt5e0gm+nqPE+oD5zE7w9bzvRLbV
x3aCryecV6FGDewEX09IPs1J3qMTfL3Wb6wnN13tBF/vR744h7xVJ/h6kff7
ugIPd4Kv98eF91T0/k7w9SqSmZLqd3SCr2e05lJsikgn+HrHD7tkt3B0gq9X
1qgWtflPB/h6dI/b8iKUDvD1PB2dnyt3d4CvF6rGy5dU3wG+nr3aNo3igg7w
9eJcf6n/Tu0AXy+MpDE2ENEBvt60v/Z5sn8H+HrNfNTf2u4d4OtdbWTfb3Sp
A3y96xUjR51Od4Cvt5Oyl0/foAN8PZcZOcblfR3g64mo9EdnbesAX88ng/Vn
kkAH+Hom1lSJzywd4OvFTN+8JP6zHXy99NybFoqj7eDriebu2mzX1g6+nsno
+RC9ynbw9Vb9VhV1y24HX09Ev/FObWI7+Hozle0Pa563g6+30/PV2YkH7eDr
yV3unMh1agdfL1W5IKD1bDv4egHo1BKfaTv4evJ3HCQWNdvB11OaVFnPvasd
fL1i/QwJx83t4OuxNIf3uPK0g6+X9VzDPmGxDXw9UT+LuLuMNvD1OK1Fvyf1
tYGvZ3MjWnCqsQ18PafsoPHxojbw9cYV0ROmjDbw9UjPwwwcY9rA14vcei7L
+2kb+Hr50xO0gntt4OuFTo59i3VsA1+vdXv8s2SLNvD1wnWXzv81bgNfTzik
bXhRrQ18PSZh+31Scm3g670hXtv7S7gNfL3mKyImwuxt4OtZ6TxUs5r7Br5e
6kHblsMT38DXswhcUD/b+Q18vaCPGqXltd/A1/Ne82OKmP8NfL2u/4+9O3+n
6vv/Bk6kVGSKNCClZFZmZUmJSiURaUISKkMpNJGpTCFjqMg8D8cxZ3YMx5nM
dSiJyhClRKLu5XvdXt3X9f0T7vfnl8+1rt72XmfvtV577et67seKsZliTesA
X2/C/Hjiu8gO8PX8/vbZc/l2/PP13m3nOHezA3w97a8fj5627gBfz2rPxcuu
xh3g63Fc8YkbPtABvp5t68a7LEod4OspXHKU27utA3y9YgX14O38HeDrvVSt
fqXI1gG+Hs+W0ZXB39vB19ujGcgSOdgOvh419HNLVXs7+HoiQpUosrYdfL0p
DyV6RX47+HpS2+x2sSe2g68n9ot/36+QdvD17nLe2cLj2Q6+nvm83yZXp3bw
9WZFORsCLrSDrzd3X29vzfF28PXKueetXmq1g6/3x9MkqVO2HXy9VLkrREmR
dvD1uLlmbuzkagdf7812xG6wwABfz9p5QXvjOAN8vevPLWI0mAzw9YY4PGvv
kBng6wkmrIu2K2eAr5ftclnLPZMBvl6D9HmW17EM8PXi+ckOw/4M8PV6VX7k
8t9mgK/XGRAeN2HLAF/PqLbnpbAZA3w9pd29d2z0GeDrdXcdY7VQZYCv10d4
YHZnBwN8PRuX060fhRjg6+VeSvv8h4MBvp75k4JetRk6+HqkScWboh/p4OtF
PXL4sKObDr7eKJvhVU8SHXy9+by0RF8iHXy969EV6dkpdPD10vN0z3pG0MHX
s8h0kUr2poOvd3/gQuvIDTr4euZ6tYJ9VnTw9WJH3ip9NaKDr3feIfGa8X46
+HoDW98YXdpFB1+vWYDGGSNOB1/PQUXjmisvHXy9KI3DY6ksdPD19H/I3Pr6
nga+3kBngcN4NQ18vQMyeatkEmjg620bjvnbcI8Gvt7Ki207/5yhga9Xauo2
c3sPDXy9oRwekRMbaODr9d3e8tl+jgq+Xu+au5+2Mang6xmy1CO1Mir4ehH2
XpohT6ng6xmryIUiVyr4epuatm4INaGCr5dNDdPbpkIFX69UdZzCK0AFXy9U
qHpG5wcFfL2rlcxTAl0U8PWa64a4EYECvt44srHPCaeArxck0ily05kCvp5S
XeDK/uMU8PWS+yoiHylQwNeLMOu9E8xNAV/P4Mi15d0TbeDreb6Y+OTa1ga+
XmVp2d+yzDbw9Wr0F8pRYBv4etoasjQRuzbw9YJedvntO9QGvl4frekGu1Qb
+HrZ51PLxFa2ga93wHrhpednMvh6ZmTtYXUSGXw9lxnK2fBkMvh6ZrEdrgq+
ZPD1Kp83jm2/SAZf77OwApvlfjL4epvMh45rbiODr9f222faYRkZfL0DAs+1
Pg62gq+353HSQHFNK/h68/e3bCcntIKv16A0kuDxoBV8vZUGz1yCL7SCryfw
pmXsLWoFXy+hZbDCf3Mr+HoK93VrO3+3gK8XlCFmf7GvBXw9a5XPV46Ut4Cv
x64hyesa2wK+XvaywjGdOy3g69FlJEVtT7eAr1dDEfxJV28BX0+G/k0iXKgF
fL34aMHA6elm8PV6uwjhcd3N4OuF3tw7HVvUDL4eTxCa649oBl+Ph13O7Pb1
ZvD1BPbZjBUbNoOvN/RDUFx1cR/Z/+vrKawqKuBZ2wy+3oGoliHZySbw9Sw+
SR4dozWBrzf71IV7WW4T+Hpn69VunH3cBL7enmMjCjxXm8DXE3v+Yav14Sbw
9ejWp8p/SzWBrzcfRMwYX9kEvt4P6eA9W0ZI4Ot9Dcll/9lCAl/P1qRSYls6
CXy97DCd0chHJPD1rsoTV1jakMDXm92f0Ox4kAS+3qPNXVUiO0jg60WY/eTa
sZwEvt7VVaEsN4Ybwder2SxosL6+EXy9TT+H284lNoKvp60r9+3jg0bw9Qam
rRxaLjSCr2ewmSdkEjWCr1fJuWKYKNYIvl626Wh4158G8PWsNx38qPauAXy9
GJ3HYdOVDeDrdcqKXTeKawBfrzdE6ufUnQbw9c6e3NIxfroBfL304NCTUhoN
4OvNBh3iXLmxAXy95i8TQuhXPfh6Fo1rWste14Ov5/ZHsCu4pB58PbPcp94p
0fXg6+3ZanP5nFs9+HoJv0SSHU7Vg6/XdtDQp16lHnw9t+lrr5wF6sHXk7Tr
kq6ZqgNfL+Ekca9RRx34ejEvHqTvLagDX8/MilR8NawOfD2xUeM5zet14OtZ
d9CirA3rwNdz2l3fTVeoA19v/sdLxyjuOvD1gu607Z0frwVf77ObQ14KpRZ8
vZqeeff0rFrw9Sxy2D5PBNaCr+c59DP3sV0t+HrJA7uzqHq14OtFnBw5bCRZ
C74ei2TgfnmOWvD1lG6kvDv+sQZ8PSdvzgKephrw9SSnTzOlUmrA18vuF894
5FsDvl72jl4aulgDvl6+So909L4a8PU8K49J7xKvAV+vLanQeztLDfh6zWwi
fytrqsHXYzlsb3nNqxp8PYWTITfpWtXg680eSqGX/60CX6+ULaLftKIKfD2e
rBuKd+9Uga/n1PdxcmBPFfh6zfRdFrOzr8DXKy10FIouewW+XoKpr+dnl1fg
64X6yRnfVnwFvt76pGaH8KlK8PVivDQ1L+RWgq+Xf/zFsUKHSvD16KlRbboK
leDrfa6xmQ8crwBfL6Z5x43TORXg62mH18a9tq0AX2/204RcrEQF+HraUlyc
gx/LwdfzlGeP7HtZDr6emfj45fMXy8HXk+zNHn8iUg6+3sr1rH0rmGXg67np
HuRjjy8DX29A2Xqu0LQMfL0B/hs7R4TKwNf7fGdd/YXXpeDrfU0N5faPLAVf
71H1fIL6qVLw9dbH7RuO5y0FX6+UZUOENrUEfL3PJz/4XwkpAV9vvb2v4qEj
JeDr9V5bL5a7ugR8vYTfWu4nKcX/fD0DLZ8s/2Lw9WoC5LoDDheDr7c+aOb1
Jo5i8PXchIz1J+uI4OvZhiYu6PsQwdcza2uyNtEmgq/XO/2Wb4SFCL6e2SD1
unxlEfh6A2ZGe4vdisDXm60kHWtQLwJfj2eIn893mgC+XunsiU0UIgF8Pafo
rWEmroR/vt4vSknobgL4ehb6dhInfxSCr5dg3n+gOa8QfL3PP4eo964Wgq/X
7Nn/oly2EHy9BEqueOZIAfh6K1c6j4tlFoCv59lGEuu9UgC+3teT0xw6kgX/
fL1mAaXdI/ng682ycPH3JOeDr/do+0+1ZZfywdeT7L7ecm17Pvh6nmGhQusb
88DXGzixWeriwTzw9RRiziTwv8oFXy90qmbsgEou+HpikisbfUpzwNdL+MCy
TEohB3w9w9vMtv787H++nkT/VT6lbPD1akxCnbKzs8DXS7CUWGYilwW+ntP3
KzNWKZng61k8fV37TSQTfD2nDTs3hCRmgK/ntEWqO0w4A3y9BDYusaTYdPD1
aq4kUoR508HXY/l81pA3IA18PQs0ZyG0Jg18vfxNh7q8vFPB11Pocu+ZZ0sF
X68mkZE745cCvp7hjzcjpn+TwddjEScVkjyTwddL6LJ6FzuTBL6exbPt7yed
ksDX09Zuczr5/SX4ejx2W603XXkJvh7PtbPD38cSwdcT863UNHBMBF9PYSt1
mvNzAvh6FvG1e7vtEsDXY1GltK+tewG+XsLYG93Quufg61k0q1zka34Gvp5Y
wbTehdJ48PXEDN30W8rjwNdj+X2O509aLPh6YtQwL6XYp+DreZr68zx6HgO+
3sD4h0upwdHg63mqLet5/zgKfD2LbIcpkchI8PXEZLS6tvtFgK8nZsXoOOIf
Dr6eWHLTU03XJ+DraXOvWSVrHwa+Xo2cQJSmY+g/X6/4T/vOqsfg63neOVsg
WBcEvl6NmafI07gA8PW0/bQHRDwega/nKfbo9Vs/P/D1PNsjLZWsfcDXY/km
taXhkhf4eiwWZ5VNnT3B1/OkpOX/Tb77z9crSrnUmOf2z9cjy6sVX3IBX4/F
a4qQI+8Evh6LxKO9u31s//l6hx/G1/258M/Xy1W//VXQ8P/19QZWy/FqLfl6
SWR7o7ffJ//5clc3BH8T1AZfTvXbncju6cl/vtoQSdtOXP+fV/aZWfhdUAG8
MlYf9pL2n5P/vC6xZxskJA3++VcWj2yuiKv986cGzv+ZERQDf+oypbnJEPcb
/CXtRyvYpI/984wSzmvvkNzzzxOyWF3oKC75z+upsY5kEeJBS16P8JQUPQQf
D7wa+sKCs8zxf/5LzSHZ5dJa//yVhPeB0pIy/3wTbd5DbuLr//khnk71vEIs
aMkPuc5+1jgPHx/8jBg19505x/95FIbVW11k0D8PoqbNjVNa7p+/4PlJXEly
0z/fgGWzq7/4yn/eAMsjUSWhr1pLXgDL//3fUn5+v0RYvEfWQcjP5w2/W36E
YQH5eXdBocb+6quQnye19y/jlnSB/Pzfe4zhgjvukJ+vrFW8x5T3gPw870Ty
5C81L8jPszRfdGE2+EB+Xm+FfIChx0PIz/vIstV8XBYA+fkuJZ+ZbEIQ5OeH
/xwaWH08BPLz7gy+qp43oZCfj7D01vy69Qnk51Pi11SpngyH/Lyh7Yh7fHQE
5OcXhG6+GmREQn7eVHf4ztnvUZCfL1kXw5DeGQP5+SKpuNtFB59Cfp5pKPJI
6kws5OfFTsxXq3nHQX7e2ON95dfweMjPmyl5kZJLnkF+fn10oqBU+3PIz98e
GD6s1/0C8vO3divvML6VAPn5stIVTcE/EyA/31ztdTPzeiLk571UfoeHzSRC
fl7WTHZ40vkl5OftBawi6T9eQn5e4Ral2+9GEuTniV9Hrm75nAT5eVaNOoUR
62TIz9srU80oPcmQn99iJl3z1CgF8vMip9wUbrWkQH6+3oZVq0clFfLzBoNa
y2lZqZCfl2dWTnsKpUF+/o/rBaFcjzTIz/9RYXPdNpkG+Xluy9Ywokk65Ocz
6LeEDOvTIT/PDOIzOy2bAfl594Cn8v2PMyA/72Tm0CsykwH5+fjXRJM1ppmQ
n99z65IQmZAJ+fm3qqsa/wpmQX7+5iFtVfXrWZCfHxiYuJDTkQX5+cZ6XXcT
2WzIz+8JlQqb986G/PxBJ43zTweyIT8fbn/EvFo5B/LzxFA91ZehOZCfv1ap
EOr2OQfy8wdqnKgy6rmQn297uO6+eUgu5OcF3rhEhb3Nhfx8nXDhXn7pPMjP
3yZ+l6DezYP8PE15s/L7pjzIz4sYPTGZX50P+fkrVdd70nblQ35eeLAicvup
fMjPnzVsFFt5Nx/y81qkNHbG83zIz4/M9Rp+qM+H/PxpSdbhjE/5kJ/XWRts
e29lAeTnB3d2StyVLoD8/Esx1i1xRwogPx/ANOKItC+A/PyZ0kTrZ4EFkJ//
6kdiGckogPz81lQFe+nWAsjPG997k7Efr4+X8vOhs1wsdcsLIT+/hTdhZsO2
QsjPR6e9Hx1DhZCfn9h8yrvYvBDy86mXvD9ouxZCfr5Guaj8Ylgh5OcXx5RC
TiHk55UTm1xSSYWQnx/duJqw/V0h5OdfRbyoVvlVCPl5qa4HtWt5CZCf952K
070oRYD8/MfODeKVOgTIz28Pi928YEaA/DzHLXn1F04EyM//ILi5qPsRID//
7mwQ169YAuTnPT9UhrIWECA/r7l69xHRRgLk52fPUJZdf0OA/Lyk+ED84n4g
S/n5n8xTzoGsRZCfD5K2uXtsXRHk51m0N6QZ7SiC/LwxIYRuoVEE+flH3ypq
nxsUQX4+4SWlWf1cEeTnd/z89bbJoQjy88KWTTa194sgP+80ouS84nER5OfZ
zl1MlXpeBPl5bmE1547sIsjPl+qOWunh97ul/Hw5KbuQjVwE+fke6415F3qL
ID8/XmVn4PyxCPLzbucv/5b/XgT5+a2mz7tO/C2C/Hwh3a9eYA0R8vNpvPEy
z4SIkJ/vZnOsIW4lQn5eXG91gKw8EfLz0VJ6Ct7qRMjPnzZY0Wx8gAj5ec4x
mRqeY0TIz7N1shupmREhP184/NqdbEmE/LzGxb+PLeyJkJ9Pkj9fcPQGEfLz
E/U7e/XvECE/f/rRcGOTFxHy8xfOnOYPCiBCfj4ywvOmSxgR8vNJbK6vn8QQ
IT/f9JDHXPEFEfLzcd4X5jlTiJCfb/94TYMjiwj5+aN9eWN6+UTIz/96vfaC
GJEI+XmtCIfeVeVEyM+X3at0Pl5FhPz8rEn202j8vr+Un+cTF+8+QCJCfv4l
fwlLeAsR8vPZn54VdLQRIT8/MnvqTjCNCPn5xwVHmqXbiZCffyqo8OxyJxHy
85ps0SEK3UTIzyfe/KZO6SFCfv4bp4g+62si5OdVKzivfcLtpfz8+icOGmFv
iJCfnwz7qDyM20v5efHnLUmTuL2Un0/KE/6cjttL+fldLV07RHF7KT//8Mko
yx58/KX8vHH/vTuivUTIz6/wiKiNx/1dys+/16jc345/z1J+Pluo9/kA/r1L
+XmhmT+27nQi5Oefx0Zc+kEhQn4+q3rzSQ0yEfLzRK1f87+biJCf17+jNJPf
QIT8fOM6clRXDRHy8/FsDuJ1lUTIz6/VadxCKCVCfp7noZHO8iIi5OeXc35L
tM4jQn5eb2yj37NMIuTnOTIrUnfi8bWUn69+G7u1A4+/pfw8V9lzx4anRMjP
n1Jdl8gMJ0J+/mWjuHRnMBHy8/6i+RwrHhIhP2/99MpVR08i5OdP5KxbvcKd
CPn5bX8u7r7nTIT8vLRlSZganm9L+flGoZMd66yIkJ9fUxRsom1OhPy8NHmX
22kjIuTnl/EfLnt4iAj5+Z4dhDnefUTIz2+WVHyTqkqE/Hyw4uOMHXJEyM/r
0bz38UsQIT+vfdSie34DEfLzwWomLWa8RMjPX9n0rDdvBRHy85On5siz80WQ
nx8p4eGsmyqC/DyD6KN641MR5OeVaGvWZvcVQX4+LFq67COjCPLz/ALnwhYa
iyA/f3G1a1xGeRHk50MElHdI5hZBfr5svJMtNbEI8vP+0zXJpMgiyM/vGCaI
5z4qgvy8d6nNGXS3CPLzzfFyHf2ORZCftxCj/FW1KoL8vPWzlgJ9kyLIz28J
HRxbrVcE+flf9TMLr9WKID+/WzjC/op0EeTnTWqvGSVvKoL8vJDBx51p3EWQ
n994sCZE/y8B8vP9okoCvycJkJ/vDW1j83lPgPx8z6Xi2gQGAfLzTobCRrF1
BMjPRxI/0QsIBMjPP44soRklESA//7pP63JfOAHy8x/7jy3/5EWA/Lz1geqT
XNcJkJ8PtZFbI2lFgPx82wuTiDJDAuTnd9PUonS1CZCft4tYZfdLngD5+YGv
R7Q3iBAgPz9odz2zw4QA+fkdK/vSPuHfv5SfL/j2RCkorgjy86pFlN/7FYmQ
n/c6NMgejOvNUn6eaDgTfNGqGPLzLw6NHru+UAz5eVKJWULdkxLIz+sMhKb7
biyF/HyGwIz0tpxSyM+PpTGG0neVQX7+1PDEp1OEMsjPH1tfN+6/pxzy87E3
pannysshP1+9b3n6Fe0KyM9P6T0mV9RWQH6eGTWidFqtEvLzN3rl1QaKKyE/
H35mYWy19CvIz68Lb73Zn/oK8vOvDFaa2IpUQX7e6KTYDZmgKsjP247tnjVg
rYb8/OuTKbpTV6shP99Xvtz4c2c15Oe3hPLv/r2lBvLzadKf3NhMaiA/P7tD
uvp2YA3k56+fe79OtKYG8vNuci8+eXytgfx8+tBQjfy2WsjPywo7G5SfrIX8
/KsHNJfcB7WQn3fokOzoKKyF/Lw6+QuTY6AW8vOsfWVsRjx1kJ83LdNj5UR1
kJ//bFay449dHeTnP2qcvzwZXQf5+TP1p2NU6+ogP09O5qRaT9ZBfv6C777h
TRvrIT9vfgF5m+6vh/x8kkO/2jmHesjPv0/prf0dWQ/5eWdjsZ4TlfWQn8/5
zlNrPlwP+fk5kzdl4qsbID+fG/5tv//uBsjPr9UpfJxm3gD5easF05yM+w2Q
nw/W2HNxd0oD5OcZUzvrCM0NkJ+/FiT/lHesAfLzFyWpd96vbYT8vEsdJapZ
sRHy83pyPyhrTzVCfj7gYsdtD9dGyM/bH92c+y66EfLzk7+fvgksb4T8/AuK
iO39N42Qn+96bKqQPd8I+fkT+s41LZv/7U8fcOlLweH/9qf/b3/6//an/29/
+v/2p/9vf/r/9qf/b3/6//an/29/+v/2p/9vf/r/9qf/b3/6//an/29/+v/2
p/9vf/r/9qf/b3/6//an/29/+v/2p/9vf/r/9qf/b3/6/8/3p9+myTHXMPIG
aRwb1TPpIqIoMa6QHXNvENOl9wVnDxH9pM0NvVzFRNkdC/5OvURk9bXkwKUN
TKR7VUb13msikn34STtDiokKLm3IO/iGiD5+WlhYrslEiQt7ZBpw+zHf7zt3
jjDRJ+qFtz9wO4JgH3X9LBNN7ovf343b6Y0Z5flXmchlLWvGVdzOSKS9WHGP
iYLYzdNL8PFj9Pp0XYOZyNyP61YxPv+tElr232f4/Od59W1x/wjPlPM585jo
bPmMZi3uv62xY8w7tgG0ed1dbp4dBCTpcPL9qjUD6MbwsXeF6wjo7XhmgI7A
ALoT7CpumEVAEuuOiPjyDCKLoaOCgrIkdPad07ri9YPoaK5jlqky6X/tV59f
oVzdPfwGSUZMVw90EpGRrLnH0PQb9O1hc9OLbiIKGCs+lM6B+/tIW3kL7m/0
gc359wWZaHC+wXUf/j1PLtv3XNvOROxuEqnC+Pdu65lcya/KRH+izL5l4/Z8
8KrC3XpM9JDWmLaYt0q6vLVDy4yJ6tcddlnMY4U+YlxptGUiM7Xab0G4XfNV
4G6TGxPJJ+pNfMHH908JjfLwZ6IuQ1v73/j8UYmJkoSnTKT//MI1Er5eLjX5
uxiZ+Hq773FQxP3VCdiQUcc6gP5ueXPYT5qAHKRVZPhWDaADQdwjn4QJaI/T
piuifAMod0CwJdeTgIJQ+brH3IPIT8V9+LoECb2hObyMEBxEIze36vxRI/2v
/esti7Q8n3EzUdZFbY0K3B+ZeKPXR0SYqPCt3qMi3N/mVOvMITkmWh1tEeCw
OB5mV3+f1cJtt/VfFseHWPSYbv1xJjpjqtK3OH78/hacTrVgopq7wgJ1i79/
mRdnvBMeX56Va/Vx+4lRQL3eAyYaf+Nodhcf/7FIw8P55QPIrlWZGCVOQIP5
TlFs3API8q36RSE5AqoaZW6/yzeIfltFmhGUSP9r//qfdyiJ7z68QZu7uOqS
8f3OJ3jO1H1/g2497O+xxdfP+JfAfCY7E20jBrXN4OtbOEG7FCiAr3fJ+okt
+PwNPVnihtuYKIKtQZ4V96+BavtYWJmJrEV9Ul7gNuEIH2WtLhPZs18WHMPt
zFqPb9tOMdFpPROZxTa7/aUGmg0TtWSYucbhtkGMqn3aLSaqGqiRWYHbXp2j
Vd4PmeiWofe+Tfh8qVEBH4OimWh92J3o77g/nScmvhelM9EJ11HCZdxfeQkn
xSKWAXTuStveGlkC4gtIY6zjHED6E1xXWDcR0LiiCZOLdwA9b+S/o3+FgKo7
ncOecA2i7LPdvC+2kJBw85fP3usG0f4TD6IYGqT/tZ+9TF38roQ1THSZO/hW
FL7fegeXh5htYqJ0V+trT3H/5gRTp0kyTLR/6IjOGdx/va8+bn/34PG4vm0j
Fbd7jL9bvDjKRDduavpM43bwaW63oPNMpPwzhNyG20pD66xSHZioUerER3Pc
FpnLLtjhgceX5f3EWHz8O2XCPBPsAyg+3bKxYxsB+a4d1FzBNYCeEZUfbN9A
QFMe4S89eQfRxT0jLsMKpP+1n73FjGRQoCQTqWvdoyvg4/u+u+W9Rh3Xm2xp
kTLc1qUvizY9xESvDE+OTuF2PFdTkZk5np+nvt95i9ub0vbyV9gz0bO3Iab3
cJvc1uDHvXoAVcQ5lFOECIiTNfzalDYTIW/LhMX/3u71B6lPJ5iI1zHh4+Lx
7qeYaNZY4frQ5L25GLe1jP5+/YvH632lrNrf+wgo0GRbliv/ICKRl9d54PkG
3x9ZEHWDxVci4bPC/EODb5BbxwNjPzxe3/4M31049Qahkda3Bvj+a7AcMMlm
YyKp3Z7pg3h8VO/PqAnjZyKyYEYVL75+b0MM9PdtZaKYLz9df+B2xGEJxiYl
XM9dh8NjFuu5VNSbhf1M9JGDx/AzbudO5LCsN2EiTfYdoV9wu8o872vnJTwe
602NXuI237i+ZfRNPF/TK434cfvPmFCHrx8TTe1XPCCDjy/H69HoHsVEss0H
CjnxePHZENyZmsZEWx41WHrh/qZOxU7L4PHaE2I93ofnq7W6RXL0ygE0Kak3
xrWZgBqeOPP78gyg7gDZoRALAjJ7cZQmgMcr0/VTTJEoCakdkA36LTCINtt9
06nQJP37HktEj+dHggribSEHJq5mokDhSyne+PzGcW9Hzm9kovyx4puBuH8C
tIMbS6WZyDlro/gJ3H/Bq/sqluHxOvqarteymI/d7eoQbMBEohXcZxbHa6jf
noce55joJ++jPAZuT3ReeJx1jYnUbu8cvYjbQ0er0oXuM5GlkerRDHz8Kb8D
nTZ4vNZFdSybkiCg7qpYbn/8vPpxVlgxRQDX28OOA8vweJ0vZJ9ekCP9+35s
m9lbexEJ5J7XUnB3BxMde0GxlsDHNz6zm7RWjYk0jJ9LExbrZ55fsq4+E+0q
en/9G24naEzXHznNRJIuW8UGcbs7+iGqsWMiQ1Y1Pd/F8Xv33ulQXP+Fnhp+
erOegHrvHs+fRky057r76Bv87wdKL6t1GTLR93vrVy/WY69278MES3w8Zo52
5eLvZy2tf4DHq1zdcvHVagS0TYxl5Beur2v6/SufqpD+fe9mWK/yVZgP9V59
XL3lIBNFx0w/Whw/qREnBhVNmehe5zm3xfE1dyRXdw1+vtixPxn7pE7C77HN
yvN7mSguXSW9ffF5edPxZMExJgr9M3l68forWey088XzPS3T31sMz3/7b/f9
7Q4zUXf2Nu7F/t7evKYoCM9HlpyrVjWCBKTh2y01uY+JMiJ7uRevx+O5C5t/
GTHRwPZeh8XrNRWgf20az7emR6J2l3C9g+/zxGR9gsVntaQMqo/Y4PnWKc+3
zBXPt1sxzxg78XxLbpyu1cLjN9ubySqL59vml/5zPXi+HZxYNyGA5xvvHb0g
Tnz/R8c2McvEmaj059D84vP77iPv6893M9FwoMTXiMXfJ2z23gXPt7g9tygf
cVthue6jMGP8fGz7kzSB2xtOdvqZ4vlm1juQkoLb05GMs2vxfOvYbqO3uL6o
dJXr58Dz7flvA2klfPzrx34pfY1kItcp/kQBPN777vc1iOL5tvK0Q1wI7m9d
oUVe+993KHPHT4Ur8gS0Jqwy2AzPN5ZzChsj8HxTqPfI08bzDQVQNHedIaAU
H82JrjWDKJ34XK1ahIT0l1HOlSzOt8YyYYU9pH/fKzqdPMVvpYp8DC6qieP5
pvTxl9htfH6m7hGhQbyedGw6esEH909MWihXAc830+bpqSOL9SLjxVkfvJ5M
vT9XR1ocz1vVb7Lj+cYqLblj8X7zPevg/oXXk/x7Q9g6cfsIxWebHJ5vzzqV
jWxxmzRzMDkEryejV/f55OPj53w5rbIVz7etJu+5H2wnIA/BmZlDeL5964ni
ksHrw175c3/r8XrQdN6HdzE/Bt9XSnI2xidsR36rYw9M4/XbnMbrkMW8+56n
YZfD8PrtIusNofzF8fNcP6sSr98Cs1qiv+K2+ImgI414/cYbqNb5Abd3h2Z3
6eD5VjclJuGP240dr3VO4Pl21iTimiVeb9WU55xwxfNtJLT0R+9ifUnbiQzw
fOM7wX9/cfyyj2xol8HzbXrtWaVq3FY/LZCjg+fbzPWEVN7dBOS8fGJFBZ5v
F4QsolLx+hW+B7Xwu6Ansg4dPGtIisHrDbaK7ebj+O8lsz7bZeH1xv7cc30j
uL1q1TGhZvx8137yuuYsHu8Whdt77uH5FjgzZU9f/D7gkqK5JJ5vDaI+7ovX
v6/E1+ggnm8b5Okft4ri6zegHTqAn48BNnl+3xd//03bZ0fxfBuwYPDr4eef
eL1SmxOeb9tyAywGFsf3yJZtTni+PS2UUF58/mk5qQQV4/m2K/Bc4nU83+H7
1XxLx8/Cy5CYZmeH3wEmerGb+GqxvzK9gu7P8fNH6MZ+2//5PX7B5Qj3f8V+
/6sHcb0/cIB4WRCvJ9SqBG4v9lfuspZEM77f93i8jCTx/S6sbnhGxfVRS3qt
+uL5u5tTFM/j53HlZj3vxf4/9ssx0MDrT7qhp8Ti38+zvvKawvVkwbrIc/F+
iK1+Luh1konerCoLX7zfKSnmx5Tw+Hd4fEzYDJ8fvret0ZpJEP+stfsAn+0O
XC9Wek2ecMT1QsfuZcLwtzfIPMc1SxXPPxvdHWZfFvc/oIfFt+N64b+/zaeb
D4/ntitXl+Px+1XYd9stXC8OR4aWjOK2U9qu/RdwvbjM4i8Uvrie5C2zVsD1
Qlr1KPtivXAO5TE4hutF3cdL2xffJ/RpHxnrcb2YNd9xKG3xfW000py86AIf
lNDYhNtxr9StmnzxfIo9sl5t8fl3rfhqFq4XOkldPBvwfF2pyL63L5WJjn//
phCF+3tP+BZvCK4XvlyhxwpxvRiotF+mjuuF1gch+R5cL2yYfvdEcL3YX7Wf
x9uMgAxcC+8V43oxXuvjcQDXC8P38Qcj8fXqXKHja4/rBXx/7HJENKlOFe3l
zns8iN8/wzmppjfx+UXiWHOTcL1QU3CheOL+bT/tMTOO3z9n3zw/eWixXjcf
k9XF9cK3sNe9cXE9uSF2thq/fx49bLF88f6dlHzRTsT14q/guu1di8+DQ9GO
k/j9Uy6l3sMet0sNVr88guuFxXdR4cX3k1WJ1pdZcb1YK7o3tBnXC2OdlKtS
ePyURpBdHfH4uS/e+TgZ1ws//wHBUPz+CN9Lb0LsxZY7UJD6sscFuF60mkU/
W7y+CqXaaka4XnBXJ/nlLq4nozLk3HC96DxySXxx/Fj1ma71wvWC2VmbOrTY
XlMtxo7rxWWNWK5A3I79+7BEEdeL8xmZ2cm4XhS9PiuuhuvF+O1t33sW15Mv
AupW4Hrx9H113uL41HX5GDmC35ckp0pTa3Cb27duy1ZcL1QpX59FKBDQ+lnr
6DhcL5pXOM7J4HoB33c7xQfeSBBE8ycLDhnjesGxdrh88X3ETqVI1hbXixVR
b/xGF+vvyGaWVDzfHlxJlI7G9cKY0ZWmheuF+UKcLm1xfpx70v8Bz78c1zsP
Fq9//ofdTdtxvTCKED+agt83Hvcm8sfjetF6SERzcb79TBDkk8P1YsO0m20A
rheCgx/iFXG9qA4t8Hq3WA/fe6VJ43rRdv9e6OJ8HbLK2RiN64VxaLLSL7we
hu/Rte1vaogsRz27lE11cL34s+kB52K9uHZxcM8ZXC+aEov/LNYLhUvnkjbj
/jscL+jxxPP1t6bgGAM/X3aXy15b7O+y8PGn6fh+u1fTqyzxesyuRGJLAK4X
wrmRvYvrg+AaDqIwrhdnAltbFvuve5+bPo3ro7TvSZ3Fvyf82syRi+uF+3bO
w4v3o2fZ36d7cb04WDLI9u1/3ucY/QJ4/M/v3dnwFl8/+H6+JkV5QnhKS3vr
gstr/O8HQw/lTuP+2Un3ftPH/UuKKdm/ePzMUX1vO9y/6ur8hM+4f7/zmitC
8f3vblPQWzwf4Rq9+yruz+0Ik6uL//2WkXdrJHB/HGkclP+pbwbGQ+b4/lyY
rP+f+2OuGZr/CR/PMmiZdxq+/j2PDVru4/o37n+LbfHfdVed/auC55NmyPbC
xeP/KfxQdRL3T60jxJaxuL5e+t7f86IZQ7wXvvd3qDW+d52lB9n6eZTs5rNA
X2LnPq6Y6UbIfaFmJN4WCZz6sqdjvBvR+uRunTnihGpP6loYfOhGh8+mWmkq
uaDEF5v+Tr/uRpuywxS/Oruhh9RXNV20blQo7hCmcPkuoldsVr1Iwn+v9G7k
pZknerErbGF7ZTcaW3FFJfOGF1K66WO5sbAb2Tk4HnG190F+/IPnXqV3I75X
OYzcQD80dHXNSOTzbiT6wlos+9Ej9MPu3N+Nkd2IruCxIfVOAFrZnRfTHtiN
cjM7fFc9DUKa0/OsNQ+60URJQpnSk8doqGJVt7lbN8rpPpk3ZB6Kxu4q5cs4
dCPlnf6mOZfDkIG9oZK8dTdyaJz7YGb1BPWnx/15a96NXplwZqhfD0fJ9qbC
JEPcljc2WnCMQD2tH23N9bpRx4Km0k+vSOQh8Fh3+95uVJnUdeVLaBRatnt7
t/jubnQqPOthU1A0qlC/4Ny2sxtxuIr0dT+LQfwHMsZzRLvR5WSKQEv8U5SY
e/P8HsFuFJchl1QWFYuKPFnO/l7TjYZeyti/S4lDsbz7QqaWdaO3wzbrPr+M
R/eUDwRE/epCE5u0fkkQn6Fj3iuX3ZjsQgzppl1Wdc+RRLSKiudwF7rkE2T4
4NULxO565I96Xxd6aOvaMWqTgJqjqpNk2rtQEYHkxPExAX19Kt9Abu5C5NEJ
tUSrRKRlgBzjqrvQl7hLz7pHEtEtWYEzycQu9Ml57sbC5ZfoQ4KC/+nsLvyc
6P9Y9fUlkrx1/7D+yy7UqvKO7OyUhLwO/FT8ENOFwqLLmElfkpA082dKbkgX
unh98KHTzWRE/lS+oci3C3Fd35kq9yMZid3feevS3S5UN1Zl8fBeCl6vycme
uN6FLE/IHrzAnoqcesjZ12y7UC+z7JmkVyoanbpAUb7QhcwHIsKCVqWhWF31
BjWTLkTkfDzz3j8N8R420Ph0pAv9ErF4VMyRjg4pBiuTdLqQfq4nUeJxOqq8
1O4zoNaFnKyqjf3WZKCkOYmVqfJd6GWoQeiDyAzUyVWolybRhaoyC3/+3piJ
prj+HH+9sQsVjqjQLj/NRBWN6hrFfF2o4CXnAYctWchrx9RV2sou5O85J2WT
kIXm8winw/92oqu96rmzO7PRlfcyrBHTnUhtk9HZVQXZiItueqtxrBP1+zy6
yyWfg6yVGw8nDnaioMtc6lklOYh36NaN8t5OJOCYf1lDNRd5D+jS7tE6ka+V
TK1+US6aMw5KcCZ1Ilb6z+JvmnmoyWH1xaTKTnTK6p1IUHkeEtTOmblP6ERn
VAPDBrbko4e5j/7GZHQiz938GRqX8hHH9hO0Dy86Ea9OpjtXcj6a+/FuRW9U
J0oLto2R/ZyP+Ny/Wa4O7kSZY8pOpB0FSOf55W+fvDtRYrVjv4hNAVrDKzz4
43Ynek6nxzRkFCCTIZnUfc6daMUPba4PnwuQg3OCvKptJ7pp3Es7JluI2BJI
otfOdyLDpvtHdl8rRFlhrM+OmHQi0fywsz1Zhaj7urmLuUEn+tFFrmieLESD
0V9vZOp0ImXudZ278LpFHG33e6neie54+2qM3iCgtNrXFn3ynajYwUrFsoSA
QqOSfh3c3onOXT02ZviTgB5qPRI7vbkTrUqznAjWKEJ6wps+5vB3oq0/vDP3
3y5CDXUsvzJWdSLFEr750tIi1G1zV7+btRMdKGmOuzNfhDbFDvMcnO1ADS3B
P4o18XvaqruxZyc70CHh23HIE687qgtOlAx3oPq37T0P64nI7QE7UaevA2UU
a1D0lxWj1WUyOi4dHSiC3MJjerAYyequnhht6UDjU5e53voWI/PhF+4rajuQ
Wuj1F9saipH6y52bjUs7UIB9skfpihKkdYfa+TG3A+mbDq9vPFiCLL7FtImk
dqA1D46yiAaWIK836UnP4jvQnlcNCd9aS1DJuzP2teEdyMIxvdubsxQ9eqCg
sS4QH+88wfzi0VKUt3nb9/wHHUjMghJdEVSKAnPCJ766daDK59xbLRmlKIt9
V567YwcyOFm5nyRQhtz9zf7ussG/d4P75uSTZejhJ4eekHMd6IjIOV1adBl6
f4T0VMW4A5UpGW6/0VOGBvlCH3ke6UCbavPiu9eVozkKq+GcTgfyCVCxfHi6
HIX8KZauVu9Ap23a3ubHlKM8vk7H7YodaLeHf+aO/nJ07viHqtc7OtAybsLq
82IV6J3FlruvRDrQ3rwxCa4LFeju3V6qjmAHuh985DFnUgWy6U52WcfVgaTv
l+fdH6xAbifN9P3ZO1B/lqHovh2VaI+twO0jv9uRz/GT2+rtK5E+awGv1lQ7
il5+afBVRiXyvj0+RR9pR/mzzyaWT1SiLyNqkYSBdqT8Z5hAkn2FWg0EeFV6
21Geeyy33tVXSDGdxveZ1o7kdt0qEch/hU69vqA1RmpHwgsWwmcmX6E1Q7LG
wVXtaNXyGy0Tu6tQyRHbqgfEdjTp9Y1bx7UKfY8wt0rNbkf7+D24uIur0NMm
h0nb5HYUM7DbfMdcFaqozTvnEdeOztTMXChTr0bs16tUdoe3I35Byd+r3KqR
gOJfA8HAdsRI9xjKqKhGXRJne455taPfRz/61c5Vo4ps2+qtt9vRuvXlmuGi
NajvA7/dced2dPHJIx4vVIP2P9P6LGjXjrL0uPLp52vwezx+JbBsR7fiUn42
etYg4RJq1FmzduTq1vjUNaEGUT4UnTloiI//ffYDra4G6RiLLPjrtSP3zMHZ
h0M1KL1SM2JBqx3Jjp60n2erRTsdDdJWqbYj6+ZeL6HttUgzke5yQw73V354
ZkK3Fpmt15C4ub0dqbWnqW6/VIui+ayfpoi0I3H++yLsD2tR7629ObsF25FO
P9PyeWotcg/2PX+aux0N6x41eNdci37qrN/3dnk78hpxYfUcrUU/ju3rebLA
QCaC2/j7OevQiHRrTv80A2W9/0gekK5DmqbBrf5fGEhVRfF9wpE6JHCH7S55
mIEO7gx5tsKhDinoqUs49TPQcdOkbdSQOnRr2+trB7oYKIQbrTyRV4cemW3s
yKYw0AnriSe3GXXIYM09x9uNDHRov8Rti291yDowyZH5ioH2nOOTSeWpR6N1
6c/sixmoYB2/75Nd9ahRaPCwZS4DnTON09A0qkcLd5Q6RlIZKFBVNTrApR5t
SN1axXzOQEVG/lXqUfVI/MfWmfkoBuKfsdJJIdYjnxvnbHJDGOiHuuG1kp56
RBF6WEZ+yEBrOBp/+M7Uo4dV4zfcPBlIhOvrwSLBBtS85vlbI3cGIhTKafur
NSCN6s2lcc4MdP/9j8gNZg2o/+CrfdftGagtl/rE6HYDCs/8bFxmxUACJefN
R+MaUNTvHDP5Mwz0RP/Wfa2KBiRcLKSiaMxA4W6Jh9T7G5BVTcjlVAMGalU0
dv4634DcW3cFpuoykI//Bu1joo2odrOU/iYtBn6+Rb9eva8RvTqv0VujwkDi
anE0X4tGZOahZzEhj6/vVOHVVK9GJFtA94mQZKBdKkY23i8bkafAzfS6LQxE
K0qTqqltRCr2OTmbNzLQJIMnKulDI9LYv+n8D34G0nVjPb+fjYT49eoWDLnw
73+1nOIvQUKE0w/p0hwM9G1PDYeCHgl5R+hwKP+lozndZc+e2JBQ08fq6dpZ
OvL7Yvom7hEJVUg33qB/oyN9EWUXy3QSuj90PdJyjI6WBzT3+jWR0KpyyQmR
YTo6EOE4ZDRCQj20Z3st39JR2Y7nBsyVTWiy0uDD1l46Kjg9cGaVNG5PUE84
MOjonUBm0/ThJqR8nntclUxHK1dL/dG2b0I8xLU3ZBvpiPDiFXNXUBMSCghz
zK2io4hXveveZzWhAG8vkexSOpp1XzGjTG1CazzSj6oV0pGp8/jL0ckmtO/9
XfWpLDoa/2aWdWZtM5oQclDcnkpHbLyvzW8suslN3YXjL+joRNmAjd6JZkQI
mZySjqWjp/HP995xakYzkvImURF0ZC3iVGHypBnR7o6djn5MR5d2tkSOFzTj
urHHnNufjj63KwtJdeL2xxBLUW86sikxu9g03YxuCnOEnrtHRxsk2NZsWdeC
WF+UN3C74fMp1p7ZotqCuGLHPM9fp6MqEsfKt6da0NVv3DTRa3SUO3fhzD73
FmTeEXDM+zIdxdg5urPHtSDjB++b+K3oqNSS44d3eQsqv1iazHeOjs7M5q/L
7GtB94s4QktN6Uhp/YfwoPkWdOx16zGyER2tuEHuo25sRRXyxZ9WHKPj531T
W8neVmTuT/f4qk9HIxOHhc+da0V3tm6J1TmAr+fawTUZHq2oXb6/9QCiI9ar
8mTjxFbExtypd0ODjrRPsH+srGlFRMZEyQoVOlrWNZ5GHmxF1iZpOScU8fh5
f5YUtYyMUtJZXv+Vwdd/p3de7RYyipxIa++WpCNLnlcofD8ZvZuid9luo6M1
nvdltlwko7cVXOZnxOhI4/HJGhNfMrLLzXDn2kRHzyXy8w+mkJFxe5WGyHo6
mp+puxLdQEa977PNTAXoqN92hPL4Ixl5nOBaeYqHjn5YRQfpcLQh7rwj5/LW
0NHj32ZT8ZJtaO5V5+6OlXQkTqOLmx5uQ06fFc+JL6ejL9L0PIpdG8q/1/Gp
iRWff8eHD6OBbehWbBLHvXkaepV1z6Uhqw3djZ+i8f2kIc0rVNpCaxuKbL3/
7uckbrfsau8fb0OdZ69cDhihoev5Ioq311CQoBT56asPNCStIqL6So6Cgj+w
n8jqp6F3PztWWBhSUErOr8kvPTTUos2rXO1IQWuKGTmkdhpS2WnF2RhGQc0o
OsGWQkOvYzU0HhZQkFPBbbb4Zhq6pdeinEGnoFXdud82NNBQ1JMrvc5TFORl
94btejUNjdtE9vzkpSJ1tdOhhhU01Pi6/Z64EhVd+aaVwF9CQ51d0Z6rjKmo
2ven+GkCDfWv4T9mdIOKzuzp4RnJoyG7wcQ67Ugqmu24mXUtG/d/X2n4WBEV
vayIZLXPoCEnrcHVe3uoyDhF19Y2lYbybtUdm5ilogd5osfLkmhom5rUxJn1
NCRs9/jGrUQa2hSTouSkQUMruWNu672gocMP0nu0zWnom9nAZo9n+HqlWOo6
u9PQ5O2/fxfiaGizrZy5Pv5/vqMan17G0tAfgheZWU5D7Ds/2718SkNWz0c/
rMPXcRXnz9nuGBqqqV/ZlPeHhvzGEvrO4LaUuikb21o6SnK6dEcOt4vfEW6x
4nFlxH5h52Hc7j9svP6tPB1xrll5IAe3dX3vc3HvoyM+s5lyO3x8qX62z19O
4H+PfMd9C58/81fb1yxLOtrDG/OlAvfr6rDo0Vd43sqenHjvhPvfElnck+1F
R4fV0qPM8O9LupiuZ/CEjsKaRSO98O+vYtm2GiXhefnaolUxmYZcrD7MryXg
v7+Wp7k8DR8vXEZHqQHP45xOTadMGnr/nn51ZReeV61KBZK5+Dr9KG0sH6Kj
pvmWtukCGtLpkbpeM01HxvwWX64X05Dc/QGD5OUMtHrIdt0Cvk7ROt/WqK1j
oM82v2414vGg0x0oJrqdgVK9DpNPNdLQIzl7qyFlBhq2ZvYOtdLQ2lPtM/MH
Gch8psDHkEFDijr3K76fYuD6OELMx+OTfsTXOtaGgSb686KPvqWhJd/wXomQ
/IdhGviGbHmBRWe+0MA3vPLyis2HaRr4hjr7JcKJ+D4t+YYdwmYfstjo4BsS
5NgiwvH8XPINS5XPZ53nooNvKH+G0qTLRwffMOU2a2u7EB18w9zZrCPqm+ng
G/J0J14y2koH33Aggv9UyE46+IZkTgmxODwOlnzDuY2kO/a4ni35hg2sbR5s
e+ngG0ofjhi/huvjkm/ofoCwYf4IHXxDSTvtq/on6eAbzhVJZ7udoYNveNm4
6oblRTr4hp5vrpGsrtDBNxwzufzD3IUOvuG9++1P/t6lg2+4QKXUZPrRwTdU
KbPf6xZKB99QMjVl+/BTOviGrk8j0q8l08E3DKeY64Tk0sE3DH5D9CLh5+eS
b7jWr69fDo/DJd/wfedUMq6V4Bum+9lYnmbSwTc0q0Ej+Z/o4Bt6nRoR9/1O
B9/QjXFHp4iFAb6hn1vqmBlefyz5hrWFYuxX8XplyTdst8sQTdjJAN8w71xG
q7oqA3zDTTcDRc/icbrkG3bzvt7fh9dbS75hzoqp8WsXGeAbDk4ObEq6wQDf
MFSu6rCENwN8Qy2+d8csIxjgGxJcHb9UpjDAN9wpcebSSbw+XfINi7gc82ub
GeAbankHrrLC43TJNzQ46neVZ5wBvuGP4vrzxL8M8A13UJr2ufO1g28Yzxl6
/jBuL/mGVdViPyLxOF7yDfUP2rtysrWDb2g+qpP8Bo/7Jd/w0cW4d2rfGeAb
euzvYZ0eZYBvKBhF2vZ6kAG+ITNgnv0wkwG+YcTrT4LCHQzwDZ9zPKx0ITPA
N5S1yls7W88A31B4c0Pf6woG+Ib+biu/6hUxwDe8+zGqVCCbAb7h/NzufZzJ
DPANa4Pja/3jGeAbUtSakR2+/ku+4aBrYnBnEAN8w8lr9fwvfBjgG4q5JKmE
3WWAb0g9+IvJfZMBvuHhj6tZx68ywDdMO7X2gfElBviGl2Lqjg2dY4BvmLlz
1/sOEwb4hvmXaT7HjjHAN3yx4b3ETjzelnzDh989tkvj9fqSb5gZnvmlBK/X
l3zD51qRM8lyDPAN1dYyEzftYIBvWFGjf6FClAG+Yaeo9ctyIQb4hqaX/bQO
8DDAN3RLN4+WW8kA3zBCKHBrEp5PS77hnySlJK1fdPAN2VWStmji9fmSb3h4
lju4doQOvmHV1lDZjPd08A2p8+T2ktd08A1VOFo2G7bTwTdMHNIZONRKB98w
Un31NkodHXxD0a0pW10r6OAbfo0bfuOFn2tLvuFfqxM0oWw6+IY2OVvyuXE9
WvIN14cmnpOJp4Nv2G5twNaB19tLvqHesYEuZhAdfMOrJkb3rvnSwTd0aGz0
tcTr6yXfUK1PZ8/dm3TwDZ1LPb1FHejgG0pR71yRsKGDb2h4+Hwt4TwdfMPz
ZyI8bPH6eck3/Ca/dZPncTr4hqXHLw2L4vXykm+YsDK5WlybDr5hxNRDPgM1
OviG9y7xGC4o0ME31HgT1seLnz9LviHv7i+KuVvo4Bt+NjSpdNpAB9+QbWMy
Iwo/75Z8w2m2AKcDq+ngG379FUM2wc/PJd/QTc2sZ8MMDXzDgezrmTGfaeAb
Ru3zc3jbSwPf8PP1We9d+Pm/5Bv+NKSOHcPrhyXfsNJDNqUEr0eWfENPPkVF
uXga+Ia+wZ/9rgXRwDdc/8nZofweDXzDXaTXEicdaeAbzpWabyBeoIFvqGSq
uWPbCRr4hqmW3PSz+2jgG05xEi6/V6SBb6icHxV/fSsNfEM11dT3FH4a+IYJ
Y799lJfTwDeMkJV5+vknFXzDbRM/ZG0+UcE3XF34K3Oylwq+Yf+6v+wHWqjg
G4qL/ViZXE4F31AgXevw8Wwq+IZuPF09jfFU8A3T+R7H6j2mgm+YTl6zPPI+
FXxDe9pIq6wjFXxD8laX4wwLKviGBypGx7RPUME3HJW/vapChwq+YdRyjdWe
eB2/5Bua7b0SyitBBd/w+Szf9hxBKviGL1TOP123ggq+4doUvTUtMxTwDRe6
z2/yG6GAb6j90tOV5w0FfMPx0/1KyWQK+IYCRk8jl1dSwDfUUC+tL8imgG9o
GPj9vc1zCviG7Jc/rR19TAHf0EM5/vtNTwr4hgqWs/IG1yngGz7m+TL01YoC
vuFbTeHBZ8YU8A37EnlyhXUp4BtWBuhPvlOmgG94PPcxZ+4OCviGHYM2Z4+s
p4BvuGm16/GvnBTwDZ/UCx5897sNfMN8w1zmM/wet+Qbhr6rS734tg18Q8OG
Wetf1DbwDSdKz4hF1bSBbyjosqXgbmEb+IYhywNidye1gW+4bdNZoW8RbeAb
erlpaXv4toFv2K15ytz0Vhv4ho/rbscr27aBbzjVsfHbkFkb+Ia9NsMqsfg9
dsk3ZG8RYnm6pw18w9U9P7TsZNvAN9w02r0CibaBbxjd+yn649o28A31eHNJ
PSxt4Buu+FolSJ0ig29oyLvpSdQHMviGLyU0fl3sIoNvuH3vz/DbTWTwDR22
fi+/WEoG3/D8GW67E5lk8A1PBW/4zhtHBt9wNEqO1h1EBt/Q7HcIYeg+GXzD
hTLezkZHMviG9zgpg5mWZPANV5oX371oRAbfcOyHr/ql/WTwDXkeK3jYK5PB
N1xnLFWwfzsZfMOdMbJqYuvJ4Bue8ne6rbuKDL5hWJHwCvS7FXzD1EDTh5pf
WsE3rI0zfLHmbSv4hs4H0oK201rBN3zyK2TV/tpW8A099ml7KBW2gm9Ya/vp
hGRyK/iGTYL8tt8iWsE3rNwivpPNrxV8ww9xk8OCbq3gG6b+Cj/AYtcKviHv
XO3VMfNW8A0zLtgwRY62gm94N/qgnqRWK/iGC2KqIrsVWsE3PDPvuVdgSyv4
hnfXV1Tu5WsF39Bmkl3Plr0VfEMPBtstu+kW8A31bFk9rnxqAd/Qbb7Fl/i6
BXzDHVeaArpbW8A3dOe4zDVb2QK+4axLa8/XnBbwDU/s3DA58qIFfMOx2Mo+
qSct4BuqWCy/st+7BXzDw198R8/cbAHfcAtH+UkDmxbwDU+NiWX7mLaAb+gs
FRBTeagFfEPNww+a2zRawDcMaO452yfTAr7hyg3rH+wWbQHfcBf/H3SRpwV8
w2e9QZxPlrWAb8ibY0J8+r0ZfMOy3LucI0PN4Bt+9hfiUu1pBt/Q+eqfw+eb
m8E3DHF/xelT3gy+4U7ND4e8s5rBN6xRjFrdGt8MvuGkefB37pBm8A3lpy8X
yXo2g2948+aea4evN4NvGFnNcSTXuhl8w/AbfqfGTZrBN5TY17xMUr8ZfMON
LjfFtdSbwTdkq/57P06qGXxDwa3xW39uagbfcOtNpzBp7mbwDe01lm84z9IM
vuHIeoZPz1QT+IbWB5avkRlqAt/Q6l2I2b3uJvANZUjvl2c2NYFvSMmfyN5c
1gS+4TOL63XBWU3gG+ICGPQ6vgl8w8gHN59uCWkC39BSffS5rmcT+IZvbI+5
5zs3gW/YNOeMhKybwDe069xpZG7SBL6hnKnPtqd6TeAbjpo8uSGi0QS+oUu2
mYWndBP4hnalEWX9m5vANxz+qfZdaG0T+IaH1kbUxLA0gW/YotCcIvCdBL6h
M93n1bUhEviGyVHvamu7SeAbxrG5s51tIYFv6HxtX1NHOQl8w8HvItsP5pDA
N+SYTdSPek4C3zCBupc5EEoC3/ChXtwjZ28S+IZXgnv0B1xI4BtGswpJHrpM
At9QP/TEmVAzEviGfYq91ZsP//MNn5kNfk3+f3xDZ8drWd/P/vMNGw/mDnPf
+ecbBm8+maca8883/Ga44Hyr5J9vSGgIcNrXSQLfcGc6usqPr9eSb3h/5nL/
N54m8A2f2r3svCnTBL4hcfiK5+ShJvANBVjvZW281AS+oabooJu8VxP4hh/U
AqPOP28C3zCQO7PItLQJfMPo47fkJTubwDek/6kqp35pAt+wSdizMp2jGXxD
SklW7eEtzeAbHt2bJtiL59eSb+hV/6lMzLgZfMPj72k34641g2/IvjbyiKBv
M/iGlQn3svY+bwbfUPHoIN2R2Ay+YUS6/JURcjP4hgbzWfGsuB4t+Yad51Jv
qs41g284/r7jLAtfC/iGy09cm/i6owV8w9CNYoa797aAb1imF+z3+2QL+IYc
aJvkgm0L+IbfW0h57h4t4BvmDO0PPRjZAr6hnOOCwfmMFvANzVsfSA5VtYBv
GHS3uPNVewv4hmEqV0i/hlvANxSo+PAqeq4FfMNW0mrXp1yt4Bv+ebGg+h0/
35Z8w31tG6pzlFvBN/y5k7OCqdcKvuHQ5GmOU2dawTdUyujvOnKtFXxDtYCb
wYX3W8E37Lx13c08rBV8w8v0wqNBL1vBN2Rw80r/LGoF3zClZVPkt8ZW8A0f
MHJDL3W3gm+oderjHMfnVvAN51dbxurNtoJvGONxciSbkwy+4QlvbUP/DWTw
Df0FjtnzSZHBN8xuYv9I1CCDbziep7qM6zAZfEPDraH8I2Zk8A1XZva96rIl
g294yb33lpcrGXxDN5nVJaoPyeAbrggdcHWKIoNv6Ot8N+JmMhl8wwS/Q/nu
BDL4hsq93m6GtWTwDe8If3koQieDb1iZt7X41lvyP9+wZPmhnDEy+IYubjXL
2n+RwTfMdU+VYHK0gW+4StPg+m3+NvAN8y8PqP4VawPf8Lk0Ye8NvF5e8g3d
9ecjGjXawDfcM8hVmK3XBr7hlsPttOCTbeAbFvE+aThg0Qa+ofMCF/p9pQ18
Q9cdQoEnXNvAN7Thlou/6d0GvmFgdJBU0uM28A2tV1b0RMe2gW/49W3R4biU
NvAN9z9Kz9qf3wa+oUaxhl1WRRv4hjI5iu7SpDbwDYOCTB5YM9rAN8x6Oyqx
r68NfMP5Pt1Y9LENfENHn4lrk1/bwDeMOf3ga+NcG/iGTj6KtEPsFPANp21f
0Fy5KeAbpm0ZONElRAHfUFRG7m/3Fgr4httWh9f6SFPAN9R89IBir0QB33Ct
Rerol70U8A039/1tzzlIAd9wX68E93JDCviG3IKl42tOU8A3vPlxerm5JQV8
Q39ZoVhVewr4hiv47F+dx++fS75hzeYzcug2BXxDraaYJxleFPANKfqnLl4K
oIBveHVhnpTyhAK+oeyQ64HnsRTwDTcNDbJ/TaSAb8gdHvmlOoMCvqFHxYLI
l3wK+IYsF1tvvSmhgG9YRHrSjaop4Bt2F8XROUkU8A27hCObDlIo4Bs2HfNW
H++ggG/IFsrtZoLf55d8w3NlNk3S7yngG8bu+Jvg/IkCvmFxxPEs0QkK+IZs
J4ctQn9QwDf0sT2W7TpHAd/wl/3EyVoWKviGR278kvPloIJvePCvyTe+NVTw
Da90htxb4KWCb7iRb67TVogKvmH6Q0MLmc1U8A1lly2rLBWngm/45k+rW9sO
KviGn97nje2SpYJv+HU1UWzbLir4hvkuXz4PqVDBN7xximvHd00q+IYBbbNG
T7Sp4Btm2qW+vK1LBd9wNX1g28whKviG6+e8dQ4eo4JvOG1Nu/raiAq+oZSo
Rx2HKRV8Q5G1D3/cOEMF3zBGeq6i8AIVfENFpay0sItU8A0HZW/aZV2mgm+Y
Pvv+gu0VKviG+uvkuBYcqOAb6jVm1TZdp4Jv+Ex9WFfzFhV8w3zxkL4Bdyr4
hrceEGXP3aOCb7ito3/0oScVfEOylNLcO28q+IbCxf+nizsPp6p7+wAuU6aE
CglJGSJDJcm0DBFSKYVChiRz0kCzJmTIlDFxKFJExsyOmeKcQ0hFqdARIjIU
8d6762d5rvf557nuOHuvfe+1vntt6bPPbNCPgn3DNIlSOeFACvYNI0Yv3pUO
oWDf8Odb4ZShUAr2DbumreLeRFCwb1gwkStwPoqCfUOFPpPsyRgK9g0DSbUl
0fEU7Bsy+ym5TCVQsG9oX7hryCuJgn1DJZersS3JFOwb8smNsQ0/omDfMIZd
ZVg8jYJ9Q31Gte1i6RTsGx4rFaIzPKNg33B+YuzTZAYF+4b8qjdXFD6nYN+w
Recol382BfuGlpVGFIkcCvYN31hPmjzLpWDfcIxtZYRaPgX7hvkyIXpJBRTs
G6798Mya6yVlyTe0fWh+vIiCfcOHvZYX/Isp2DfcEdI0VlBCwb7hzkOFM+Wl
FOwbRriY5meXUbBveGDFgZGUcgr2Ddd8mxE7V0HBvuHq/EuPdCsp2DcMZeln
nIN60TdkD+xuiSZTsG+4xvU775YqCvYNLwb4sqVBvegb5umstBGopmDfUIvx
TNlZqBd9w7Wr3ESLoV70DTd82rVpHOpF35Clrvckfw0F+4YH9muLyEC96Bua
MNQgFejHom943+WmWmgcBfuGh5Xlw5A3BfuGwg0bhcKOULBvmEkJ37MJ8mDR
NyzaOdzCu5qCfcMwgcppHci7Rd/QreyD2eqOFuwbNlb3caO8FuwbDiNHl+eR
Ldg3DBZtFz1/pgX7hkrVQWw9B1qwb/i4uzQqQLEF+4b3Lbouh8DzctE3NN7r
ztL5oxn7hr5JP755Nzdj37CsqHih+Fkz9g3JBn9LUFAz9g21VOWoos7N2DcM
Tunw0zZsxr5hN7XhLLNMM/YNM4+nFYuxNWPfcLfD3xRf+mvsG1q81urfVf8a
+4bnplusImH/tugbWsS/8Va88xr7hmWJdUOSJ15j35C+VpHJTvc19g2Fj/Ud
UNv0GvuGzbO3Jz0YX2PfcPfqRM2BL6+wb6h+71FvIfkV9g3nrm2QfE16hX3D
WqVB0vUbr7BvyGb88FyIzSvsG65+3zT0Eb3CviGp6UvpXZFX2DdUvKZX1T7b
hH3D4KdiLie6m7Bv6KBMd91b0oR9Q2ZVaV7v+CbsG2Yy5g7pXG7CviFti/R6
p6NN2Dckt/BP0XY1Yd9wC+2nRKRAE/YNE2L4gyYnG7Fv2NWRF/mgsxH7hmHn
NSbj8xuxb8gTjP703G/EviEPs7zFJa9G7Buu1nYcKjRpxL5h3y9+8Z3E77n9
zzdU5MjP4VnZiH3D3dFNfXKjDdg3tP0mvW+I2oB9w5m4c9yMWQ3YN7SqUTlr
da8B+4bq+wcVedwasG8olvh1o4NRA/YNaQ5mJbMyDdg3nAsueDrM1oB9w1+y
IeobBuuxbzgWmsU81VSPfUOnI2USm9LrsW+YGa7zPSqgHvuGbgoFy+0c67Fv
OKNLajytX499wwCRjgpRqXrsG963mFohxVKPfUM3jjCGs/112Dcki/AbC9bU
Yd9QeKq/2Tq5DvuGWnryPwdu1GHfsHfS3qPJpg77hsYiPKGjqA77hmXsy/sL
xOqwb5hp/j2yY74W+4YOwvoDKp9qsW8Yq3MvfLKsFvuG7XJiXoce1GLfsCtU
Zmr8ci32Da1MN7wZPlqLfcP0kDBTGdVa7BvOBBuys62rxb5h48gPAfS7BvuG
tnVcr4rf1WDf0GeevyPkZQ32DS2y4m6lxtRg31B9o+Mpa58a7BuSfos+9jCr
wb5hs77J7RrlGuwb+ky6l59ZXYN9Q2nnDlnyeDX2DUmmBRqH3lRj3zA26Ua6
Rk419g0t7OsL3cKrsW8o9v3wHzWvauwbOryhRjuYVGPf0HN7TSdNsRr7hnO/
Uk5Hc1dj3zD4crPG3HAV9g3pPh7ZqS1V2Dckv527mJ5RhX1D2+dM9B9BVdg3
9O2byrrnXIV9w8e92zMoe6qwb3jfdNDokHQV9g0ZpIN0FVirsG+odDb104EB
MvYNPW+x5/A0kLFvKD159INMKhn7hpk94k8D7pCxb5gp1UVFJ8jYN3yh/FY2
RpuMfUPfsv2y28TJ2DdsfpR7S5KBjH3DRibRhTJyJfYNGYxc7NxvVmLfUNE0
9DxNsxL7hjOGqbSShQrsGxYx3e8xL63AviFPxtmtVy5XYN/Qs3tgtFe9AvuG
jbRttjMz5dg3LMo9LRBTXI59Q5L5HV/6uXLsG4b5yR++tLUc+4aCjxo9IsfL
sG8Ye1NNzSarDPuGLw4k7c/1KMO+IS0tullPsQz7hnSy41zQcCn2DWMbpc4e
fV6KfUOtyKoH75xKsW848+2HfLxEKfYNtWRWsH8ZKMG+oa8Cc1R3Sgn2DS3E
h08dP1GCfUPprszhCNES7BuyCS7rXv6hGPuGPnr6fMwJxdg37N3h8CfXvBj7
hr2rzm4eFCjGviH98poam3dF2DccSwvjvhtVhH3DgMo50i6zIuwbCj7Q7k/g
LcK+YRGD0H0tykvsG9JNv951DX2JfUNBlztbDfe+xL5hl7ugWBbnS+wbkmY1
L5q2FC75hsaatzPuFmLfkBwo3xloVIh9Q8Hg6XfCrIXYN/QROGwwWl2AfUOn
sOS/BrcLsG9o0dzgcESrAPuGXZMf+QYZCrBvaPGF4qVQlo99w16LQxqFPvnY
N5wpq99fuysf+4Y8fav47kzmYd+waOagcEtBHvYNPWM2hh/xzlvyDX+3vAzb
nod9Q1sDZwnTX7nYNyQd69ndmJ2LfUP6VB/lqlsu9g0bfXuSSuRysW9IaskS
fzaYg31DNrYzw2LPcrBv6NtcL9blmoN9wzHTSVYd6Zwl37BxtdL2wRfYN5xh
WLHq7eMX2DcMkJxSYTz5AvuG0p1eTe6SL7Bv6BseJiBYl419w96DIjIn9LOx
b6gYa0laVZ6FfcOwcfLQbuUs7BuKSbPV3S56jn1D0lcGRhnF59g3NLn0obnn
ReaSbyjR48anlIl9Q/KRMM/MzAzsG5LsJBiPyGdg39BzwnXaPvUZ9g1t495V
/RR9hn1DT6HNQqHJT7Fv6LlBpjN87VPsG5KYVog9ik/HviHZNbllLW869g0Z
6FYmvIFPsG9oi/7YCnA9wb7hC2HDjpu30rBvqNhx8e0cUxr2DcnJrVnTfqnY
NzT59X7QfOEx9g0ZxOtz630fY9+Q1GH/KX76EfYNbR9Kfh71fIR9Qy2tZk/T
iRTsG/I4b3QQdk3BviGPu1X/xFAy9g3F7pSpGZ9Oxr6h4kbKJDudhH1D24Qq
jU5nEvYNGXa2tK2sTsK+IWnovV5YdSL2DW0blU/wNT7EvqFYzuQem6IE7BuK
mfgYNJU8wL4hw6w1z/yTeOwbilHCbyrFx2Hf0Nf8Lk9AYiz2DXuHv55MC4nB
vqGvCuPbz/eisW9om+kxLhoVhX1DsS2aHZJ+97FvKGbf+mbv3UjsG4o9bohT
847AvqEWNxeHnEs49g3J8quj1U6HLfmGhfNtmyvuYd/Q97JVDn91MPYNyRa+
onEPArFvqOWn1St6PQD7hr5iAe8++vlh39C3LcpOyeE29g0ZfspsqD15E/uG
DLZWO8zP+GLf0LflyYuFx1eWfMP81JN12T5LvuFrBZXCk+ewb8hwczzvuYIn
9g0ZJAI0tt92WvINjfwTqudtlnzDrF2XxvhN/usb9nLK82o+KXGSsdS1QF9S
R0XLZzvR8VV3uN85U9G+xtXNhQlU1MjaSLUKpKJTjRvl9zygIu57XXx8GVTU
IGvjLRRPRYpPC9/OvKYiixOuw9viqIg352LHlxEqSvyx6UNoLBXdaXE/K7ec
BjvZ+6XqUHsGs2jcFKChZSmsaBvURmtuN4xK0VDUxvoWL6h5nQb5LqjQ0GGZ
nl4GOJ7K1qo/Vw1p6O/Miev9ULu4Og03H6Wh2gpR6koYT9DpqUQlFxoq0d7v
FQTjjddw5Su4REP+sV7slolUdM9oFXdCXjvadvFODjt7G+qTUdJjr21HpcMJ
q1z525BMh5pGaHs7qu5iYvDkbsPe4cOuUwp2ukveYcIEy1CmcT1687fwo7Yw
HZX7t238XEVBf8zexDdsoqMDHR5f91RTULrT2w9jW+hoR9Mlr1iojT/tvyq5
g46CMg3/voWaXrLrupMGHZ23tTZhraEgjgNcrPv16OhHV/QOcagtRQUtz+2j
o6udXIbyUD8+FMPz5AgdeRaklJ94SlnyFt2EQn7ya6GIcBG2jkOHUVyHVZPA
fCc6/Ip/gsueityfLGNd+5CKRDrvc3y7QUX6c5N7SNAv/su3lOUeUVHVTM9j
K7h/MVkJB11qqEha1VTdCfpbIpVrdaWfim53XmDLgfuRK3AxQ4eJhr4dG9xK
/HuHFnt5ks4qGtoq8eG9HNS+f9YlzWykIe1ZB10rqL3fJa6RUaKh7uEz7u1Q
a35Yz6yvR0O/jx5jTYXjG21Sduk5QkPfNx9OJcP54/M/7xk7SUMWnw9OisH9
uxVep1B8gYYkYjWCvsL4bY3LZDKy25G1FfcmK+Y2NFD0J7imsh3ljDOsTBFo
QyxeZ36H09pRr+r4JmueNuwv2rnauVfqL/mLuy7waV/fXY/s4lg81gnRkcMu
9221cP+67l2QyxCnowcvvikrwv2ZkMpNn5Gho1iW77F+UGc7FH1i2k5H6jf4
JZqgLmp4v85FDe7Hw4Plc1DLzCxLO6pLRyfGh14Jw/2KCEkIO7KXjkpZY+q2
QG1gaOqbaUpHve9z5/flUJb8x756LWdxA+S1c/Z+WwQVZYxwvRyHfrAmy41O
5VKRoI+PfTf0q+kRzdq/nYqUBJmvM0LtpKq933CKihRWpp4/C/21uGWvJshJ
Q0eenL+6HepVhd3vqtbRkFXEx0w1qFcrDo8OyNJQwURCcwjUGVPbearVaWj3
jthHxHrd6m//s2AfDa3+pSArC+cvM3D5GfyyHZX5H+OuWNGGviS4/93f2I70
H25/fmx1G/YgGeboLExa9cj66Rz3oDwd7bx8x/Ap9OP70X4hw510RAm78aQf
asGs2C+OiI70ZKp6uKEf31P5HXX20FFin2aaJNSbsiMlIg9AP3VznPPgfmBf
kv4hd4JfEbH9nZ4KP3YINftLi+stdCJqqk2/5HHIoUMu0XthfjRqzEplXqUi
nq+Xwygwv+N/WjSqJlHR/GSG7nW4HqOcUO6NlVT0gLfg5W24Xu4T+8UMP1PR
l954pxroR1PZtT37ltGQ2uik7yGo51qqW8V5aWikviuQmN/rRr5x/N1AQ+cE
YtOJr8tE/OZn3gZ5dbVVgQy1jiKVTUaXhjgD9Ur9iPXDIPK035T4d3HjDfFw
fnFzc2HKCRpKbd1YMwLj8yn10iw9R0PNjtoJT2H8Ri08xbnP21GTaid9OWMb
oi/0vCCVt6P55ZGpXGvakJdWsHkkpR2JfpGpNOVtw97kHoYV9z0MlrzJO3wx
nSfhfkh/y9zBtpaO8sZDdxdAPxtlGqcSNtBRi5772Ea4H7H+60PnNtPR4Aue
vVehtpUaCRvfSkdKkzF7qqAW2y/73UWVjlh9Q8KnoS5pnjtvo0NH+zSKXq6F
+yVfd1xW34iOokJWRstCHb97q0r2IVgvI6rrdQsoS96l2EMhCWljJJJklxtz
j4reXpuxFobrDxRgusGcDc8BhoeDf6BfV9JqhLRoVPRaS2itENRl53t4+cep
6IKW2Mob0F8Paae34uw0pFemFbWT6PeGM5wpa+F+ubofVoY6W7zIcmgzDb1k
sau4DvXx7Hu8Cao0lHx/VmAtHE+pm3cqbi8NVb9MyloO9yO1qeL6/YJ29KYt
jOUEZxv6+tVkw5b6dlQudbrHHvq96F8eU1srmKtdjxjZXSaH5ejoeY3RPAn6
8UBYqHmnMh1VGYnMfITaV2nwxSlNOgpkrXjJAf24dIlX2UCfjixPSoRsgpo8
cIR8az8dLS8RfEjkOfY0bQMcXcVVkOPwmrjsQSpi5xR9lwTjT/A6u1KFBdbr
4clRHagTp+M87NfQkEgvh5sC1P3LTbb/kqChqniDP45EfUbAeaCqHfEWlR84
C3kYv3F5p+luOgqO9k9aD+ebOvJ+0sGYjjr9BjLkoF698Djwyh8qGioyWHkK
Pq/90SppxQoa8lmXdU4R6j4jg/TPIjS0s/a3AXH+RU9z5FXnjKlmPTrWui5a
3YCOZOd++ErD8QK8WwNTTCDfNpS0ny+nLHmbvcfnp/nFUM22kx6exw8i0UIv
6gdYv8Grbn/cbkVFd2ON1E7C/H94Jqvw3mV4Hk05bhyA+dGdqRuuDX9+79aX
X2Fwvx5vY3dfKIPnGO+8cyTczyJf4ZsKn6gI0V5xtMD4DofeiDrEQEMntdAK
c6gjmUK+8/HAfkBY4AOxfp0GWrQWxGhoGIXr7Yf69o80gZ+KsB7Pl4UWQl37
XpJTWIeG1jVReX3g+OMeYY2Dh2io7e43/QA4v6N0BGu5PQ099G/PbIfxeZk0
6ZWdpSHdkiDBEBhnxQo138LMdnQnqtD9I0MbcnpE1Qkta0efMjjzqle1oadP
4ljvt7SjGx92clNh/S76m76k/Zv1DZf8zWNy0ZctoL9c93zjrgnSEaP/gRfP
Yf2SZzw/rIH1O5ixLkcE5pvrTrOb12D9PnJ+H+QDdXGA/6AzrN8rT3zUy6E+
HG56cGgX1E78X39Bzbjzj/UXbTp6n5/MLwj3a6630qfCkI4yt7d9If4+RFdH
7L4irN9fU9eyNV5SlvxPrYDlTLL70Xjbau1LwdB3jVHSVrj+5rYRQ87nVPSp
JyeUA/rTKaVxUZgC82RjqqUk9M8xMuPs3CgV5ZS83x8A/f3zx0VCmo2GTq9P
ZlWF+p2Z2qYIQRo6mGu/QYnI23WJ4SPSNPQx+5T4RaiLONX57u6ioXta31q5
4HiFfs4zQUY0FBxo5z4FtRDHoH5sfjtipSyTUOZoQw7+OnlCde1IobBhegDW
76IHqlcs/OiuTj3qKCLRPWD91m27QE6Afvy6mr8pG/ZjgsfFb3+AOt+bV5AO
+7FTsqrBbNCP6j5u0dewH9O6LOe8Eep7jC9XzMF+rHDzjivE+sW+KOm4lpS0
OuLh6PsT9Y2KKmueGKXD+KX0LlhrMNOQVvLu0/pQK8s5+B9aTUPeHrr//v3o
tmXKzlObaAhV771sB7XjGvbZdnI7+nid3XMa1u+XEOaKTthPBHFyaYjC+WrP
qOn2wH5C812fNrF+K4TPDtvPQF+y2YXd4fPNL2xG+LhoSKVs89utUF/x5atq
FaahmiG3Nk2oF33RNMmya7KoHqWorb1WCc9foRMnHkjB8cwit3UJwfpNz92R
dL+SsuSP2nLmnhaXRprfL//ew0hDAjvbdxLrxyF2pmgbH+y/t1b8ez6eshoW
za2A5xXXrbXmsJ+2ffq3pwWeD8zKs8rE/ufrkZN3RTggf8/ePLUDvv/ZUNp4
jhAN7SlR7VIh+sGzen8d5KU6l2+yBHz/+KtfXpywH3C0Kc4g+s1D8qzaxkpD
t2s48hF8//Jq6hEvfhqSOaT3nMgrB4rE2+nqdtTd90NxFM4vrXoxfRjyzpL+
kIn4fCHnsYNs3PB83sZnRuTnvjXXQn+KwnwTjeMh7s+iX9r/UeXcFY3/+KVk
hygGAR5Ealn3zKbXBJ2vNZGUYniLXI34LVUtqUj0yadNXrD+AzjZ5q9fgjx6
do1tHNbHFY7iyd2wjzWQH+qPg/VxcEIvYaSUitTltHrjYf6GhDLliX+E9xxZ
+5lWOL/ST5aLzxao6Pp8iNtR4vklOj4VuJKGem9qbCDmy8qvZEtfyK/RyER5
Y6hfJPyNOQX5VXvN/BOxP2d+cYgrShtqWd5uT2J/I2nU5Qr5tVOzdgOx/2EL
z76sBPmVuO+ITiOMbzT+XJM65Bdd5MHENRj/jBzthArk14RZcZch5Jf0+cYg
VsivVUm630Ugv3Zbih1fDfn1PFC1kIuvDXumzi4uv3IMlzxTp6DYxwehf9fs
XF7vgvwq//Pu41PIrzKbun1tYnTUNuoWKETkU+jPywjy6962LZIXoHYsbo+S
gPxSlaAplEL9I/fb7QzIL5Gh/DsTUEsOz7Q+gvwyTFbWEiDmk4dn0iXILwGT
wzeJ/BKsEtD5eZCOSLOkadUiypKnSvv798yWA6jHzSPANQj2XUM6x9Xh+t0V
T2RxZ0JfHc0u80F/btEvpnO0UFHcCp34LdA/9ZSIx6M/qMh/+WnOYOivloNb
8zN4f83b99SC2E8/PkNS5ID8KlglJknstx8Jhmd6QH4NTG8ZPU88P4sjIhbg
/dVap5rCCsebtoz6zQz5pTc1OzQC9WGZazJCkF/h6x71JMH76KajanPh8D76
vuQmy2aYv4u+qsThtc6TkF8VPOpfFCC/os5cfRAP/SBlLWt1gfz61M1b8w7q
/XGpe9Mhvz7PmXkuh34MxK2ICIb8chM0ayXeJ8+FnVIqgvyaLBh0INYD9lrJ
hnIsspqoX/C17N0ByOtXy0mZMH63LG9mMrzvyejJGRhAzWjQFPkK3ve4Upj/
zcd3f6Vve0N+fUm50Hkcaslvy3YbQ3757Knw3SXYhlh1mbbFQn6tTR+7IwLn
y1gYco6D/JKLWM5K5Fek7DERs2mYxxoayBM+zydkdz8K3l82JXUmEz8PMHjg
3WII+SWh4L9DA+pFr/V68madGMiv+jGBcV/Ir4/mteJEfmls+DrfCXnBdfks
82MyZclzJX0OkpXegm6bXiW9gv39tOyCqQkcTzHPuu4Z7O/7G+p8ifySlu8/
tRnySy7FkpoDz489O7OYAyG/bC5R6cT+VrrSUZEE+8+048Pnif3mBVauhc2Q
X2O+qsHEftSsjq/aD/Jr2FB/LZFf7yxS4xpgv5donJNG9NuM3cupAPZzKdcj
DLXh+9u6ley/w37O4XIsI5Ffm0iiYqchv67mSGpthfxf2biZmg75FXyC8z3R
r7lzljOBsD8bUPnaTeSXoOLXB85EfvWmiu8m3q//58FGfDuuTNf4jwerxWvo
Iy6IGulSH+NhP8RU+Cv93/X+z39t6hxUtoF+5oc7X0uF57MP6Wodkcfc6p0C
QrC/XvhDUyTy+sk51m8IrqfSbfQecT0ufAuX3sPz7A1z/CAxH9J0eXKtYf/Z
PJtnUwDj7/kaKLwBxr9eQOEiMX6/Pcf1w+D59HbIU4R4PsVejcwsgedH4dXa
f+NJC5zoUIX3+cbRFbfnYP5zauw2PgD3s51zlFIN81v9iYvhH8j7A72r3IjP
62Q23lCE+WxhkihNjMczxeLZHcj3dZPqvcR4Fn3Z9GyHXB6N//iyvp41vAIM
aOW66T3mySYonYXSagx5/v6kTVz5MSo6+sQryQfy8GpXfvLMRSrq4RtfNgN5
YVw88aQe/t/GFeiQCHmRbtqX5wB5HhD1JCUR1vMMv/fehB5478wyvkD8vOPS
seVicpDnUSuupxwj9pcZm/7qQ55re7buJcZnb6c6qAV5vvNu4+a9UNdPSHeJ
Q57zoxWh2US+xNODD0KeW7aOGrjD8ROWSfVugTzvVuaIvgTnP6qnqTxmR0NS
DzTXVMO45LWMOP96wX7K3oruDePnr4g/8jujHR1sto5dWGhFbB93K1aXtqMF
n7nw15DffAVf77Y3tyOmsWOBslAverOW3ALvvxkuebOFn4vkKer1SHmvjYMA
5LlHteGvJ5DnqpGjfi8gz3fOmk4KEr9vo1Y5sx7yPFmd9vMc1GUHZ12ZIM85
IgqkSoj3x5qcxCDIc774Sx3E7+cU6c8E3YY8l1959w3x+zmdBY25FpDnuRes
TYg8v+m7Kq4V8nzmb86DYshz7N3Gqlzc/PwAatu1bktfIBXpdn2u0Ybr1/z0
0DYsA9aRzX5vfujPewNB8o1mKio42E9WgP6lbWbVcIY8ZxnpHyN+/vFFcGS9
G+T5z2BGNuLnkRwLbcr1AjTEYs39gsifqWgOVQXI813bkNU5Yv/KU9FWAnku
1ifVwQTHi9WXvVRlSEP57vx5g1CfKTEQ/pDXjtbYb6k9DHnOXP2StA/yfGzk
FpcRzOdF/3bdUWVjWd16lFfGbsMDeX7E+qp/HPRjSl/6iQHk+fWK2t4uqNc9
O30yAPL89kJ3L/HzQZ9fXMbukOdbvCduEXnu9LZyTzTM/+PeIebE/Meerknl
xnNbEDIhadYyQp6viuppzSL2DydmzG9Anlsz/FQ1JN6HOmbj/CDPj9m5zxLr
b8uVFF4VyPMPvgWB1lCzmlyjL4c8n/iV0vsL1nPsQ8ZhH8hzz0tD0kSeJ+rv
vuoNeV5eZDdA7O/mc1sKqFOwj63h6DoDny+gfP5mBnnu8Nd/BfF8zJJ+9oYF
8rzOIcOD6Peip5vPt7CxBfLHYq9Aph3kubjHfB/x8yBFJzW+Alj/WjZ8L2Vh
vmFvl9zswy4rjyTZ5ieCIM8PbrNzOgjHY4ux4+ovb0deda7KNpDfqtdYBZ0g
v2krGMlEfr8+++2WHeQ33foiE5HX3ZGaLAOQb3eLW0aIPKev57tyCvK7qyL3
DfG+/rt8vPQC5HVOaroQ8f6r4nLKKQ3ymvlHSz6Rv8zsD2plIK/N9g3sOQT9
YVx584sf5F2PblANkXeJm7v3GkNex4Q8lSTy/Vr5mhQJyGtn/j3bdYn9wf88
3s6HYQKimv/xeH2/iStJCyP5C8f6CHfop/adSuL+LPq7nmwF3R/g+831v7c6
Ql6bZYyf2AVfP9fEJtoJ+5GQXffTiPep+NLjf0Qgr0num/yI+UFL2nojGvK6
OHYom8gfv8xgs7WQ1zEdbac6Yfw0ma8KC3A/Hx8RPk6Mf/Pcx7iDkNc9ufI+
RN7Oc9TnXoC8HjqLYojx+E2cvjQFz8uvtaWvnsL8nr+VYCMH98twr38mcb4U
pYcHCiGvw1SlOYjP75gQi+KG+apj9YKf+Poq83d/9SGvz8wuX0v0c9H3lQne
Hamv8R/fl0HE+644G5oJqxyjQH5aTj/9N18Xvd+N7cGrOuD7bxiu3PAejh8T
t+EMcfyEkugQbrjeR8rJ//JW/9qdpDCYz8tnzX0EYX8ifKO19BXcL9URx1Hi
eo+S3z9ugvslamkZQ4zH3nLy7Ufo/3zDyX/Xmy+X9cYO+ukqHx1NHH/bmG3a
PPTjZOK+f/dHcGpI5QxcP0nKRFgN1m/LyFuzWri+71Y5GcT5F/1fRcO41vfq
//F/GQLWKwmMaVbS3dRJp1uJv4/599//r/8P4wdexA==
   "], {{{}, {}, {}, {}, {}, {}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwd1mW4FdUCgOENktIg3aEiJamSKind3d2pdHd3d5d0d3d3iUh3d+t95/54
n2+tNTPnnJnZ+8ykrNe6XKuwoVAoDKFwodCuuP9PKGGMUOjnmKHQM82my/QW
3xp30NlcJLF5cW3GeI4Sw1qG4HhqMZidfGE9gcYnHnH5ijjEJhYxg+OJTjSi
EoUviUwkIhKB8IQLfi5hCUOI/6KHQv/ymU985APvecdb3vCaV7zkBc95xlOe
8JhHPOQB97nHXe5wm1vc5AbXucZV/uEKf3OZv7jERS5wnnOc5QynOcVJTnCc
YxzlCIc5xEEOsJ997GUPu9nFTnawnW1sZQub2cRGNrCedaxlDatZxUpWsJxl
LGUJf7KYRSxkAfOZx1zmMJtZzGQG05nGVKYwmUlMZALjGcdYxjCaUYxkBMMZ
xlCGMJhBDGQA/elHX/rQm170pAfd6UZXutCZTnSkA+35g99pR1va0JpWtKQF
zWlGU5rQmEY0pAH1qUdd6lCbWtSkBtWpRlWqUJlKVKQC5SlHWcpQmlKUpATF
KUZRfqMIhSlEQQqQn1/5hZ/JR17ykJtc5OQnfuQHcpCdbGQlC5n5nkxkJAPp
Scd3pOVbvuFr0pCaVKQkBclJRlKSkJhEJCQB8YlHXL4iDrGJRUxiEJ1oRCUK
XxKZSEQkAuEJxxeEJQwh/ovm+89nPvGRD7znHW95w2te8ZIXPOcZT3nCYx7x
kAfc5x53ucNtbnGTG1znGlf5hyv8zWX+4hIXucB5znGWM5zmFCc5wXGOcZQj
HOYQBznAfvaxlz3sZhc72cF2trGVLWxmExvZwHrWsZY1rGYVK1nBcpaxlCX8
yWIWsZAFzGcec5nDbGYxkxlMZxpTmcJkJjGRCYxnHGMZw2hGMZIRDGcYQxnC
YAYxkAH0px996UNvetGTHnSnG13pQmc60ZEOtOcPfqcdbWlDa1rRkhY0pxlN
aUJj0nvO5GMel0nm2VZT75LOeJBm1x3Bs0kbOSafPjXPqkv1Jt8Yt9dZXCCR
eTFtyjiOBM9Ca+k0LzUYyPbgeWe9oZ/bgPrUoy51qE0talKD6lSjKlWoTCUq
UoHylKMsZShNKUpSguIUoyi/UYTCFKIgBcjPr/zCz8H5kpc85CYXOfmJH/mB
HGQnG1nJQma+JxMZyRBcb9LxHWmDOv88VGcA24Jnv+vxbXBPjWdynoTWiupC
/iGleRPNrfc1g47VH/Rw8M6haXUx10ht3kancjp4ZzHPrdXoz9bgfSO4j8F1
0caM4VDw7hL8PZqLqvRjC//ytf3TkJpUpCQFyUlGUpKQmEQkJAHxiUdcviIO
sYlFTGIQnWhEJQpfEplIRCQC4QnHF4QlDCH+i+rv4zOf+MgH3vOOt7zhNa94
yQue84ynPOExj3jIA+5zj7vc4Ta3uMkNvnFNclKFvmzmM9dt+1p/ojJ92MSn
4P7YlkZ/pBK92chHrtpWRBsxmoPBe6T7kTq411SkFxv4EHw27F9YGzKKA8E7
p/1TaWumcCp4X7WWQyvQk/W854rjf9cZnCOB/QppA0ayP3h/tZZSWzGZk8Sx
ll3n8hdJzcvrHb4z7qHreMffwbXVLNaX6I3gc2TcTh+SyXh6cD30rMbXgsH3
RB/p97oguJZ6RVNo/eDzqfc0vY7QHLpPI2mK4P+OPtbMuii4T3pVU2lLfUBG
40l6gtjG2XQOl0hiXk5vk9a4u67lLZed05/BfSaNbW11GmeIZ15A5wfnTnLz
ejqcvUQ0T64tmMhxYlnLqmXpxhreBNfW78mvdRnGHiLYN5k2ZwLHiGkti5ah
K6t5HZyH43/VOgxlN+HtmzS4LpSmC6t4xUX7/6K1GcIuwtk/SXAfKEVnVvKS
C/ZPHNxDStKJFbzgvG2JgmtMCTqynOfBZ822s5zhNKc4yQmOc4yjHOEwhzjI
Afazj73sYTe72MkOtrONrWxhM5vYyAbWs461rGE1q1jJCpazjKUsCe4zi1nE
QhYwn3nMZQ6zmcVMZjCdaUxlCpOZxEQmMJ5xjGUMoxnFSEYwnGEMZQiDGcRA
BtCffvSlD73pRU960J1udKULnelERzrQnj+C7z7taEsbWtOKlrSgOc1oShMa
04iGNKA+9ahLHWpTi5rUoDrVqEoVKlOJilSgPOUoSxlKU4qSlKA4xSjKbxSh
MIUoSAHy8z9oSjcZ
        "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV2GO4HWcXBuDT2LZtN1XaJmlsW42txnZj27Zts42txraNL989P+5rPe+a
2fvMnj0ze10nZf02FVqHCgkJ+Y6W4UNC8scICakaNyTkU5yQkJW0oxAZ+MO2
AhSkEIUpQlGKUZwSlKQUpSlDWcpRngpUpBKVqRL8PapRnRrUpBa1qcOf1KUe
9WlAQxrRmCY0pRnNaUFLWtGaNrTlL9rRng50pBOd6UJXutGdHvSkF73pQ1/6
0Z8B/M1ABjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxl
HvNZwEIWsZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf
+znAQQ7xD/9ymCMc5RjHOcFJTnGaM5zlHOe5wEUucZn/uMJVrnGdG9zkFre5
w13ucZ8HPOQRj3nCU57xnBe85BWvecNb3vGeD3zkE5/5wlf+xzdCYrpHCEVo
whCWcIQnAhGJRGSiEJVoRCcGMYlFbOIQl3jEJwEJSURikpCUZCQnBSlJRWrS
kJZ0pCcDGclEZrKQlWxkJwc5ycX35Kaa+/yz+3oV7SlMRn6wrbptX+TVdKAI
mYL99ONxWB5JXX60fw29r/IaOlKUzMFr9eNzRB5FPX6yf029/8lr6UQxsgSv
1U/AUXk09fnZ/rX0vsnr6Exx/tbLwBV5NlmD97JOyDF5DA0Ybp2d2/IifvF+
ta1DWG/dhXHyjzySSzBQzshVeQ5T5Ly8krMFxyAn4rg8Ty3GWHmimodnckNG
yDm4Iy9Ry7BYnqEWYDPvgu9ArcSO4PWOr476HWvZEByDWoQtdA3OofpYXaqW
ZRslrQepmYLXcM16YdBnrjxVzcdreYVaITgvwedXE3NCnq8WZ5w8Sf2V53Kj
4PuWc3I3+CzMlAvyXv7VMf8ph2KjdTdKMdg6M9eD80QOulon4aQ8nsb85vV1
9UKzybo7pckZvJdeUk7JE2jC7/avpxcmOIfWPShDruC1esk4HXwfNCWv/evr
hQ3OoXVPyvI9+WxroB+Orda9KEdu8tvWUD98cI6te1M+uEeC30PbClCQQhSm
CEUpRnFKUJJSlKYMZSlHeSpQkUpUpgpVg3szuAeD+yq4V4LrP7hmg+siOM/B
uQo+f/CZgmMPjpFGNKYJTWlGc1rQkla0pg1t+Yt2tKcDHelEZ7rQlW50pwc9
6UVv+tCXfsHfdW4isN056UOF4JkQfCd6yTkTXEs0o39wjHoRg2vdum9wDcg/
80ReppajojxEzRJcT9wI7l21FPPlaWp+3gT3QvB9yik4K0+mOQOCc6EXiZ3W
/agUPE+CZ4dtAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nF
bOYwl3nMZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu
9rCXfeznAAc5xD/8y2GOcJRjHOcEJznFac5wlnOc5wIXucRl/uMKV7nGdW5w
k1vc5g53ucd9HvCQRzzmCU95xnNe8JJXvOYNb3nHez7wkU985gtf+R/fCInl
WUooQhOGsIQjPBGISCQiE4WoRCM6MYhJLGITh7jEIz4JSEgiEpOEpCQjOSlI
SSpSk4a0pCM9GchIJjKThaxkIzs5yEkuvic3P/AjP/Ezv5CHX/mN38lLPvLz
BwUoSCEKU4SiFKM4JShJKUpThrKUozwVqEglKlOFqlSjOjWoSS1qU4c/qUs9
6tOAhjSiMU1oSjOa04KWtKI1bWjLX7SjfbC/+zkyu4LnCZWD3/Tgua2XknPB
7zUtgpnDOhf3gt9KZsmF+CCvVisHzwY6BMegRmEdu22fqxZlgFyFPMF8Yr9O
dKYLXelGd3rQk170pg996Ud/BvA3AxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZ
xGSmMJVpTGcGM5nFbOYwl3nMZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nE
ZrawlW1sZwc72cVu9rCXfeznAAc5xD/8y2GOcJRjHOcEJznFac5wlnOc5wIX
ucRl/uMKV7nGdW5wk1vc5g53ucd9HvCQRzzmCU95xnNe8JJXvOYNb3nHez7w
kU985gtf+R/fCIntuUMoQhOGsIQjPBGISCQiE4WoRCM6MYhJLGITh7jEIz4J
SEgiEpOEpCQjOSlISSpSk4a0pCM9GchIJjKThaxkIzs5aO76j8qe4DeTqsGs
F8xltrXQj8beYF6mWjDHBTOYbS31o7MvmEmpHsxswfykl4rzwTxKy2AGs38r
vRjsD2ZGagQzWzBP6KXmQvCbT6tgLrN/a72YHAjmBGoGc1wwT+il4aI8ndbB
rGb/NnqxOGg9lFpBtc7KTXlBMOsFM4J1Wi4FM3owS8i/8UJuw2j5e+4Hs0ow
53jvttaxOWQ9LJhR5V94KtcOenI2bsmL1dIsDI5P/SOYd3lrvTKYe4Je8FxT
07Gey8HxqSWC+ZSZwblUX6rLg5nZpRb8Dyd3ZMdGLnKSg+xkIytZyEwmMpKB
9KQjLWlITSpSkoLkJCMpSUhMIhKSgPjEIy5xiE0sYhKD6EQjKlGITCQiEoHw
hCMsYQhNKL4jhG+R3E985Quf+cRHPvCed7zlDa95xUte8JxnPOUJj3nEQx5w
n3vc5Q63ucVNbnCda1zlCv9xmUtc5ALnOcdZznCaU5zkBMc5xlGOcJh/+YdD
HOQA+9nHXvawm13sZAfb2cZWtrCZTWxkA+tZx1rWsJpVrGQFy1nGUpawmEUs
ZAHzmcdc5jCbWcxkBtOZxlSmMJlJTGQC4xnHWMYwmlGMZATDGcZQhjCYQQzk
bwbQn370pQ+96UVPetCdbnSlC53pREc60J52/EVb2tCaVrSkBc1pRlOa0JhG
NKQB9alHXf6kDrWpRU1qUJ1qVKUKlalERSpQnnKUpQylKUVJSlCcYhSlCIUp
REEK8Af5yUdefuc3fiUPv/AzP/EjP5Cb78lFTnKQnWxkJQuZyURGMpCedKQl
DalJRUpSkJxkJCUJiUlEQhIQn3jEJQ6xiUVMYhCdaEQlCpGJREQiEJ5whCUM
oQnFd4TwLaL7n6984TOf+MgH3vOOt7zhNa94yQue84ynPOExj3jIA+5zj7vc
4Ta3uMkNrnONq1zhPy5ziYtc4DznOMsZTnOKk5zgOMc4yhEO8y//cIiDHGA/
+9jLHnazi53sYDvb2MoWNrOJjWxgPetYyxpWs4qVrGA5y1jKEhaziIUsYD7z
mMscZjOLmcxgOtOYyhQmM4mJTGA84xjLGEYzipGMYDjDGMoQBjOIgfzNAPrT
j770oTe96EkPutONrnShM53oSAfa046/aEsbWtOKlrSgOc1oShMa04iGNKA+
9ajLn9ShNrWoSQ2qU42qVKEylahIBcpTjrKUoTSlKEkJilOMohShMIUoSAH+
ID/5yMvv/Mav5OEXfuYnfuQHcvM9uchJDrKTjaxkITOZyEgG0pOOtKQhNalI
SQqSk4ykJCExiUhIAuITj7jEITaxiEkMohONqEQhMpGISATCE46whCE0ofiO
EL5FcP/zlS985hMf+cB73vGWN7zmFS95wXOe8ZQnPOYRD3nAfe5xlzvc5hY3
ucF1rnGVK/zHZS5xkQuc5xxnOcNpTnGSExznGEc5wmH+5R8OcZAD7Gcfe9nD
bnaxkx1sZxtb2cJmNrGRDaxnHWtZw2pWsZIVLGcZS1nCYhaxkAXMZx5zmcNs
ZjGTGUxnGlOZwmQmMZEJjGccYxnDaEYxkhEMZxhDGcJgBjGQvxlAf/rRlz70
phc96UF3utGVLnSmEx3pQHva8RdtaUNrWtGSFjSnGU1pQmMa0ZAG1KcedfmT
OtSmFjWpQXWqUZUqVKYSFalAecpRljKUphQlKUFxilGUIhSmEAUpwB/kJx/p
orhXyUx2cpOHvLb9H85CG7Y=
        "]]]}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV01OwJUYUBdA7tm3PVFJJKhrbtm3b9hvbtm3btm3bzmTdj1W9T1dX/5za
qeq1LtcqdCAQCEUSIZgzRgkEMpGZLGQlG9nJQU5ykZs85CUf+SlAQQpRmCIU
pRjFKUFJSlGaMpSlHOWpQEUqUZkqVKUa1alBTWpRmzrUpR71aUBDGtGYJjSl
Gc1pQUta0Zo2tKUd7elARzrRmS50pRvd6UFPetGbPvSlH/0JYQADGcRghjCU
YQxnBCMZxWjGMJZxjGcCE5nEZKYwlWlMZwYzmcVs5jCXecxnAQtZxGKWsJRl
LGcFK1nFatawlnWsZwMb2cRmtrCVbWxnBzvZxW72sJd97OcABznEYY5wlGMc
5wQnOcVpznCWc5znAhe5xGWucJVrXOcGN7nFbe5wl3vc5wEPecRjnvCUZzzn
BS95xWve8JZ3vOcDH/nEZ77wlW985wf/8ZNAVN0hNGEISzjCE4GIRCIyUYhK
NKITg5jEIjZxiEs84pOAhCQiMUlISjKSk4KUpCI1aUhLdjLyJ7/xCxnIQSb+
4nd+JSeZ+Zs/yEUW/iE3WclDuuAfce08nm6yhi/mgs7ZrJCfkFEeS1t5FtfI
YA4hv1ybERwhnrt2pJfTkZY0pCYVKUlBcpKRlCQkJhEJSUD84F/EJQ6xiUVM
YhCdaEQlCpGJREQiEJ5whCUMoQlFgJ9x7JoffOcbX/nCZz7xkQ+85x1vecNr
XvGSFzznGU95wmMe8ZAH3Oced7nDbW5xkxtc5xpXucJlLnGRC5znHGc5w2lO
cZITHOcYRznCYQ5xkAPsZx972cNudrGTHWxnG1vZwmY2sZENrGcda1nDalax
khUsZxlLWcJiFrGQBcxnHnOZw2xmMZMZTGcaU5nCZCYxkQmMZxxjGcNoRjGS
EQxnGEMZwmAGMZABhNCffvSlD73pRU960J1udKULnelERzrQnna0pQ2taUVL
WtCcZjSlCY1pREMaUJ961KUOtalFTWpQnWpUpQqVqURFKlCecpSlDKUpRUlK
UJxiFKUIhSlEQQqQn3zkJQ+5yUVOcpCdbGQlS/CtjtRiOIeDHQx2n8zBfZsf
8695DG3k7c6yhFGv/wEmQjF0
        "]]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
     {GrayLevel[0], Thickness[Large], LineBox[CompressedData["
1:eJwV02WYFlUYBuBR2d6lS4llCUG6S0A6TFhAAZVYOgQV6bDoUkFQAZNOk661
WEIBBUEFSRHwkm74431+3N/znjnvzJw5M19axqD0gfdEUZTlJzNfFMWoY4kj
ngQSSSKZFLKTg5zkIjd5yItLRPkpQEHu5wEKUZgiFCWVYqRRnBKUpBQPUpoy
PERZylGeClSkEpWpQlWqUZ0a1KQWtanrIeqE5GHqUZ8GPEJDGtGYJjSlGc1p
QUta8SiP8ThP8CRP0Zo2pNOWdrTnaZ6hAx3pxLM8x/N0pgtd6UYG3elBT3rR
mz70pR/9GcALDGQQL/ISLzOYVxjCUIYxnBGMZBSjGcNYXuU1XucN3mQc45nA
RCYxmSlMZRrTmcFbvM07zGQW7zKbObzH+5y/N4o+oTNlycZ539sH5i6oP6UL
5Yjhgrm55i6qP6Mr5Ynlorls90XROvUQGlGIefovyQV0owJxXNIfo3+9eiiN
Kcx8/ZflQjKoSDx59G6X42jNZefHOrZBPYwmFOFD51+Ri+hOJRLIqzdLjqcN
V5wf59hG9XCaUsL4oJxN0bB+4z1yGh3CHhkfDffgI/e5KhfTI+yDueOyMsXU
++VMEslnvENOoIr6tEyntPqwbCDnypry37AWedX64uUm4zpyRNgLeVI2lM1k
SXlI1pdzZHV5NuyFTA37KffKenK6rCbPyI7hnaqPheegtvo/+bFnuiaX0DO8
K8dPhDWTpj4gZ5FEfuOdciJtuWa9CY5tVo+kediH8E4c2ydn0Cl8b+5xXS6l
F1VJpoC+XXIS7bjueomObVGPokVYQ/gmnX9DLqN3eCZSuKE/Sf9W9WhaUjx8
p/pvyuX0CXtEdm7qX2DulnoFfalBDm6ZW2jutnol/cK7ISe3zS0yt5glLGUZ
y1nBSlaxms/5gi/5iq/5hjWsZR3r2cBGNrGZLWxlG5l8y3d8zw/8yHay2MFO
drGbn/iZPexlH7/wK/s5wG8c5BC/8wd/cpgj/MVRjnGcE5zkFH9zmn84w1nu
2JdV9KcWubhjn5K9j23qMbQK/y/O6b8rVzMgfHvkpqDe3XIy7SljfETO465r
pRhnquvKseF/LU/J/wE3MtfM
       "]], LineBox[CompressedData["
1:eJwl1HWYVFUcBuA7uyAh3SHdCggoILmISIeEgJRKKQosKYJBCQhINyIlShh0
KKE0Sigp3VJLC1jsLu99+OOd73e+uc+588zcOfnaxzbpHgmC4D0vL0YHQd2o
ICgkj8ppFCS39X45jtZcc/1DuZRuVCAjD+0R573r3OAmt7jNHe7yF/e4zwP+
5h/+5T/+D/cmngQSCewbIYpokpCUJ0hGclKQkidJRWrSkJZ0pCcDGclEZrKQ
lWxkJwc5eYpc5CYPeclHfgpQkEIUpghFKcbTPENxSlCSZylFacrwHM9TlnKU
5wUqUJFKVKYKVYmhWvjbUJ2XqMHL1KQWtalDXepRnwY0pBGv0JgmNKUZr9Kc
FrTkNVrRmja0pR2v8wZv0p4OdKQTnXmLt+nCO7xLV7oRPlix9KAnvehNH/pG
Hj9z/Xif/gzgAz7kIz5mIIMYzBCG8gnDGM4IPmUkoxjNZ4xhLOMYzwQmMonJ
TGEq05jODGbyObP4gtnMYS7zmM+XLOArvmYhi1jMEr7hW77je5ayjOWsYCWr
WM0a1rKOH/iR9WxgI5v4iZ/ZzBa2so3t7GAnu/iFX9nNHvayj9/4nf0c4CCH
OMwR/uAoxzjOCU5yitOc4SznOM8FLvIn8f7zy+hORTIRr79Egnk5sVQiMwn6
yySaV9CDymQhUZ/GObPZPJB64TnEFX2gX2nuSRWyEpBWv0UOoj6Fuer6iH6V
uRdVyUaEdPqtcjANKBKeZa6P0q829yaG7CHdHjmK5kSRXrdNDqFheD/rY3I6
RcljfUCOpw1x9o7WrTH3oRr5rQ/LyeQIWe+VoyljviRbUMx8Kvw8cpYsL+Nk
NBnM28PvVQ6VpeRFWV02kseZQVnrq/IRBQ62tg==
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV1GWcVFUYwOGhpEtpJAUJ6W4Vi+5ulq5dOpbupRulQwkBaUG6Q6VBaaQF
CSnp8Lkfnt//Peee2Z29e2cyhUXUCI8WCoWyRg+FysUIhZ7GDoU2MZJmlCUf
5V2rQEUqUZkqVKUa1alBTWpRmzrUpR71aUBDGtGYJjSlGc0JowUtaUVr2tCW
drSnAx3pRDgRdKYLXelGd3rQk170pg+R9KUf/RnAQAYxmCEMZRjDGcFIohjF
aMYwlnGMZwITmcRkpjCVaUznW75jBjOZxWzmMJd5zGcBC/meH1jEYpawlB9Z
xnJW8BMrWcVq1rCWdaznZzawkV/YxGa2sJVtbGcHO9nFbvawl33s5wAH+ZXf
+J1DHOYIRznGcU5wklP8wZ+c5gxnOcd5LnCRS/zFZa5wlWtc5wY3+Ztb3OYf
7nCXe9znXx7wkEc85gn/8ZRnPOcFL3nFa97wlneEYoZC0YhODGISi/eITRzi
Eo/4JCAhiUhMEpLyPh+QjOSkICWpSE0a0vIh6UhPBjKSicx8RBay8jHZyE4O
cvIJuchNHvKSj/wUoCCFKEwRilKM4pSgJKV45jO9mSia8wX5Ke3ac93CKML4
kgLEieP/rzPoSi3KOP9CtzKaFnxFQeI6f0hn0o3afOr8S93GGFryNYWI5/xh
nUV36vCZ8690O2NpxTckc/a0LmIAhYlv74jOpgd1SW3vgi5jKJ/7ea91B+No
TTpnLutKypHc+owuZiCZrG/oOoqQwPqoziG7+a72JIP5mq6hHmmsL+pycpkf
6DCymG8F71k3BN+v+kSLaVnv7415Z3DPrcdrNr0T/G5to1dYRW7rh1pUy2sK
PRvce12iOfW+DiKz+aauJ6/5cfA6EpqP6VxymO9pLzKar+ta6pPW+pKuYDhZ
rW/rxuDZ8Z7f6i4m0JYKpHTmnC5lcPD3kcjecZ1HbxoEz5fXv9PdTKQdFSlO
YudP6Hz60DB4vpwP2d9jnkR7KlGCJPZP6gIiaRQ8X8Hn2/5e82Q6UJmSwbMU
fO5d22eeQkeqUCp4FoLvA9f2m6fSiaqUprxrFahIJSpThapUozo1qEktalOH
utSjPg1oSCMa04SmNKM5YbSgJa1oTRva0o72dKAjnQgngs50oSvd6E4PetKL
3vQhkr70oz8DGMggBjOEoQxjOCMYSRSjGE1M9+eA+zGNcKpRhqT2T+lC+tKY
Mc7Hsn/QPJ0I0ltf1dXkMT/S6qQyn9f/AZrHFjw=
       "]], LineBox[CompressedData["
1:eJwV1mWUEGUUBuChlqW7uxsEUSkFJBUUBOkUUCSkDFolRenu3KW7u7u7O5fu
Tp/98Zz3fnfOmfn+zDlvpiZtq7WJEgTB/qhBUDg0CGbHDII88oHsSRZzhFxO
SRI7H5dhdKMhA6IHQYj9bvNo2lGNUgz0bBCDGcJQhjGcEYxkFKMZw1jGMZ4J
TGQSk5nCVKYRRjjTmcFMZjGbOcxlHvNZwEIWsZglLGUZy1nBSlaxmjWsZR3r
2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc5RjHOcFJTnGaM5zlHOe5
wEUucZkrXOUa17lBBDe5xW3ucJd73OcBD3nEY57wlGc85wUvecVr3vCWd7zn
A0GMIIhCVKIRnRiEEJNQYhGbOMQlHvFJQEISkZgkJCUZyUlBSlKRmjSkJR3p
yUBGMpGZLGQlG9nJQU5ykZs85CUf+SnARxSkEB9TmE/4lM8oQlGKUZwSfM4X
lKQUpfmSMpSlHOWpQEW+4msqUZlv+JYqVOU7qlGd76lBTWpRmzrUpR71aUBD
GtGYH2hCU5rxIz/RnJ9pQUta0ZpfaENb2tGeDvzKb/zOH3SkE53pQle60Z0/
+Yu/6UFPetGbPvTlH/rxL//RnwEMZBCDGcJQhjGcEYxkFKMZw1jGMZ4JTGQS
k5nCVKYRRjjTmcFMZjGbOcxlHvNZwEIWsZglLGUZy1nBSlaxmjWsZR3r2cBG
NrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc5RjHOcFJTnGaM5zlHOe5wEUu
cZkrXOUa17lBBDe5xW3ucJd73OcBD3nEY57wlGc85wUvecVr3vCWd7znA0GI
/5+oRCM6MQghJqHEIjZxiEs84pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxk
IjNZyEo2spODnOQiN3nISz7yU4CPKEghPqYwn/Apn1GEohSjOCX4nC8oSSlK
8yVlKEs5ylOBinzF11SiMt/wLVWoyndUozrfU4Oa1KI2dahLPerTgIY0ojE/
0ISmNONHfqI5P9OClrSiNb/Qhra0oz0d+JXf+J0/6EgnOtOFrnSjO3/yF3/T
g570ojd96Ms/9ONf/qM/AxjIIAYzhKEMYzgjGMkoRjOGsYxjPBOYyCQmM4Wp
TCOMcKYzg5nMYjZzmMs85rOAhSxiMUtYyjKWs4KVrGI1a1jLOtazgY1sYjNb
2Mo2trODnexiN3vYyz72c4CDHOIwRzjKMY5zgpOc4jRnOMs5znOBi1ziMle4
yjWuc4MIbnKL29zhLve4zwMe8ojHPOEpz3jOC17yite84S3veM8HAn0uClGJ
RnRiEEJMQolFbOIQl3jEJwEJSRTZIUlCUpKRnBSkJBWpSUNa0pGeDGQkE5kj
eylZyUZ2cpCTXOSO7LDkJR/5I++nn+6RY2hPdUpH3sP+hAynO40iv2t3Uc6n
b+T7nW/LVRQ0P5NFZQH5P1JigjE=
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV1zO0IIgWBMC3Y9u2bdu2bdu2bXt3bNu2bdvWrx/UucGNOuigEzZqX6nd
PwEBAUGCBATkCxEQkCtMQEAW0pOaFCQjv18BClKIwhShKMUoTglKUorSlKEs
5ShPBSpSicpUoSrVqE4NalKL2tShLvWoTwMa0ojGNKEpzWhOC1rSita0oS3t
aE8HOtKJznShK93oTg960ove9KEv/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMY
zwQmMonJTGEq05jODGYyi9nMYS7zmM8CFrKIxSzhX/5jKctYzgpWsorVrGEt
61jPBjayic1sYSvb2M4OdrKL3exhL/vYzwEOcojDHOEoxzjOCU5yitOc4Szn
OM8FLnKJy1zhKte4zg1ucovb3OEu97jPAx7yiMc84SnPeM4LXvKK17zhLe94
zwc+8onPfOEr3/jOD37yi9/84S8BIQMC/iEQgQlCUIIRnBCEJBShCUNYwhGe
CEQkEpGJQlSiEZ0YxCQWsYlDXOIRnwQkJBGJSUJSkpGcFKQkFalJQ1rSkZ4M
ZCQTmclCVrKRnRzkJBe5yUNe8pGfAhSkEIUpQlGKUZwSlKQUpSlDWcpRngpU
pBKVqUJVqlGdGtSkFrWpQ13qUZ8GNKQRjWlCU5rRnBa0pBWtaUNb2tGeDnSk
E53pQle60Z0e9KQXvelDX/rRnwEMZBCDGcJQhjGcEYxkFKMZw1jGMZ4JTGQS
k5nCVKYxnRnMZBazmcNc5jGfBSxkEYtZwr/8x1KWsZwVrGQVq1nDWtaxng1s
ZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQhznCUY5xnBOc5BSnOcNZznGeC1zk
Epe5wlWucZ0b3OQWt7nDXe5xnwc85BGPecJTnvGcF7zkFa95w1ve8Z4PfOQT
n/nCV77xnR/85Be/+cNfAkLpP4EITBCCEozghCAkoQhNGMISjvBEICKRiEwU
ohKN6MQgJrGITRziEo/4JCAhiUhMEpKSjOSkICWpSE0a0pKO9GQgI5nITBay
ko3s5CAnuchNHvKSj/wUoCCFKEwRilKM4pSgJKUoTRnKUo7yVKAilahMFapS
jerUoCa1qE0d6lKP+jSgIY1oTBOa0ozmtKAlrWhNG9rSjvZ0oCOd6EwXutKN
7vSgJ73oTR/60o/+DGAggxjMEIYyjOGMYCSjGM0YxjKO8UxgIpOYzBSmMo3p
zGAms5jNHOYyj/ksYCGLWMwS/uU/lrKM5axgJatYzRrWso71bGAjm9jMFray
je3sYCe72M0e9rKP/RzgIIc4zBGOcozjnOAkpzjNGc5yjvNc4CKXuMwVrnKN
69zgJre4zR3uco/7POAhj3jME57yjOe84CWveM0b3vKO93zgI5/4zBe+8o3v
/OAnv/jNH/4SEFr/CURgghCUYAQnBCEJRWjCEJZwhCcCEYlEZKIQlWhEJwYx
iUVs4hCXeMQnAQlJRGKSkJRkJCcFKUlFatKQlnSkJwMZyURmsvw/i1hZ3Wxk
Jwc5yUVu8pCXfOSnAAUpRGGKUJRiFKcEJSlFacpQlnKUpwIVqURlqlCValSn
BjWpRW3qUJd61KcBDWlEY5rQlGY0pwUtaUVr2tCWdrSnAx3pRGe60JVudKcH
PelFb/rQl370ZwADGcRghjCUYQxnBCMZxWjGMJZxjGcCE5nEZKYwlWlMZwYz
mcVs5jCXecxnAQtZxGKW8C//sZRlLGcFK1nFatawlnWsZwMb2cRmtrCVbWxn
BzvZxW72sJd97OcABznEYY5wlGMc5wQnOcVpznCWc5znAhe5xGWucJVrXOcG
N7nFbe5wl3vc5wEPecRjnvCUZzznBS95xWve8JZ3vOcDH/nEZ77wlW985wc/
+cVv/vCXAFv4HwIRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIR
mzjEJR7xSUBCEpGYJOQmKxlIQ0qSk4dsZCQtqchLdjKRjnzkIPP/Nz45KUBS
/gedCSe1
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV1mXc1VQAwOFLo9IpoISKAViAiQLS3d3d3d3d3d3d3d3d3d1iF/icD8/v
v51t99092967dLWal2oWJRKJvI4WiexMGonkihOJ5CYPeclHfgpQkEIUpghF
KUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1rUpg51qUd9GtCQRjSmCU1p
RnNa0JJWtKYNbWlHezrQkU50pgtd6UZ3etCTXvSmD33pR38GMJBBDGYIQxnG
cEYwklGMZgxjGcd4JjCRSUxmClOZxnRmMJNZzGYOc5nHfBawkEUsZglLWcZy
VrCSVaxmDWtZx3o2sJFNbGYLW9nGdnawk13sZg972cd+DnCQQxzmCEc5xnFO
cJJTnOYMZ/k5vnOkPUX4lJScs+2lLqcDRfmMVJy37RddQUeK8TnvED2B89RB
VCcnF+z/q66kE8X5gneJYf9dOpga/MRF+/+mq+hMCb4kgX2P6jgak5qYxnbr
EGqSi0uO/11X04WSZCahfY/peJqQhljG9uhQaoUx61d0LrlJZv20TqElH1i/
qYu47O/8oWvoyse23dVSYS4sX9RZZCGR9eM6Icyx5UfalPcsX9fvdEGYF32q
P2paja179Ssdphn1gX6vtTWtXtVvdV64DvpEf9A8mlzP6Dc6NVxDfaytSG/5
li4O82v5mV7xnf7UtXTjE+P3tHS4XpYv6Wyyktj6CZ1IM9LxhrF9Opw65OVt
Y2d1Gq256m/8pevoTpnw/Uhiv5M6ieZhbnjT2H4dQV3ycc3xf+t6elCWr3mf
t+x/QEdSj/xct/8/uoGelAvzEa4lN2z7VzfSi/JhLsPccNO2/3QTvakQrhMf
csu229zhLve4zwMe8ojHPOEpz3jOi/DMhWcrPEPhuQj3erhfw70U5j7MTfh+
4ZzDuYVz4BWvicSNRKIQlWhEJwYxiUVs3uBN3iIOcYlHfBKQkEQkJglJSUZy
3iYFKUnFO7xLatKQlnS8x/t8QHpemZPN9KFiuD/5iDiux0EdRX0KhPmz/2vd
Ql8qkY2k9j2lk2kRrqf1G7owPFvEtX4oXGsdrZn0YThWG4T7T6/pfAqSwvo5
nU6bcD7+bsTYVsv9qByek3CPh8+37RMykJFMfMpnfM4XfElmspCVr/iab/iW
7/iebPzAj2QnBzn5iVzkJg95yUd+ClCQQhSmCEUpRnFKUJJSlKYMZSlHeSpQ
kUpUpgpVqUZ1alCTWtSmDnXDvWQ+tvn+/akS/u+QgXjGD+sYGlKIlMbO6wza
huto/bYuIbPl55pd64X7U7eH/xM6IHym3teqpLZ8WeeE/ckY7g3HNKAhjWhM
E5rSjOa0oCWtaE0b2tKO9nSgI53oTBe60o3u9KAnvehNH/rSj/4MYCCDGMwQ
hjKM4YxgJKMYzRjGMo7xTGAik5jMFKYyjenMYCazmM0c5jKP+SxgIYtYzBKW
sozlrGAlq1jNGtayjvVsYCOb2MwWtrKN7exgJ7vYzR72so/9HOAghzjMEY5y
jOOc4CSnOM0ZznKO81zgIpe4zBWuco3r3OAmt7jNHe5yj/s84CGPeMwTnvKM
57zgZ17yC7/yG7/zB3/yF3/zD//yH694TSSe+52oRCM6MYhJLGLzBm/yFnGI
Szzik4CEJCIxSUhKMpLzNilISSre4V1Sk4a0pOM93ucD0vMhH/Exn5CBjGTi
Uz7jc77gSzKThax8xdd8w7d8x/dk4wd+JDs5yMlP5CI3echLPvJTgIIUojBF
KEoxilOCkpSiNGUoSznKU4GKVKIyVahKNapTg5rUojZ1qEs96tOAhjSiMU1o
SjOa04KWtKI1bWhLO9rTgY50ojNd6Eo3utODnvSiN33oSz/6M4CBDGIwQxjK
MIYzgpGMYjRjGMs4xjOBiUxiMlOYyjSmM4OZzGI2c5jLPOazgIUsYjFLWMoy
lrOClaxiNWtYyzrWs4GNbGIzW9jKNrazg53sYjd72Ms+9nOAgxziMEc4yjGO
c4KTnOI0ZzjLOc5zgYtc4jJXuMo1rnODm9ziNne4yz3u84CHPOIxT3jKM57z
gp95yS/8ym/8zh/8yV/8zT/8y3+84jURvzNRiEo0ohODmMQidnh/De+c4T0y
vLuEd47wW0h8EpCQRCQO76vhnYVkJA/vueFz/bbt0IFUI0d4TwnHGz+iY2lE
YVIZu6AzaRfeT6zf0aVksfwiHK8p9H//lzgR
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV12W4FWUXBuAjSHd3SYgiiPnZIt3dIN1d0i3S3d0pnVKidHd3d7f0d78/
7ms975rZ+8yePTN7nQy1mpdu9l5ERESPKBERueJHRFRIEhHxMnFExCJakZes
/GJbbvKQl3zkpwAFKURhilCUYhSnBCUpRWnKUJZylA9/j4pUojJVqMqvVKM6
NahJLWpTh7rUoz4NaEgjGtOEpjSjOS1oSSta04bfaEs72tOBjnSiM13oSje6
04Oe/E4v/qA3fehLP/ozgIEMYjBDGMowhjOCkYxiNGMYyzjGM4GJTGIyU5jK
NKYzg5nMYjZzmMs8/mQ+C1jIIhazhKUsYzkrWMkq/mI1a1jLOtbzNxv4h3/Z
yCY2s4WtbGM7O9jJLnazh73sYz8HOMghDnOEoxzjOCc4ySlOc4aznOM8F7jI
JS5zhatc4zo3uMktbnOHu9zjPg94yCMe84SnPOM5//GCl7ziNW94yzsiEkRE
vEckIvM+UYhKNKITg5jEIjZxiEs84pOAhCQiMUlISjKSk4KUpCI1aUhLOtKT
gQ/ISCYyk4UPycpHfEw2PiE7OfiUnHzG53zBl1R0n79yXy+mNfn4iK9sq2Tb
a3kJbcjPx2E//aTskgdTg6/tX1nvjbyU3yhAtvBa/WTslodQk//Zv4reW3kZ
bSnIJ+G1+snZIw+lFt/Yv6reO3k57SjEH3pZOSNPJXt4L+sU7JWHUZuB1p9y
WZ7Dt97vV+sIVli3Z4T8NbfkwvSWP+KsPI1x8k88knOEY5BTsk+eoRZkuDxa
/Y57ch0GyTm5Is9TizNXnqTmZjXPwnegluXv8HrHV019j2WsDMeg5mcNHcI5
VG+rf6olWEcR6z7qx+E1nLOeHfpMl8erP/NYXqiWDuclfH41FfvlmWohRshj
1O+5L9cN37f8GVfDZ2GynIfn8veOubociVXWHSlKX+tsnA/niZx0sE7NAXkk
9fjB62voReYv604U47PwXnppOCiPoj4/2r+m3vvhHFp3pjifh9fqpeVQ+D5o
wE/2r6UXJZxD6y6U4At+tq22flTWWnelJF+Sy7Y6+tHCObbuRqlwj4TfQ9ty
k4e85CM/BShIIQpThKIUozglKEkpSlOGspSjPBXCvRnuwXBfhXslXP/hmg3X
RTjP4VyFzx8+Uzj2cIzUpR71aUBDGtGYJjSlGc1pQUta0Zo2/EZb2tGeDnSk
E53pQle60Z0e9Ax/17mJznrnpDulwzMhfCd66TgcriUa8ns4Rr0Y4Vq37hGu
Afkb7sjz1ZKUkfupn4TriQvh3lWLMlOeoObiSbgXwvcpp+eIPJZG9ArnQi8m
G6x7UjY8T8Kzw7be9KEv/ejPAAYyiMEMYSjDGM4IRjKK0YxhLOMYzwQmMonJ
TGEq05jODGYyi9nMYS7z+JP5LGAhi1jMEpayjOWsYCWr+IvVrGEt61jP32zg
H/5lI5vYzBa2so3t7GAnu9jNHvayj/0c4CCHOMwRjnKM45zgJKc4zRnOco7z
XOAil7jMFa5yjevc4Ca3uM0d7nKP+zzgIY94zBOe8ozn/McLXvKK17zhLe+I
SOhZSiQi8z5RiEo0ohODmMQiNnGISzzik4CEJCIxSUhKMpKTgpSkIjVpSEs6
0pOBD8hIJjKThQ/Jykd8TDY+ITs5+JScfMbnfMGXfMXX/I9v+Jbv+J4f+JGf
+Jlc/EJu8pCXfOSnAAUpRGGKUJRiFKcEJSlFacpQlnKUpwIVqURlqlCVX6lG
dWpQk1rUpg51qUd9GtCQRjSmCU1pRnNa0JJWtA77u59j8U94nlAu/KaH57Ze
Bo6G32sah5nD+nOuhd9Kpsh5+U9eopYLzwbahGNQY7Ocf22frhagl1ye78J8
Yr+2tKM9HehIJzrTha50ozs96Mnv9OIPetOHvvSjPwMYyCAGM4ShDGM4IxjJ
KEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zONP5rOAhSxiMUtYyjKWs4KV
rOIvVrOGtaxjPX+zgX/4l41sYjNb2Mo2trODnexiN3vYyz72c4CDHOIwRzjK
MY5zgpOc4jRnOMs5znOBi1ziMle4yjWuc4Ob3OI2d7jLPe7zgIc84jFPeMoz
nvMfL3jJK17zhre8IyKR5w6RiMz7RCEq0YhODGISi9jEIS7xiE8CEpKIxCQh
KclITgpSkorUpCEt6UhPBj4gI5nITBY+JCsf8THZ+ITs5OBTctLI9R+HjeE3
kwph1gtzmW2N9eOyKczLVAxzXJjBbGuiH4/NYSalUpjZwvyk9wHHwjxKkzCD
2b+pXny2hJmRymFmC/OEXkaOh998moa5zP7N9BKwNcwJVAlzXJgn9DJxQp5I
szCr2b+5XkK2WfenaqjW2bkozwqzXpgRrDNzMszoYZaQf+CB3Jyh8hdcD7NK
mHO8dwvrRGy3HhBmVPlb7sq/hp6cg0vyXLUYs8Pxqb+EeZen1ovC3BN64bmm
ZmEFp8LxqYXDfMrkcC7Vh+qCMDO71EqF+YsWesPUL7kRtof5yDG2tE7MDuuB
VCN3mIVs+5bv+J4f+JGf+Jlc/EJu8pCXfOSnAAUpRGGKUJRiFKcEJSlFacpQ
lnKUpwIVqURlqlCVX6lGdWpQk1rUpg51qUd9GtAwXKfhegzXXbiWwvURvvPw
3YTPTita04bfaEs72tOBjnSiM13oSje604Oe/E4v/qA3fehLP/ozgIEMYjBD
GMowhjOCkYxiNGMYyzjGM4GJTGIyU5jKNKYzg5nMYjZzmMs8/mQ+C1jIIhaz
hKUsYzkrWMkq/mI1a1jLOtbzNxv4h3/ZyCY2s4WtbGM7O9jJLnazh73sYz8H
OMghDnOEoxzjOCc4ySlOc4aznOM8F7jIJS5zhatc4zo3uMktbnOHu9zjPg94
yCMe84SnPOM5//GCl7ziNW94yzsi3CPvEYnIvE8UohKN6MQgJrGITRziEo/4
JCAhiUhMEpKSjOSkICWpSE0a0pKO9GTgAzKSicxkoZX7OQk75UFUJ0/4v0fv
Q06HeYeWDLf+ipvyQqbK+XghL1XLh3kqvM76/+d3JWo=
       "]]}, 
     {GrayLevel[0.5], LineBox[{838, 839, 837}], 
      LineBox[{2108, 2109, 2107}]}}, {{}, {}, {}, {}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["K", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(c\\), \
\\(2\\)]\\)-\\!\\(\\*SubscriptBox[\\(c\\), \\(1\\)]\\)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  LabelStyle->Directive[FontSize -> 8],
  Method->{"AxesInFront" -> True},
  PlotRange->{{0.001, 1}, {0, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.7328885269726667`*^9, 3.73288872909759*^9, 3.73288878327487*^9, {
   3.732888821303405*^9, 3.7328889239464445`*^9}, {3.7328889560217104`*^9, 
   3.732888971547852*^9}, 3.732889064495165*^9, {3.7328892366674757`*^9, 
   3.732889304903618*^9}, 3.732889340837726*^9, 3.7328893816895704`*^9, {
   3.7328894931419377`*^9, 3.732889535859518*^9}, 3.73288959246824*^9, {
   3.73288971695761*^9, 3.7328897521205053`*^9}, 3.7344381669209747`*^9, 
   3.7344413687225356`*^9, 3.740381461500539*^9, 3.7405753224575777`*^9, {
   3.740575357591031*^9, 3.7405753673209205`*^9}, 3.7406768368381834`*^9, 
   3.7407226784687777`*^9, 3.740722733929262*^9, 3.7407227990746045`*^9, 
   3.74074111178494*^9, 3.740801335707117*^9, {3.7408109996696887`*^9, 
   3.740811007201753*^9}, 3.740811043269839*^9, 3.740827436609543*^9, 
   3.765971383477934*^9, {3.765971459061708*^9, 3.7659714854231873`*^9}, {
   3.7659737888845863`*^9, 3.7659737983113685`*^9}, 3.7659738615362377`*^9, {
   3.765973904534252*^9, 3.7659739267288404`*^9}, {3.765974054488075*^9, 
   3.7659740642898536`*^9}}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Market-Shares", "Section",
 CellChangeTimes->{{3.6609772427701063`*^9, 3.660977245635023*^9}, {
   3.6953576318725967`*^9, 3.6953576323561993`*^9}, 3.7235333374468145`*^9, {
   3.7242473342897243`*^9, 3.7242473377307477`*^9}, {3.724247390075876*^9, 
   3.7242474036244593`*^9}, {3.7265552161009912`*^9, 
   3.7265552298439913`*^9}, {3.732889799276472*^9, 3.732889806527178*^9}, 
   3.7328898472823796`*^9, {3.7405754741090746`*^9, 3.7405754830549192`*^9}, {
   3.7406403195062027`*^9, 3.740640323315373*^9}, 3.740643969693086*^9, {
   3.740734470676487*^9, 3.740734478804489*^9}, 3.7407408443982964`*^9, {
   3.76467904112816*^9, 3.7646790436284637`*^9}, 3.7650181399932036`*^9, {
   3.766129474174981*^9, 3.766129474979788*^9}, 3.7664682161845984`*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"As", " ", "exaplined", " ", "the", " ", "text"}], ",", " ", 
   RowBox[{
    RowBox[{
    "we", " ", "consider", " ", "the", " ", "case", " ", "in", " ", "which", 
     " ", "constraint", " ", 
     RowBox[{"(", "2", ")"}], " ", "q2"}], "\[LessEqual]", " ", 
    RowBox[{"k", " ", "does", " ", "not", " ", 
     RowBox[{"bind", ".", " ", "This"}], " ", "requires", " ", "that", " ", 
     "s", " ", "is", " ", "large", " ", "enough", " ", "as", " ", "we", " ", 
     "will", " ", "show", " ", 
     RowBox[{"next", "."}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7270665559446087`*^9, 3.727066590466008*^9}, {
   3.739711883295823*^9, 3.73971188417418*^9}, {3.7397140380686827`*^9, 
   3.739714060052189*^9}, {3.7407354133718357`*^9, 3.7407354350294695`*^9}, {
   3.740735572690552*^9, 3.740735596759541*^9}, 3.765018259656026*^9, {
   3.7650815747370124`*^9, 3.7650815896072254`*^9}, {3.7661309726812563`*^9, 
   3.7661309758308735`*^9}, {3.766473217280429*^9, 3.766473217459956*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Recall", " ", "that", " ", "firm", " ", "2", " ", "here", " ", "resists",
      " ", "as", " ", "much", " ", "as", " ", "possible", " ", "the", " ", 
     "restraints", " ", "imposed", " ", "by", " ", "firm", " ", "1", " ", 
     "and", " ", "we", " ", "rule", " ", "out", " ", "any", " ", "collusive", 
     " ", "effect", " ", "of", " ", 
     RowBox[{"MS", ".", " ", "To"}], " ", "this", " ", "end"}], ",", " ", 
    RowBox[{
     RowBox[{
     "firm", " ", "2", " ", "prices", " ", "as", " ", "much", " ", "as", " ", 
      "aggresievly", " ", "for", " ", "the", " ", "quantity", " ", "off"}], 
     "-", "equil"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"i", ".", "e", ".", " ", "for"}], " ", "any", " ", "unit", " ", 
      "in", " ", "ecess", " ", "of", " ", 
      RowBox[{"s", "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s"}], ")"}]}], "q1", " ", "the", " ", "price", " ",
       "is", " ", "p2L"}], "=", 
     RowBox[{
      RowBox[{"c", ".", " ", "\[IndentingNewLine]", "As"}], " ", "for", " ", 
      "the", " ", "equilibrium", " ", "price", " ", "p2H"}]}], ",", " ", 
    RowBox[{
    "firm", " ", "2", " ", "grants", " ", "the", " ", "market", " ", "share", 
     " ", "as", " ", "explained", " ", "in", " ", "the", " ", 
     RowBox[{"text", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"s", "==", 
      RowBox[{"q1", "/", 
       RowBox[{"(", 
        RowBox[{"q1", "+", "q2"}], ")"}]}]}], "/.", "qNE"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BR2", "=", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{"%", ",", "p2"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7407354509801283`*^9, 3.7407354601121235`*^9}, {
  3.740736118523909*^9, 3.740736120046012*^9}, {3.76501826576867*^9, 
  3.7650182680585947`*^9}, {3.7661309820920877`*^9, 3.766131174149357*^9}, {
  3.7664732288674326`*^9, 3.7664732289462223`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "When", " ", "the", " ", "participation", " ", "constraint", " ", "does", 
    " ", "not", " ", "bind", " ", "price", " ", "p1L", " ", "maximizes", " ", 
    "the", " ", "profit", " ", "of", " ", "firm", " ", "1"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"P1", "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"tmp", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{"p2", "\[Equal]", "BR2"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p1", ",", "p2"}], "}"}]}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1MSnoConstr", "=", 
     RowBox[{"tmp", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2MSnoConstr", "=", 
     RowBox[{"tmp", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pMSnoConstr", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "->", "p1MSnoConstr"}], ",", 
       RowBox[{"p2", "->", "p2MSnoConstr"}]}], "}"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7646791360683856`*^9, 3.764679178756255*^9}, 
   3.765018289892125*^9, {3.765018371110818*^9, 3.7650184147321415`*^9}, {
   3.7655105985977135`*^9, 3.765510621307559*^9}, 3.766130913436327*^9, {
   3.766131163187649*^9, 3.766131167776357*^9}, {3.766131208623139*^9, 
   3.7661312095616245`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"p1", "\[Rule]", 
     FractionBox[
      RowBox[{"s", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "\[Gamma]"}], "+", 
       RowBox[{"s", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "\[Gamma]", "+", 
          SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}]]}], ",", 
    RowBox[{"p2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"s", " ", 
          RowBox[{"(", 
           RowBox[{"3", "+", "\[Gamma]"}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "\[Gamma]"}], "+", 
       RowBox[{"s", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "\[Gamma]", "+", 
          SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}]]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7646791366188507`*^9, 3.764679179133187*^9}, 
   3.765018297904688*^9, {3.765018386772911*^9, 3.765018415216807*^9}, 
   3.7654430755472393`*^9, {3.765510599182456*^9, 3.765510623128971*^9}, 
   3.7658570408657246`*^9, 3.7661296664964976`*^9, 3.766131213417544*^9, 
   3.766335057958041*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "When", " ", "instead", " ", "the", " ", "participation", " ", 
    "constraint", " ", "binds", " ", "the", " ", "prices", " ", "are", " ", 
    "deterined", " ", "as", " ", 
    RowBox[{"follows", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Ve2", " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Recall", " ", "that", " ", "we", " ", "are", " ", "considering", " ", 
      "here", " ", "the", " ", "equilibrium", " ", "in", " ", "which"}], ",", 
     " ", 
     RowBox[{"off", "-", "equilibrium"}], ",", " ", 
     RowBox[{
     "firm", " ", "2", " ", "prices", " ", "as", " ", "aggressively", " ", 
      "as", " ", "possible"}], ",", " ", 
     RowBox[{
      RowBox[{"i", ".", "e", ".", " ", "p2L"}], "=", "c"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"v", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"p2", " ", "q2"}]}], "/.", "qNE"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "%%"}], ",", "p1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.1"}], ",", 
       RowBox[{"s", "\[Rule]", "0.6"}], ",", 
       RowBox[{"k", "\[Rule]", "0.3"}], ",", 
       RowBox[{"p2", "\[Rule]", "0.5"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "the", " ", "right", " ", "solution", " ", "is", " ", "the", " ", "first",
      " ", "one"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"tmpconstr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p1", "==", 
          RowBox[{"%%", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{"p2", "==", "BR2"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p1", ",", "p2"}], "}"}]}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.1"}], ",", 
       RowBox[{"s", "\[Rule]", "0.6"}], ",", 
       RowBox[{"k", "\[Rule]", "0.3"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7270672427800083`*^9, 3.727067446000408*^9}, {
   3.7270718683080063`*^9, 3.7270719407076063`*^9}, {3.7270719779604063`*^9, 
   3.727072004293206*^9}, 3.727072440687606*^9, 3.733972165704808*^9, {
   3.7397147408516665`*^9, 3.7397147593598795`*^9}, {3.740735733426482*^9, 
   3.7407357560657644`*^9}, 3.7407357973799877`*^9, {3.7407358702278366`*^9, 
   3.7407358784844913`*^9}, {3.740739776963521*^9, 3.740739787711537*^9}, {
   3.764679394009706*^9, 3.764679426738204*^9}, {3.764679472899823*^9, 
   3.7646794778057356`*^9}, {3.7646795132937946`*^9, 
   3.7646795202861013`*^9}, {3.7650184321983705`*^9, 3.7650184330601025`*^9}, 
   3.7655109537067027`*^9, {3.765511468568955*^9, 3.7655114991785316`*^9}, {
   3.765625041413597*^9, 3.765625041994034*^9}, {3.7661296819531517`*^9, 
   3.766129684483345*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.727067300157008*^9, 3.7270673215330086`*^9}, {
   3.727067355899208*^9, 3.7270673686262083`*^9}, {3.727067420055208*^9, 
   3.7270674305590086`*^9}, {3.727071911754006*^9, 3.7270719415344057`*^9}, 
   3.727072004932806*^9, 3.7270724420604057`*^9, 3.7270944309671288`*^9, {
   3.72718070866546*^9, 3.727180730037122*^9}, 3.7272669650090265`*^9, 
   3.7337141913119*^9, 3.7338997121507845`*^9, 3.733921145601445*^9, 
   3.7340691347706804`*^9, 3.7397133042373753`*^9, 3.739714783142125*^9, 
   3.739782225678257*^9, 3.740735889737178*^9, 3.7407397886032047`*^9, 
   3.740741120870247*^9, 3.7407417709979267`*^9, 3.740801343244128*^9, 
   3.7408274434567194`*^9, 3.7646794851141634`*^9, 3.765018453179265*^9, 
   3.765443086408766*^9, {3.765624937849863*^9, 3.7656249488360806`*^9}, {
   3.7656250285353527`*^9, 3.765625043360735*^9}, 3.765857646012905*^9, 
   3.7661296885973344`*^9, 3.766335076247136*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "0.44265396424136705`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "1.4573460357586328`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.727067300157008*^9, 3.7270673215330086`*^9}, {
   3.727067355899208*^9, 3.7270673686262083`*^9}, {3.727067420055208*^9, 
   3.7270674305590086`*^9}, {3.727071911754006*^9, 3.7270719415344057`*^9}, 
   3.727072004932806*^9, 3.7270724420604057`*^9, 3.7270944309671288`*^9, {
   3.72718070866546*^9, 3.727180730037122*^9}, 3.7272669650090265`*^9, 
   3.7337141913119*^9, 3.7338997121507845`*^9, 3.733921145601445*^9, 
   3.7340691347706804`*^9, 3.7397133042373753`*^9, 3.739714783142125*^9, 
   3.739782225678257*^9, 3.740735889737178*^9, 3.7407397886032047`*^9, 
   3.740741120870247*^9, 3.7407417709979267`*^9, 3.740801343244128*^9, 
   3.7408274434567194`*^9, 3.7646794851141634`*^9, 3.765018453179265*^9, 
   3.765443086408766*^9, {3.765624937849863*^9, 3.7656249488360806`*^9}, {
   3.7656250285353527`*^9, 3.765625043360735*^9}, 3.765857646012905*^9, 
   3.7661296885973344`*^9, 3.7663350764964476`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"p1", "\[Rule]", 
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         SqrtBox[
          RowBox[{"k", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", 
             RowBox[{"2", " ", "c"}], "+", "k"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"s", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}], 
            "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}]}]], 
         " ", "\[Gamma]"}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}]], "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            RowBox[{"2", " ", "c"}], "+", "k"}], ")"}], " ", 
          SuperscriptBox["s", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"]}], 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}]]]}]}], ",", 
     RowBox[{"p2", "\[Rule]", 
      RowBox[{"1", "+", 
       FractionBox[
        SqrtBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            RowBox[{"2", " ", "c"}], "+", "k"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"s", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}], "2"],
           " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}]}]], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}]]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"p1", "\[Rule]", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{
         SqrtBox[
          RowBox[{"k", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", 
             RowBox[{"2", " ", "c"}], "+", "k"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"s", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}], 
            "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}]}]], 
         " ", "\[Gamma]"}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}]], "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            RowBox[{"2", " ", "c"}], "+", "k"}], ")"}], " ", 
          SuperscriptBox["s", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"]}], 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}]]]}]}], ",", 
     RowBox[{"p2", "\[Rule]", 
      RowBox[{"1", "-", 
       FractionBox[
        SqrtBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            RowBox[{"2", " ", "c"}], "+", "k"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"s", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}], "2"],
           " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}]}]], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}]]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.727067300157008*^9, 3.7270673215330086`*^9}, {
   3.727067355899208*^9, 3.7270673686262083`*^9}, {3.727067420055208*^9, 
   3.7270674305590086`*^9}, {3.727071911754006*^9, 3.7270719415344057`*^9}, 
   3.727072004932806*^9, 3.7270724420604057`*^9, 3.7270944309671288`*^9, {
   3.72718070866546*^9, 3.727180730037122*^9}, 3.7272669650090265`*^9, 
   3.7337141913119*^9, 3.7338997121507845`*^9, 3.733921145601445*^9, 
   3.7340691347706804`*^9, 3.7397133042373753`*^9, 3.739714783142125*^9, 
   3.739782225678257*^9, 3.740735889737178*^9, 3.7407397886032047`*^9, 
   3.740741120870247*^9, 3.7407417709979267`*^9, 3.740801343244128*^9, 
   3.7408274434567194`*^9, 3.7646794851141634`*^9, 3.765018453179265*^9, 
   3.765443086408766*^9, {3.765624937849863*^9, 3.7656249488360806`*^9}, {
   3.7656250285353527`*^9, 3.765625043360735*^9}, 3.765857646012905*^9, 
   3.7661296885973344`*^9, 3.76633508163969*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"p1", "\[Rule]", "0.3935557338985519`"}], ",", 
     RowBox[{"p2", "\[Rule]", "0.5641181837395842`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"p1", "\[Rule]", "0.48073209715063503`"}], ",", 
     RowBox[{"p2", "\[Rule]", "1.4358818162604159`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.727067300157008*^9, 3.7270673215330086`*^9}, {
   3.727067355899208*^9, 3.7270673686262083`*^9}, {3.727067420055208*^9, 
   3.7270674305590086`*^9}, {3.727071911754006*^9, 3.7270719415344057`*^9}, 
   3.727072004932806*^9, 3.7270724420604057`*^9, 3.7270944309671288`*^9, {
   3.72718070866546*^9, 3.727180730037122*^9}, 3.7272669650090265`*^9, 
   3.7337141913119*^9, 3.7338997121507845`*^9, 3.733921145601445*^9, 
   3.7340691347706804`*^9, 3.7397133042373753`*^9, 3.739714783142125*^9, 
   3.739782225678257*^9, 3.740735889737178*^9, 3.7407397886032047`*^9, 
   3.740741120870247*^9, 3.7407417709979267`*^9, 3.740801343244128*^9, 
   3.7408274434567194`*^9, 3.7646794851141634`*^9, 3.765018453179265*^9, 
   3.765443086408766*^9, {3.765624937849863*^9, 3.7656249488360806`*^9}, {
   3.7656250285353527`*^9, 3.765625043360735*^9}, 3.765857646012905*^9, 
   3.7661296885973344`*^9, 3.7663350816426816`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "need", " ", "some", " ", "simplifications", " ", "of", " ", 
    "these", " ", "prices"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"pMSConstr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "->", 
        RowBox[{"tmpconstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{"p2", "->", 
        RowBox[{"tmpconstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}]}], "}"}], "]"}]}],
    "\[IndentingNewLine]", 
   RowBox[{"pMSConstr", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"c", "\[Rule]", "0"}], ",", 
      RowBox[{"\[Gamma]", "\[Rule]", "0.1"}], ",", 
      RowBox[{"s", "\[Rule]", "0.6"}], ",", 
      RowBox[{"k", "\[Rule]", "0.3"}]}], "}"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7646795673912115`*^9, 3.7646796539936275`*^9}, {
  3.765018480369484*^9, 3.765018486373593*^9}, {3.7656245089943533`*^9, 
  3.7656245091888337`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SqrtBox[
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "+", 
           RowBox[{"2", " ", "c"}], "+", "k"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"s", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}], "2"], 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}]}]], " ",
        "\[Gamma]"}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}]], "-", 
     SqrtBox[
      FractionBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          RowBox[{"2", " ", "c"}], "+", "k"}], ")"}], " ", 
        SuperscriptBox["s", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"]}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}]]]}]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"1", "+", 
     FractionBox[
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          RowBox[{"2", " ", "c"}], "+", "k"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"s", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}], "2"], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}], ")"}]}]], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}]}]]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.764679571476242*^9, {3.7646796027007623`*^9, 3.764679657012618*^9}, {
   3.765018479267433*^9, 3.765018491064044*^9}, 3.765443120351163*^9, 
   3.765624512107103*^9, 3.7656250591532927`*^9, {3.7658576403350925`*^9, 
   3.765857657166103*^9}, 3.7661297150087166`*^9, 3.7663350875279765`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"p1", "\[Rule]", "0.3935557338985519`"}], ",", 
   RowBox[{"p2", "\[Rule]", "0.5641181837395842`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.764679571476242*^9, {3.7646796027007623`*^9, 3.764679657012618*^9}, {
   3.765018479267433*^9, 3.765018491064044*^9}, 3.765443120351163*^9, 
   3.765624512107103*^9, 3.7656250591532927`*^9, {3.7658576403350925`*^9, 
   3.765857657166103*^9}, 3.7661297150087166`*^9, 3.7663350875319705`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "boundary", " ", "for", " ", "the", " ", "two", " ", "price", 
    " ", 
    RowBox[{"cases", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"pMSnoConstr", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pMSConstr", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{"%%", "-", "%"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0", ",", "1.1"}], "}"}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<k\>\"", ",", "\"\<c\>\""}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"s", ",", "1"}], "}"}], ",", "0.5", ",", "1"}], "}"}]}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "In", " ", "the", " ", "black", " ", "area", " ", "the", " ", "price", 
     " ", "is", " ", "the", " ", "unconstrained", " ", 
     RowBox[{"(", 
      RowBox[{
      "it", " ", "can", " ", "be", " ", "similarly", " ", "determined", " ", 
       "comparing", " ", "the", " ", "associated", " ", 
       RowBox[{"retailer", "'"}], "s", " ", 
       RowBox[{"payoffs", "."}]}], ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.739768151967462*^9, 3.7397682336016035`*^9}, {
  3.739768278145017*^9, 3.739768293245175*^9}, {3.7407361459757376`*^9, 
  3.7407361576274767`*^9}, {3.7646799398434296`*^9, 3.7646799651876445`*^9}, {
  3.7655090790801525`*^9, 3.765509092748207*^9}, {3.766473509376059*^9, 
  3.766473524914482*^9}, {3.766475343759253*^9, 3.7664753723118725`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 1}, 0.5, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1525265$$ = 
    0, $CellContext`s$1525266$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1525265$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1525266$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ContourPlot[$CellContext`s$$ ((-1 + \
$CellContext`\[Gamma]$$^2)/(-$CellContext`\[Gamma]$$ + $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))) - (
        1 + ((-1 + ((
               2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
               2 $CellContext`c + $CellContext`k)) (
               1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
           Rational[
            1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
             2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + ((
             2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
        Rational[1, 2]), {$CellContext`k, 0, 1}, {$CellContext`c, 0, 1.1}, 
        Contours -> {0}, FrameLabel -> {"k", "c"}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 1}, 0.5, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {296., 303.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7397681771313834`*^9, 3.739768234349554*^9}, 
   3.739768304434946*^9, 3.7397822386297016`*^9, 3.740736159519041*^9, 
   3.7407401658977003`*^9, 3.740741130495097*^9, 3.7407417795533032`*^9, 
   3.7408013559248505`*^9, 3.7408274542363853`*^9, 3.764679965954589*^9, 
   3.7655090806598883`*^9, 3.7661297660361795`*^9, {3.7664753570576787`*^9, 
   3.766475372524304*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "show", " ", "that", " ", "for", " ", 
     "sufficiently", " ", "large", " ", "k", " ", "and", " ", "s"}], ",", " ", 
    RowBox[{"as", " ", "state", " ", "in", " ", "the", " ", "paper"}], ",", 
    " ", 
    RowBox[{"constraint", " ", 
     RowBox[{"(", "2", ")"}], " ", "does", " ", "not", " ", 
     RowBox[{"bind", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"k", "-", 
       RowBox[{"qNE", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "/.", "pMSConstr"}], "]"}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0.001", ",", "1.1"}], "}"}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"s", ",", "0.8"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
    "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"k", "-", 
       RowBox[{"qNE", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "/.", "pMSnoConstr"}], 
     "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0.001", ",", "1.1"}], "}"}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"s", ",", "0.8"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7407363994657307`*^9, 3.740736449085032*^9}, {
   3.740736495980157*^9, 3.740736496481311*^9}, 3.7407365505459566`*^9, {
   3.7407366567605705`*^9, 3.7407366572196674`*^9}, {3.7407368458631563`*^9, 
   3.7407368887510147`*^9}, {3.7407401903435535`*^9, 3.740740193398011*^9}, {
   3.765443371659173*^9, 3.7654434252596226`*^9}, 3.76544345913477*^9, {
   3.765443492062792*^9, 3.765443516089467*^9}, {3.7654436221666565`*^9, 
   3.76544362447945*^9}, 3.7661298100115857`*^9, {3.7661298491219172`*^9, 
   3.766129884555174*^9}, 3.766473500757105*^9, {3.7664753832925305`*^9, 
   3.7664754075536313`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 0.544, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 0.8}, 0, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1525357$$ = 
    0, $CellContext`s$1525358$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 0.8, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1525357$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1525358$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ContourPlot[$CellContext`k - (-1 + $CellContext`\[Gamma]$$^2)^(-1) ((-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
               2 $CellContext`c + $CellContext`k)) (
               1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
           Rational[
            1, 2] + $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$ (
          1 + ((-1 + ((
                 2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) (
                 1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
             Rational[
              1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
               2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
          Rational[1, 2])), {$CellContext`k, 0, 1}, {$CellContext`c, 0.001, 
         1.1}, Contours -> {0}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 0.8}, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {296., 303.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.74073639639565*^9, 3.740736460649085*^9}, 
   3.740736501014634*^9, 3.740736550957056*^9, 3.7407366579867687`*^9, 
   3.7407368583718233`*^9, 3.74073689571462*^9, {3.740740194241829*^9, 
   3.740740223340389*^9}, 3.740741131399669*^9, 3.7407417799477034`*^9, 
   3.7408013562537255`*^9, 3.740827454433945*^9, 3.7654433952566195`*^9, {
   3.765443433911496*^9, 3.7654434597990384`*^9}, {3.76544351231219*^9, 
   3.765443517123006*^9}, 3.765443625426367*^9, 3.766129811822729*^9, 
   3.7661298864730005`*^9, 3.7664754089598374`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 0.807, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 0.8}, 0, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1525386$$ = 
    0, $CellContext`s$1525387$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 0.8, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1525386$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1525387$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ContourPlot[(-$CellContext`\[Gamma]$$ + $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))^(-1) (
         1 - $CellContext`k $CellContext`\[Gamma]$$ + $CellContext`s$$ (-1 + \
$CellContext`k (-2 + $CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))), \
{$CellContext`k, 0, 1}, {$CellContext`c, 0.001, 1.1}, Contours -> {0}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 0.8}, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {296., 303.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.74073639639565*^9, 3.740736460649085*^9}, 
   3.740736501014634*^9, 3.740736550957056*^9, 3.7407366579867687`*^9, 
   3.7407368583718233`*^9, 3.74073689571462*^9, {3.740740194241829*^9, 
   3.740740223340389*^9}, 3.740741131399669*^9, 3.7407417799477034`*^9, 
   3.7408013562537255`*^9, 3.740827454433945*^9, 3.7654433952566195`*^9, {
   3.765443433911496*^9, 3.7654434597990384`*^9}, {3.76544351231219*^9, 
   3.765443517123006*^9}, 3.765443625426367*^9, 3.766129811822729*^9, 
   3.7661298864730005`*^9, 3.7664754090306845`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
    "This", " ", "shows", " ", "how", " ", "to", " ", "take", " ", "large", 
     " ", "s", " ", "and", " ", "k", " ", "so", " ", "that", " ", 
     "constraint", " ", "q2"}], "\[LessEqual]", " ", 
    RowBox[{"K", " ", "does", " ", "not", " ", "bind"}]}], ",", " ", 
   RowBox[{
   "both", " ", "when", " ", "the", " ", "prices", " ", "are", " ", 
    "constraint", " ", "or", " ", "not", " ", 
    RowBox[{"constrained", ".", " ", "However"}]}], ",", " ", 
   RowBox[{
    RowBox[{
    "one", " ", "still", " ", "has", " ", "to", " ", "consider", " ", "that", 
     " ", "since", " ", "the", " ", "benchamrk", " ", "for", " ", "welfare", 
     " ", "comparison", " ", "is", " ", "still", " ", "the", " ", 
     "Bertrand"}], "-", 
    RowBox[{
    "Nash", " ", "equilibrium", " ", "with", " ", "linear", " ", 
     "pricing"}]}], ",", " ", 
   RowBox[{
   "we", " ", "also", " ", "need", " ", "that", " ", "there", " ", "are", " ",
     "no", " ", "mixed", " ", "strategies", " ", "in", " ", "that", " ", 
    "case"}], ",", " ", 
   RowBox[{
    RowBox[{"which", " ", "requires", " ", "c"}], ">", "cmix"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.740736926590267*^9, 3.740736948095707*^9}, {
   3.7407370013975143`*^9, 3.740737010447073*^9}, 3.74073730879517*^9, {
   3.766493581222962*^9, 3.766493638454856*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Now", " ", "we", " ", "identify", " ", "the", " ", "anticompetitive", " ", 
   RowBox[{"areas", ":"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.727072355683206*^9, 3.727072372749606*^9}, {
  3.7407386128076515`*^9, 3.740738622302133*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Definitions", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ProfitBMSNoConstr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{"p2", " ", "q2"}]}], "/.", "qNE"}], "/.", "pMSnoConstr"}], 
     "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"ProfitBMSConstr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{"p2", " ", "q2"}]}], "/.", "qNE"}], "/.", "pMSConstr"}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7270727537640057`*^9, 3.727072827177606*^9}, 
   3.727074666859406*^9, {3.74073804130647*^9, 3.7407380428397803`*^9}, {
   3.7407386318161*^9, 3.7407386334373627`*^9}, {3.7646800356163454`*^9, 
   3.7646800426057043`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "s", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "s", "+", "\[Gamma]", "-", 
      RowBox[{"s", " ", "\[Gamma]"}]}], ")"}]}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "-", 
      RowBox[{"s", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Gamma]", "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}], ")"}], 
    "2"]}]]], "Output",
 CellChangeTimes->{
  3.727072768833606*^9, {3.727072801734006*^9, 3.7270728277392063`*^9}, 
   3.7270944415091286`*^9, 3.727184913822763*^9, 3.727267043738516*^9, 
   3.7397654895159073`*^9, 3.739782250324833*^9, 3.7407380526895103`*^9, 
   3.740740265891304*^9, 3.7407411330006423`*^9, 3.7407417813745737`*^9, 
   3.740801357875037*^9, 3.74082745560603*^9, 3.7646800451837645`*^9, 
   3.7654437331262703`*^9, 3.7658577842461185`*^9, 3.766129917871007*^9, 
   3.766473338594904*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.727072768833606*^9, {3.727072801734006*^9, 3.7270728277392063`*^9}, 
   3.7270944415091286`*^9, 3.727184913822763*^9, 3.727267043738516*^9, 
   3.7397654895159073`*^9, 3.739782250324833*^9, 3.7407380526895103`*^9, 
   3.740740265891304*^9, 3.7407411330006423`*^9, 3.7407417813745737`*^9, 
   3.740801357875037*^9, 3.74082745560603*^9, 3.7646800451837645`*^9, 
   3.7654437331262703`*^9, 3.7658577842461185`*^9, 3.766129917871007*^9, 
   3.7664733386916933`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"In", " ", "the", " ", "constrained", " ", "case"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", "-", 
       RowBox[{"p1", " ", "q1"}], "-", 
       RowBox[{"p2", " ", "q2"}]}], "/.", "qNE"}], "/.", "pNE"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DWelfConstr", "=", 
     RowBox[{"ProfitBMSConstr", "-", "%"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"ContourPlot", "[", 
       RowBox[{"%", ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"c", ",", "0", ",", "1.1"}], "}"}], ",", 
        RowBox[{"Contours", "\[Rule]", 
         RowBox[{"{", "0", "}"}]}]}], "]"}], "\[IndentingNewLine]", "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"s", ",", "1"}], "}"}], ",", "0.5", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.7407384560174785`*^9, {3.7407385553699336`*^9, 3.7407385992539196`*^9}, {
   3.740738637390459*^9, 3.740738651471959*^9}, {3.7646801265871887`*^9, 
   3.7646801700190153`*^9}, 3.764680220472188*^9, {3.765443757916869*^9, 
   3.7654437608015547`*^9}, {3.7655086583726788`*^9, 3.76550866803272*^9}, 
   3.7661299319482145`*^9, {3.7664754229205084`*^9, 3.766475432099934*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 1}, 0.5, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1525495$$ = 
    0, $CellContext`s$1525496$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1525495$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1525496$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ContourPlot[(Rational[-1, 2] $CellContext`k) (-2 + 
           2 $CellContext`c + $CellContext`k) - (-1 + \
$CellContext`\[Gamma]$$^2)^(-1) (-1 + $CellContext`\[Gamma]$$ - \
($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
           2 $CellContext`c + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + \
$CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (((-4 + $CellContext`\[Gamma]$$^2)^(-1)/(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)) (-1 + $CellContext`\
\[Gamma]$$ - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
            2 $CellContext`c + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + \
$CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) - (-1 + $CellContext`\[Gamma]$$^2)^(-1) (-1 + \
$CellContext`\[Gamma]$$ + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 - 
            2 $CellContext`c + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\
\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\
\[Gamma]$$ + $CellContext`\[Gamma]$$^2)) + (((-4 + \
$CellContext`\[Gamma]$$^2)^(-1)/(-1 + $CellContext`\[Gamma]$$^2)) (-2 - 
            2 $CellContext`c + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) (-1 + $CellContext`\[Gamma]$$ + (-4 + \
$CellContext`\[Gamma]$$^2)^(-1) (-2 - 
             2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (($CellContext`\[Gamma]$$ (-1 + $CellContext`\
\[Gamma]$$^2)^(-2)) (-1 + $CellContext`\[Gamma]$$ - \
($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
             2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))) (-1 + $CellContext`\[Gamma]$$ + (-4 + \
$CellContext`\[Gamma]$$^2)^(-1) (-2 - 
             2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + 
         Rational[
           1, 2] ((-1 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + $CellContext`\
\[Gamma]$$ - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
               2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))^2 + (-1 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + \
$CellContext`\[Gamma]$$ + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 - 
                2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))^2), {$CellContext`k, 0, 1}, {$CellContext`c, 0, 
          1.1}, Contours -> {0}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 1}, 0.5, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {296., 303.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7407384583154697`*^9, {3.7407385645844307`*^9, 3.7407385999242964`*^9}, 
   3.740740272383342*^9, 3.74074113335598*^9, 3.740741781560068*^9, 
   3.740801358092615*^9, 3.7408274557624435`*^9, {3.7646801440983143`*^9, 
   3.764680170656311*^9}, 3.764680220978772*^9, {3.765443748410239*^9, 
   3.765443761077772*^9}, 3.7655086712859993`*^9, 3.7658577977779207`*^9, 
   3.766129937091484*^9, 3.766473587769339*^9, 3.766475432304387*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"In", " ", "the", " ", "unconstrained", " ", "case"}], ",", " ", 
    RowBox[{
    "in", " ", "the", " ", "relevant", " ", "range", " ", "the", " ", 
     "effect", " ", "of", " ", "MS", " ", "is", " ", "always", " ", 
     "negative", " ", "on", " ", "welfare", " ", "as", " ", 
     RowBox[{"expected", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", "-", 
       RowBox[{"p1", " ", "q1"}], "-", 
       RowBox[{"p2", " ", "q2"}]}], "/.", "qNE"}], "/.", "pNE"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DweflNoConstr", "=", 
     RowBox[{"ProfitBMSNoConstr", "-", "%"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"ContourPlot", "[", 
       RowBox[{"%", ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"c", ",", "0", ",", "1.1"}], "}"}], ",", 
        RowBox[{"Contours", "\[Rule]", 
         RowBox[{"{", "0", "}"}]}]}], "]"}], "\[IndentingNewLine]", "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"s", ",", "1"}], "}"}], ",", "0.5", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.739770197717991*^9, 3.739770206241659*^9}, {
  3.7407381533329096`*^9, 3.7407382786948705`*^9}, {3.7407384234161267`*^9, 
  3.740738426975194*^9}, {3.74073866016156*^9, 3.74073868436857*^9}, {
  3.740739187598956*^9, 3.740739220618596*^9}, {3.764680189271556*^9, 
  3.7646801917708597`*^9}, {3.765443770479495*^9, 3.7654437734734716`*^9}, {
  3.7655086773448973`*^9, 3.7655086834353466`*^9}, {3.765508794938912*^9, 
  3.7655088123006563`*^9}, {3.766475440444644*^9, 3.7664754511489773`*^9}, {
  3.7664936765598927`*^9, 3.766493682026303*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 1}, 0.5, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1525582$$ = 
    0, $CellContext`s$1525583$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1525582$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1525583$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ContourPlot[(
           Rational[1, 2] (
            1 + (2 $CellContext`s$$) (-1 + $CellContext`s$$ + $CellContext`\
\[Gamma]$$ - $CellContext`s$$ $CellContext`\[Gamma]$$))) ($CellContext`\
\[Gamma]$$ - $CellContext`s$$ (-2 + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2))^(-2) - (-1 + $CellContext`\[Gamma]$$^2)^(-1) (-1 + \
$CellContext`\[Gamma]$$ - ($CellContext`\[Gamma]$$/(-4 + \
$CellContext`\[Gamma]$$^2)) (-2 - 
           2 $CellContext`c + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + \
$CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (((-4 + $CellContext`\[Gamma]$$^2)^(-1)/(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)) (-1 + $CellContext`\
\[Gamma]$$ - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
            2 $CellContext`c + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + \
$CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) - (-1 + $CellContext`\[Gamma]$$^2)^(-1) (-1 + \
$CellContext`\[Gamma]$$ + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 - 
            2 $CellContext`c + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\
\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\
\[Gamma]$$ + $CellContext`\[Gamma]$$^2)) + (((-4 + \
$CellContext`\[Gamma]$$^2)^(-1)/(-1 + $CellContext`\[Gamma]$$^2)) (-2 - 
            2 $CellContext`c + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) (-1 + $CellContext`\[Gamma]$$ + (-4 + \
$CellContext`\[Gamma]$$^2)^(-1) (-2 - 
             2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (($CellContext`\[Gamma]$$ (-1 + $CellContext`\
\[Gamma]$$^2)^(-2)) (-1 + $CellContext`\[Gamma]$$ - \
($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
             2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))) (-1 + $CellContext`\[Gamma]$$ + (-4 + \
$CellContext`\[Gamma]$$^2)^(-1) (-2 - 
             2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + 
         Rational[
           1, 2] ((-1 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + $CellContext`\
\[Gamma]$$ - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
               2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))^2 + (-1 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + \
$CellContext`\[Gamma]$$ + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 - 
                2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))^2), {$CellContext`k, 0, 1}, {$CellContext`c, 0, 
          1.1}, Contours -> {0}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 1}, 0.5, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {296., 303.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.739770206973604*^9, 3.7397822505163116`*^9, {3.740738150119811*^9, 
   3.7407381537181077`*^9}, {3.740738242384803*^9, 3.7407382642040377`*^9}, 
   3.7407384277024307`*^9, {3.7407386739561615`*^9, 3.740738685091138*^9}, 
   3.7407392212333016`*^9, 3.740741134320857*^9, 3.7407417818798823`*^9, 
   3.740801358370386*^9, 3.7408274559369073`*^9, 3.7646801924929857`*^9, 
   3.7654437737178116`*^9, 3.765508685466181*^9, 3.7658578061415467`*^9, 
   3.7664735941732235`*^9, 3.7664754515868053`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Welfare", " ", 
    RowBox[{"frontier", ":", " ", 
     RowBox[{
      RowBox[{
      "in", " ", "the", " ", "constrained", " ", "case", " ", "the", " ", 
       "welfare", " ", "frontier", " ", "is", " ", "the", " ", "same", " ", 
       "as", " ", "with", " ", "exclusivity", " ", "as", " ", "the", " ", 
       "retailer", " ", "in", " ", "any", " ", "case", " ", "gets", " ", 
       "the", " ", "outside"}], "-", 
      RowBox[{
      "option", " ", "with", " ", "firm", " ", "and", " ", "this", " ", 
       "does", " ", "not", " ", "depend", " ", "on", " ", "s"}]}]}]}], "*)"}],
   "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"DWelfConstr", "\[GreaterEqual]", "0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"pMSnoConstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}], "-", 
        RowBox[{"pMSConstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "\[GreaterEqual]", "0"}]}],
      "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"RegionPlot", "[", 
       RowBox[{"%", ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"c", ",", "0", ",", "1.1"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"s", ",", "1"}], "}"}], ",", "0.5", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.727072839688806*^9, 3.727072840234806*^9}, {
   3.727072940043606*^9, 3.727073021709606*^9}, {3.727074951278606*^9, 
   3.727074954679406*^9}, {3.7271849278954744`*^9, 3.7271849619342985`*^9}, 
   3.727267056594756*^9, {3.739766007349083*^9, 3.7397660408251095`*^9}, {
   3.7397660824769225`*^9, 3.7397660895055695`*^9}, {3.739766901580284*^9, 
   3.739766911792443*^9}, 3.7397678310428376`*^9, {3.7397698191883388`*^9, 
   3.7397698262932267`*^9}, {3.739769932947875*^9, 3.739769974876402*^9}, {
   3.7397704581656227`*^9, 3.739770470096352*^9}, {3.739775061535418*^9, 
   3.739775107593906*^9}, {3.7397752190402765`*^9, 3.739775233161841*^9}, {
   3.740738915043605*^9, 3.740738923981513*^9}, {3.740739083805358*^9, 
   3.740739167286271*^9}, {3.7407392281956873`*^9, 3.740739228937743*^9}, {
   3.7407392962380705`*^9, 3.740739297027643*^9}, {3.765504522113146*^9, 
   3.765504526803792*^9}, {3.7655087305377407`*^9, 3.7655087583013372`*^9}, {
   3.76550882027422*^9, 3.7655088571177316`*^9}, {3.765508887351494*^9, 
   3.765508887504174*^9}, {3.765508920751269*^9, 3.765508921183628*^9}, 
   3.765508960200986*^9, 3.765508993607547*^9, {3.7661299779631634`*^9, 
   3.7661300167603736`*^9}, 3.7664736184014344`*^9, {3.76647547309629*^9, 
   3.766475485502296*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.904, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 1}, 0.5, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1525669$$ = 
    0, $CellContext`s$1525670$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1525669$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1525670$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        RegionPlot[{(Rational[-1, 2] $CellContext`k) (-2 + 
             2 $CellContext`c + $CellContext`k) - (-1 + \
$CellContext`\[Gamma]$$^2)^(-1) (-1 + $CellContext`\[Gamma]$$ - \
($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
             2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (((-4 + $CellContext`\[Gamma]$$^2)^(-1)/(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)) (-1 + $CellContext`\
\[Gamma]$$ - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
              2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) - (-1 + $CellContext`\[Gamma]$$^2)^(-1) (-1 + \
$CellContext`\[Gamma]$$ + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 - 
              2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (((-4 + $CellContext`\[Gamma]$$^2)^(-1)/(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 - 
              2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2)) (-1 + $CellContext`\[Gamma]$$ + (-4 + \
$CellContext`\[Gamma]$$^2)^(-1) (-2 - 
               2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (($CellContext`\[Gamma]$$ (-1 + $CellContext`\
\[Gamma]$$^2)^(-2)) (-1 + $CellContext`\[Gamma]$$ - \
($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
               2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))) (-1 + $CellContext`\[Gamma]$$ + (-4 + \
$CellContext`\[Gamma]$$^2)^(-1) (-2 - 
               2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + 
           Rational[
             1, 2] ((-1 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + $CellContext`\
\[Gamma]$$ - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
                 2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))^2 + (-1 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + \
$CellContext`\[Gamma]$$ + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 - 
                  2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))^2) >= 
          0, -1 - ((-1 + ((
                 2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) (
                 1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
             Rational[
              1, 2]) $CellContext`\[Gamma]$$ + (((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
            Rational[
             1, 2] + $CellContext`s$$ ((-1 + \
$CellContext`\[Gamma]$$^2)/(-$CellContext`\[Gamma]$$ + $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))) >= 0}, {$CellContext`k,
           0, 1}, {$CellContext`c, 0, 1.1}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 1}, 0.5, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {296., 303.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7270729640208063`*^9, 3.727072995220806*^9, 3.727073042660406*^9, 
   3.7270749787970057`*^9, 3.727094445128329*^9, {3.7271849459522305`*^9, 
   3.7271849676673183`*^9}, 3.727267062385581*^9, {3.7397660036733065`*^9, 
   3.7397660418428197`*^9}, 3.7397669171958466`*^9, 3.7397678326781907`*^9, 
   3.7397698273630757`*^9, 3.7397699333920455`*^9, 3.7397699750979886`*^9, 
   3.7397704751538076`*^9, 3.739775233815573*^9, 3.7397822561453147`*^9, {
   3.740739084248004*^9, 3.7407390974075065`*^9}, {3.740739129604438*^9, 
   3.7407391677693377`*^9}, 3.7407392296893167`*^9, 3.7407392975609365`*^9, 
   3.740740299376479*^9, 3.7407411350855355`*^9, 3.740741782447055*^9, 
   3.740801359032114*^9, 3.7408274562627735`*^9, {3.765508859111925*^9, 
   3.765508887991995*^9}, 3.7655089215177317`*^9, 3.7655089610985537`*^9, 
   3.7655089946806574`*^9, 3.7658578162485094`*^9, 3.766475485689722*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Hence", " ", "in", " ", "the", " ", "red", " ", "area", " ", "the", " ", 
    "constrained", " ", "price", " ", "prevails", " ", "and", " ", "the", " ",
     "effect", " ", "on", " ", "welfare", " ", "is", " ", "positive", " ", 
    "in", " ", "the", " ", "blue", " ", 
    RowBox[{"area", ".", " ", "Outside"}], " ", "the", " ", "red", " ", 
    "area", " ", "the", " ", "unconstrained", " ", "price", " ", "occurs", 
    " ", "and", " ", "the", " ", "effect", " ", "is", " ", "negative", " ", 
    "as", " ", "seen", " ", 
    RowBox[{"above", ".", "\[IndentingNewLine]", "As"}], " ", "it", " ", 
    "can", " ", "be", " ", "seen", " ", "as", " ", "s"}], "\[Rule]", 
   RowBox[{
   "0.5", " ", "the", " ", "two", " ", "boundaries", " ", "converge", " ", 
    "to", " ", "the", " ", 
    RowBox[{"same", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.765509197403701*^9, 3.7655092769588675`*^9}, {
   3.7655093199242325`*^9, 3.7655093457174873`*^9}, 3.7655096124180408`*^9, {
   3.766475510644047*^9, 3.766475514308032*^9}, {3.7664756545209885`*^9, 
   3.766475729095465*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Now", " ", "we", " ", "move", " ", "to", " ", "the", " ", "test"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.740739324050331*^9, 3.7407393318705115`*^9}, {
  3.766131313768858*^9, 3.7661313139254*^9}, {3.766467709410263*^9, 
  3.766467709595776*^9}, {3.7664736443161077`*^9, 3.7664736444607267`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "first", " ", "determine", " ", "the", " ", "price", " ", "p1H",
     " ", "when", " ", "the", " ", "equilibrium", " ", "prices", " ", "are", 
    " ", "not", " ", 
    RowBox[{"constrained", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"qNE", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "/.", "pMSnoConstr"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"v", "-", 
         RowBox[{"p1", " ", "q1"}], "-", 
         RowBox[{"p2H", " ", "%"}], "-", 
         RowBox[{"p2L", 
          RowBox[{"(", 
           RowBox[{"q2", "-", " ", "%"}], ")"}]}]}], "/.", 
        RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
       RowBox[{"p2L", "\[Rule]", "c"}]}], "/.", 
      RowBox[{"p2H", "->", 
       RowBox[{"pMSnoConstr", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], "}"}], ",", 
       RowBox[{"{", "q1", "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1tmp", "=", 
     RowBox[{"%", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"OutsideMSNoConstr", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"%%%", "/.", 
        RowBox[{"q1", "->", "q1tmp"}]}], "/.", 
       RowBox[{"q2", "\[Rule]", "k"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ProfitBMSNoConstr", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "%%"}], ",", "p1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.9"}], ",", 
       RowBox[{"s", "\[Rule]", "0.9"}], ",", 
       RowBox[{"k", "\[Rule]", "0.4"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1HMonkbindMSnoConstr", "=", 
     RowBox[{"%%", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.9"}], ",", 
       RowBox[{"s", "\[Rule]", "0.9"}], ",", 
       RowBox[{"k", "\[Rule]", "0.4"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.765862467042183*^9, 3.765862492230204*^9}, {
  3.765862538770129*^9, 3.7658626449433804`*^9}, {3.7658626939734077`*^9, 
  3.7658627418553715`*^9}, {3.7658657970227795`*^9, 3.7658657998133144`*^9}, {
  3.76637717562294*^9, 3.7663771822900877`*^9}, {3.7664669910689125`*^9, 
  3.7664670218735065`*^9}, {3.7664671002308683`*^9, 3.7664671400373836`*^9}, {
  3.766467177876198*^9, 3.766467229498069*^9}, {3.7664673089595327`*^9, 
  3.7664674293394947`*^9}, {3.766467718309457*^9, 3.766467718907856*^9}, {
  3.7664727537834673`*^9, 3.766472921892762*^9}, {3.7664729573728485`*^9, 
  3.7664729872190084`*^9}, {3.7664738981919317`*^9, 3.7664739011659775`*^9}, {
  3.766473944917937*^9, 3.7664739545411935`*^9}, {3.7664739957718973`*^9, 
  3.766474003485265*^9}, {3.7664740563628125`*^9, 3.766474069778923*^9}, {
  3.766475893109705*^9, 3.766475900525865*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "0.28535668441407386`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "0.9946433155859261`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7658627476527367`*^9, 3.765865837189345*^9, 3.766467030286976*^9, 
   3.766467133290433*^9, {3.7664672082649183`*^9, 3.7664672367556534`*^9}, {
   3.7664673187822266`*^9, 3.7664674363118706`*^9}, {3.7664727665403423`*^9, 
   3.766472939133643*^9}, 3.7664739785160604`*^9, {3.766474063199525*^9, 
   3.7664740767672377`*^9}, 3.7664757847525697`*^9, 3.766475907207991*^9}],

Cell[BoxData["0.28535668441407386`"], "Output",
 CellChangeTimes->{
  3.7658627476527367`*^9, 3.765865837189345*^9, 3.766467030286976*^9, 
   3.766467133290433*^9, {3.7664672082649183`*^9, 3.7664672367556534`*^9}, {
   3.7664673187822266`*^9, 3.7664674363118706`*^9}, {3.7664727665403423`*^9, 
   3.766472939133643*^9}, 3.7664739785160604`*^9, {3.766474063199525*^9, 
   3.7664740767672377`*^9}, 3.7664757847525697`*^9, 3.766475907212019*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ProfitBMSNoConstr", ";"}], "\[IndentingNewLine]", 
 RowBox[{"OutsideMSNoConstr", ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"%", ",", "%%"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"p1", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.9"}], "}"}], ",", "0", ",", "1"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", "1"}], "}"}], ",", "0.5", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7664752282213664`*^9, 3.7664752908179092`*^9}, {
  3.766475913440318*^9, 3.7664759137186007`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, $CellContext`k$$ = 
    0.451, $CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.9, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0, 1}, {{
       Hold[$CellContext`\[Gamma]$$], 0.9}, 0, 1}, {{
       Hold[$CellContext`s$$], 1}, 0.5, 1}, {
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {450., {136., 144.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`k$1570883$$ = 0, $CellContext`\[Gamma]$1570884$$ = 
    0, $CellContext`s$1570885$$ = 0, $CellContext`c$1570886$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0, $CellContext`k$$ = 
        0, $CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.9}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$1570883$$, 0], 
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1570884$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1570885$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$1570886$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[-1, 2] $CellContext`k$$^2 + (
           Rational[
            1, 2] (-1 + $CellContext`p1 - $CellContext`k$$ $CellContext`\
\[Gamma]$$)) (-1 + $CellContext`p1 + $CellContext`k$$ \
$CellContext`\[Gamma]$$) + $CellContext`k$$ (
           1 - $CellContext`c$$ + $CellContext`\[Gamma]$$ (-1 + \
$CellContext`p1 + $CellContext`k$$ $CellContext`\[Gamma]$$)) + ((-1 + \
$CellContext`s$$) ($CellContext`\[Gamma]$$ - $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))^(-2)) (-1 + \
$CellContext`\[Gamma]$$ - $CellContext`c$$ $CellContext`\[Gamma]$$ + \
($CellContext`s$$ (-1 + $CellContext`\[Gamma]$$)) (-3 - \
$CellContext`\[Gamma]$$ + $CellContext`c$$ (2 + $CellContext`\[Gamma]$$))), (
          Rational[1, 2] (
           1 + (2 $CellContext`s$$) (-1 + $CellContext`s$$ + $CellContext`\
\[Gamma]$$ - $CellContext`s$$ $CellContext`\[Gamma]$$))) ($CellContext`\
\[Gamma]$$ - $CellContext`s$$ (-2 + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2))^(-2)}, {$CellContext`p1, 0, 1}], 
      "Specifications" :> {{$CellContext`k$$, 0, 
         1}, {{$CellContext`\[Gamma]$$, 0.9}, 0, 1}, {{$CellContext`s$$, 1}, 
         0.5, 1}, {$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {246., 253.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.7664752069462395`*^9, 3.766475291154011*^9, 
  3.7664759159137363`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Checking", " ", "in", " ", "the", " ", "case", " ", "not", " ", 
     "constrained", " ", "that", " ", "q2", " ", "is", " ", "indeed"}], " ", 
    "=", 
    RowBox[{
    "k", " ", "and", " ", "not", " ", "a", " ", "lower", " ", "quantity"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"qNE", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "/.", "pMSnoConstr"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{"p2H", " ", "%"}], "-", 
        RowBox[{"p2L", 
         RowBox[{"(", 
          RowBox[{"q2", "-", " ", "%"}], ")"}]}]}], "/.", 
       RowBox[{"p2L", "\[Rule]", "c"}]}], "/.", 
      RowBox[{"p2H", "->", 
       RowBox[{"pMSnoConstr", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"qMStmp", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"%", ",", "q2"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"qMStmp", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], "/.", 
     RowBox[{"p1", "->", "p1HMonkbindMSnoConstr"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"%", "\[GreaterEqual]", "  ", "k"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"pMSnoConstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}], "-", 
        RowBox[{"pMSConstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "\[GreaterEqual]", "0"}]}],
      "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"RegionPlot", "[", 
       RowBox[{"%", ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"c", ",", "0", ",", "1.1"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"s", ",", "1"}], "}"}], ",", "0.5", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.766474268908245*^9, 3.766474288190654*^9}, {
  3.7664743211814003`*^9, 3.766474351992976*^9}, {3.7664744077009525`*^9, 
  3.766474441460643*^9}, {3.7664745085392017`*^9, 3.76647453304764*^9}, {
  3.7664745660373907`*^9, 3.766474592759905*^9}, {3.7664746962370944`*^9, 
  3.766474699593116*^9}, {3.76647478928618*^9, 3.7664748009250455`*^9}, {
  3.7664912933571625`*^9, 3.766491307420542*^9}, {3.766491454710529*^9, 
  3.7664914902135553`*^9}, {3.766491523438677*^9, 3.7664915237618103`*^9}, {
  3.7664916116397295`*^9, 3.766491612934266*^9}, {3.7664916657918854`*^9, 
  3.7664916848020144`*^9}, {3.766491743165886*^9, 3.766491766235173*^9}, {
  3.7664919361596155`*^9, 3.766491940768283*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 
    0.8260000000000001, $CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 1}, 0.5, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1651058$$ = 
    0, $CellContext`s$1651059$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1651058$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1651059$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        RegionPlot[{(-1 + $CellContext`\[Gamma]$$^2)^(-1) (-1 + \
$CellContext`c + $CellContext`\[Gamma]$$ + ($CellContext`\[Gamma]$$ \
($CellContext`\[Gamma]$$ - $CellContext`s$$ (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))^(-2)) (-$CellContext`\[Gamma]$$^2 + \
$CellContext`k $CellContext`\[Gamma]$$^3 - (((
                 2 $CellContext`s$$) $CellContext`\[Gamma]$$) (-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + ($CellContext`s$$^2 (-1 + $CellContext`k \
$CellContext`\[Gamma]$$)) (-2 + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2)^2 + (($CellContext`\[Gamma]$$ - $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))^2 ((-1 + $CellContext`k \
$CellContext`\[Gamma]$$) (
                   1 + (-2 + 
                    2 $CellContext`c + $CellContext`k) \
$CellContext`\[Gamma]$$) - (
                  2 $CellContext`s$$) ((-1 + $CellContext`\[Gamma]$$) (
                    3 + (1 - 4 $CellContext`k + 
                    2 $CellContext`k^2) $CellContext`\[Gamma]$$ + ((-2 + \
$CellContext`k) $CellContext`k) $CellContext`\[Gamma]$$^2) + $CellContext`c (
                    2 - (2 (1 + 
                    2 $CellContext`k)) $CellContext`\[Gamma]$$ + (-1 + 
                    2 $CellContext`k) $CellContext`\[Gamma]$$^2 + (
                    2 $CellContext`k) $CellContext`\[Gamma]$$^3)) + \
($CellContext`s$$^2 (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) (
                   2 - (2 $CellContext`k) (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + (
                    2 $CellContext`c) (-1 + $CellContext`k (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)))))^
               Rational[
                1, 2])) >= $CellContext`k, -1 - ((-1 + ((
                 2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) (
                 1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
             Rational[
              1, 2]) $CellContext`\[Gamma]$$ + (((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
            Rational[
             1, 2] + $CellContext`s$$ ((-1 + \
$CellContext`\[Gamma]$$^2)/(-$CellContext`\[Gamma]$$ + $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))) >= 0}, {$CellContext`k,
           0, 1}, {$CellContext`c, 0, 1.1}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 1}, 0.5, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {296., 303.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7664742916364346`*^9, 3.766474408492833*^9, {3.766474509378955*^9, 
   3.766474533670971*^9}, 3.7664745944374156`*^9, 3.7664747039414845`*^9, 
   3.7664748042262487`*^9, 3.7664913108413963`*^9, {3.7664914767436113`*^9, 
   3.7664914936503606`*^9}, 3.7664915271647077`*^9, {3.766491669900876*^9, 
   3.766491695115424*^9}, 3.7664919439936543`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"In", " ", "the", " ", "blue", " ", "region", " ", "k"}], "<", 
     RowBox[{
     "desired", " ", "q2", " ", "and", " ", "thus", " ", "the", " ", "p1H", 
      " ", "is", " ", "indeed", " ", "the", " ", "one", " ", "determined", 
      " ", "above"}]}], ",", " ", 
    RowBox[{
     RowBox[{
     "i", ".", "e", ".", " ", "p1HMonkbindMSnoConstr", ".", 
      "\[IndentingNewLine]", "In"}], " ", "the", " ", "not", " ", "blue", " ",
      "region", " ", "the", " ", "p1H", " ", "must", " ", "be", " ", 
     "redetermined", " ", "as", " ", 
     RowBox[{"follows", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"qNE", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "/.", "pMSnoConstr"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{"p2H", " ", "%"}], "-", 
        RowBox[{"p2L", 
         RowBox[{"(", 
          RowBox[{"q2", "-", " ", "%"}], ")"}]}]}], "/.", 
       RowBox[{"p2L", "\[Rule]", "c"}]}], "/.", 
      RowBox[{"p2H", "->", 
       RowBox[{"pMSnoConstr", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"qMStmp", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"%", ",", "q2"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"qMStmp", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], "/.", 
     RowBox[{"p1", "->", "p1HMonkbindMSnoConstr"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"OutsideMSNoConstrB", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"%%%", "/.", "qMStmp"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"ProfitBMSNoConstr", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "%%"}], ",", "p1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.1"}], ",", 
       RowBox[{"s", "\[Rule]", "0.9"}], ",", 
       RowBox[{"k", "\[Rule]", "0.9"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1HMonkbindMSnoConstrB", "=", 
     RowBox[{"%%", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.1"}], ",", 
       RowBox[{"s", "\[Rule]", "0.9"}], ",", 
       RowBox[{"k", "\[Rule]", "0.9"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7664918427325363`*^9, 3.7664919297218328`*^9}, {
  3.766491962698617*^9, 3.766492028751937*^9}, {3.7664920618653374`*^9, 
  3.766492096710125*^9}, {3.76649216402206*^9, 3.766492209506385*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", 
     RowBox[{"0.9`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.7974258658353545`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", 
     RowBox[{"0.9`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.7974258658353545`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.766492089710849*^9, 3.766492102326131*^9}, {
  3.7664921716935377`*^9, 3.76649221509344*^9}}],

Cell[BoxData[
 RowBox[{"0.9`", "\[VeryThinSpace]", "-", 
  RowBox[{"0.7974258658353545`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{{3.766492089710849*^9, 3.766492102326131*^9}, {
  3.7664921716935377`*^9, 3.76649221510441*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "There", " ", "is", " ", "never", " ", "such", " ", "a", " ", "p1H"}], 
   "..."}], "*)"}]], "Input",
 CellChangeTimes->{{3.7664922179727373`*^9, 3.7664922265916815`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Now", " ", "the", " ", "boundary", " ", "of", " ", "the", " ", "test", 
    " ", "when", " ", "the", " ", "not", " ", "constrained", " ", "price", 
    " ", 
    RowBox[{"prevails", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"qNE", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", "p1"}], "/.", 
     "pMSConstr"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"k", "-", "q2"}], ")"}], " ", "0"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"q1", "-", 
           RowBox[{"(", 
            RowBox[{"k", "-", "q2"}], ")"}]}], ")"}], "p1h"}]}], "/.", 
       "qNE"}], "/.", "pMSConstr"}], "/.", 
     RowBox[{"p1h", "\[Rule]", "p1HMonkbindMSnoConstr"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TestMSnoConstr", "=", 
     RowBox[{"%%", "-", "%"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1.1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"s", ",", "1"}], "}"}], ",", "0.5", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7658579407394853`*^9, 3.765857969747885*^9}, {
   3.766245885109084*^9, 3.76624588547306*^9}, {3.7662459439865704`*^9, 
   3.7662459443895645`*^9}, 3.766467663645686*^9, {3.766467805103277*^9, 
   3.766467810273485*^9}, {3.7664680975449696`*^9, 3.76646810460212*^9}, {
   3.7664923917598405`*^9, 3.76649239280704*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 1}, 0.5, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1739568$$ = 
    0, $CellContext`s$1739569$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 1, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1739568$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1739569$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ContourPlot[((-1 + $CellContext`\[Gamma]$$^2)^(-1) (
           1 + ((-1 + ((
                  2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                  2 $CellContext`c + $CellContext`k)) (
                  1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
              Rational[
               1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
           Rational[1, 2])) ($CellContext`\[Gamma]$$ - (
           1 + (-1 + ((
                 2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) (
                 1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
             Rational[
              1, 2]) $CellContext`\[Gamma]$$ + ((-1 + ((
                 2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) (
                 1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
             Rational[
              1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
               2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
          Rational[
           1, 2]) + (($CellContext`\[Gamma]$$ - $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))^(-2) (-$CellContext`k + \
(-1 + $CellContext`\[Gamma]$$^2)^(-1) ($CellContext`\[Gamma]$$ - (
              1 + (-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                 1, 2]) $CellContext`\[Gamma]$$ + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                 1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                  2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
             Rational[
              1, 2]) + (-1 + $CellContext`\[Gamma]$$^2)^(-1) ((-1 + ((
                   2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                   2 $CellContext`c + $CellContext`k)) (
                   1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^
               Rational[
                1, 2] + $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$ (
              1 + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                  1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                   2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                   2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
              Rational[
               1, 2])))) (-$CellContext`\[Gamma]$$^2 + $CellContext`k \
$CellContext`\[Gamma]$$^3 - (((
             2 $CellContext`s$$) $CellContext`\[Gamma]$$) (-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + ($CellContext`s$$^2 (-1 + $CellContext`k \
$CellContext`\[Gamma]$$)) (-2 + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2)^2 + (($CellContext`\[Gamma]$$ - $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))^2 ((-1 + $CellContext`k \
$CellContext`\[Gamma]$$) (
               1 + (-2 + 
                 2 $CellContext`c + $CellContext`k) $CellContext`\[Gamma]$$) - \
(2 $CellContext`s$$) ((-1 + $CellContext`\[Gamma]$$) (
                3 + (1 - 4 $CellContext`k + 
                  2 $CellContext`k^2) $CellContext`\[Gamma]$$ + ((-2 + \
$CellContext`k) $CellContext`k) $CellContext`\[Gamma]$$^2) + $CellContext`c (
                2 - (2 (1 + 2 $CellContext`k)) $CellContext`\[Gamma]$$ + (-1 + 
                  2 $CellContext`k) $CellContext`\[Gamma]$$^2 + (
                  
                  2 $CellContext`k) $CellContext`\[Gamma]$$^3)) + \
($CellContext`s$$^2 (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) (
               2 - (2 $CellContext`k) (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + (
                 2 $CellContext`c) (-1 + $CellContext`k (-2 + $CellContext`\
\[Gamma]$$ + $CellContext`\[Gamma]$$^2)))))^Rational[1, 2]), {$CellContext`k, 
         0, 1.1}, {$CellContext`c, 0, 1}, Contours -> {0}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 1}, 0.5, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {296., 303.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.766468123199373*^9, 3.7664681252708006`*^9}, 
   3.766492393139187*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "now", " ", "determine", " ", "the", " ", "price", " ", "p1H", 
    " ", "when", " ", "the", " ", "equilibrium", " ", "prices", " ", "are", 
    " ", 
    RowBox[{"constrained", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"qNE", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "/.", "pMSConstr"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{"p2H", " ", "%"}], "-", 
        RowBox[{"p2L", 
         RowBox[{"(", 
          RowBox[{"q2", "-", " ", "%"}], ")"}]}]}], "/.", 
       RowBox[{"p2L", "\[Rule]", "c"}]}], "/.", 
      RowBox[{"p2H", "->", 
       RowBox[{"pMSConstr", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{"q2", "\[Equal]", "k"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"OutsideMSConstr", "=", 
     RowBox[{"%%", "/.", 
      RowBox[{"%", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"ProfitBMSConstr", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "%%"}], ",", "p1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.8"}], ",", 
       RowBox[{"s", "\[Rule]", "0.9"}], ",", 
       RowBox[{"k", "\[Rule]", "0.3"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1HMonkbindMSConstr", "=", 
     RowBox[{"%%", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.8"}], ",", 
       RowBox[{"s", "\[Rule]", "0.9"}], ",", 
       RowBox[{"k", "\[Rule]", "0.3"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.766467461261082*^9, 3.766467483261256*^9}, {
  3.766467724834038*^9, 3.766467737207902*^9}, {3.7664678261729383`*^9, 
  3.7664678381000457`*^9}, {3.7664678693265038`*^9, 3.766467897000476*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "0.5177035653428066`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "1.0022964346571934`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.766467685780475*^9, 3.7664677338199654`*^9, {3.766467821956193*^9, 
   3.7664678986709733`*^9}}],

Cell[BoxData["0.5177035653428066`"], "Output",
 CellChangeTimes->{
  3.766467685780475*^9, 3.7664677338199654`*^9, {3.766467821956193*^9, 
   3.7664678986760254`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Now", " ", "the", " ", "boundary", " ", "of", " ", "the", " ", "test", 
    " ", "when", " ", "the", " ", "constrained", " ", "price", " ", 
    RowBox[{"prevails", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"qNE", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", "p1"}], "/.", 
     "pMSConstr"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"k", "-", "q2"}], ")"}], " ", "0"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"q1", "-", 
           RowBox[{"(", 
            RowBox[{"k", "-", "q2"}], ")"}]}], ")"}], "p1h"}]}], "/.", 
       "qNE"}], "/.", "pMSConstr"}], "/.", 
     RowBox[{"p1h", "\[Rule]", "p1HMonkbindMSConstr"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "note", " ", "we", " ", "could", " ", "eliminate", " ", "the", " ", 
     "expense", " ", 
     RowBox[{"qNE", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", "p2", " ", "from", " ", 
     "both", " ", "sides", " ", "with", " ", "no", " ", "effect", " ", "on", 
     " ", "the", " ", "test"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TestMSConstr", "=", 
     RowBox[{"%%", "-", "%"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"{", "0", "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"s", ",", "0.99"}], "}"}], ",", "0.5", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7270953298405285`*^9, 3.727095451418729*^9}, {
   3.739777199620761*^9, 3.7397772020863175`*^9}, 3.7397772566524525`*^9, {
   3.740739504949519*^9, 3.740739515065344*^9}, {3.740739548858359*^9, 
   3.740739599272942*^9}, {3.7407396600433283`*^9, 3.740739672163005*^9}, {
   3.764680361111147*^9, 3.764680390827716*^9}, {3.765509704951599*^9, 
   3.7655097101294527`*^9}, {3.7655097702562695`*^9, 
   3.7655097915055213`*^9}, {3.7655099357261934`*^9, 3.765509938188629*^9}, {
   3.765509971821846*^9, 3.7655099965152454`*^9}, {3.7656237130839167`*^9, 
   3.76562371335563*^9}, {3.765623813452303*^9, 3.7656238135889373`*^9}, {
   3.7661321657251205`*^9, 3.766132189273075*^9}, {3.766132311237938*^9, 
   3.7661323298720036`*^9}, 3.766132365338233*^9, {3.7661324033404236`*^9, 
   3.766132479037967*^9}, 3.7664676636187596`*^9, {3.7664677506429634`*^9, 
   3.7664677510518675`*^9}, 3.7664679849521894`*^9, {3.76646806387906*^9, 
   3.7664680746711583`*^9}, {3.7664922774416523`*^9, 3.766492281296341*^9}, {
   3.7664923166238365`*^9, 3.7664923491438417`*^9}, {3.766493503322316*^9, 
   3.766493504790429*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 0.99, $CellContext`\[Gamma]$$ = 0.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 0.99}, 0.5, 1}}, Typeset`size$$ = {
    450., {221., 229.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1765825$$ = 
    0, $CellContext`s$1765826$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 0.99, $CellContext`\[Gamma]$$ = 0.5},
       "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1765825$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1765826$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ContourPlot[((-1 + $CellContext`\[Gamma]$$^2)^(-1) (
           1 + ((-1 + ((
                  2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                  2 $CellContext`c + $CellContext`k)) (
                  1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
              Rational[
               1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
           Rational[1, 2])) ($CellContext`\[Gamma]$$ - (
           1 + (-1 + ((
                 2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) (
                 1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
             Rational[
              1, 2]) $CellContext`\[Gamma]$$ + ((-1 + ((
                 2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) (
                 1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
             Rational[
              1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
               2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
          Rational[
           1, 2]) + (((-1 - (
              2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
               2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))^(-1)/(-1 + \
$CellContext`\[Gamma]$$^2)) (-1 + $CellContext`k $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2 - $CellContext`k $CellContext`\[Gamma]$$^3 - (((
              2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$)^2) (
             1 + $CellContext`\[Gamma]$$)) (-1 + $CellContext`k $CellContext`\
\[Gamma]$$) + (((2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)^2) (
              1 + $CellContext`\[Gamma]$$)) (-1 + $CellContext`k \
$CellContext`\[Gamma]$$) + 
           2^Rational[
              1, 2] (((-1 - (
                 2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                  2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)) (-1 + \
$CellContext`\[Gamma]$$^2)) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                Rational[
                 1, 2] - $CellContext`c ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                Rational[
                 1, 2] - ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                Rational[
                 1, 2] $CellContext`\[Gamma]$$^2 + ($CellContext`c \
((($CellContext`k (-2 + 2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                  Rational[1, 2]) $CellContext`\[Gamma]$$^2 - (((
                  2 (-1 + $CellContext`c)) $CellContext`k) (
                  1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
$CellContext`\[Gamma]$$^2) - ($CellContext`k^2 (
                  1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
$CellContext`\[Gamma]$$^2) - $CellContext`\[Gamma]$$ (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                   2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                Rational[
                 1, 2] + ($CellContext`c $CellContext`\[Gamma]$$) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                 Rational[1, 2] + ((
                  2 $CellContext`s$$) $CellContext`\[Gamma]$$) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                 Rational[1, 2] - (((
                  2 $CellContext`c) $CellContext`s$$) \
$CellContext`\[Gamma]$$) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                   2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                Rational[1, 2] - ((
                 2 $CellContext`s$$^2) $CellContext`\[Gamma]$$) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                   2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                Rational[
                 1, 2] + (((
                   2 $CellContext`c) $CellContext`s$$^2) \
$CellContext`\[Gamma]$$) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                 Rational[
                  1, 2] + (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                  Rational[
                   1, 2] $CellContext`\[Gamma]$$) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^Rational[1, 2] - ((
                 2 $CellContext`s$$) $CellContext`\[Gamma]$$^2) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                   2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                Rational[
                 1, 2] + (((
                   2 $CellContext`c) $CellContext`s$$) \
$CellContext`\[Gamma]$$^2) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                 Rational[1, 2] + ((
                  2 $CellContext`s$$^2) $CellContext`\[Gamma]$$^2) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                 Rational[1, 2] - (((
                  2 $CellContext`c) $CellContext`s$$^2) \
$CellContext`\[Gamma]$$^2) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                   2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^Rational[1, 2]))^
             Rational[
              1, 2])) (-$CellContext`k + (-1 + \
$CellContext`\[Gamma]$$^2)^(-1) ($CellContext`\[Gamma]$$ - (
             1 + (-1 + ((
                   2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                   2 $CellContext`c + $CellContext`k)) (
                   1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^
               Rational[
                1, 2]) $CellContext`\[Gamma]$$ + ((-1 + ((
                   2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                   2 $CellContext`c + $CellContext`k)) (
                   1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^
               Rational[
                1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
            Rational[
             1, 2]) + (-1 + $CellContext`\[Gamma]$$^2)^(-1) ((-1 + ((
                  2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                  2 $CellContext`c + $CellContext`k)) (
                  1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
              Rational[
               1, 2] + $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$ (
             1 + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                 1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                  2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
             Rational[1, 2]))), {$CellContext`k, 0, 1}, {$CellContext`c, 0, 
         1}, Contours -> {0}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 0.99}, 0.5, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {296., 303.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7664680916098704`*^9, {3.7664923269841557`*^9, 3.7664923495896845`*^9}, 
   3.766493505351921*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"cmix", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"DWelfConstr", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"pMSnoConstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}], "-", 
        RowBox[{"pMSConstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "\[GreaterEqual]", "0"}], "&&", 
      RowBox[{"TestMSConstr", "\[GreaterEqual]", "0"}]}], "||", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"pMSnoConstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}], "-", 
        RowBox[{"pMSConstr", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "<", "0"}], "&&", 
      RowBox[{"TestMSnoConstr", "\[GreaterEqual]", "0"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"pMSnoConstr", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}], "-", 
      RowBox[{"pMSConstr", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "\[GreaterEqual]", "0"}]}], 
   "}"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%%", ",", 
         RowBox[{"1", "-", "k"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     RowBox[{"RegionPlot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", "0.9"}], "}"}], ",", "0.5", ",", "1"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.766468130688308*^9, 3.766468147544217*^9}, {
   3.7664924167450147`*^9, 3.7664924560079737`*^9}, {3.7664925750126247`*^9, 
   3.766492591703974*^9}, {3.7664927310512075`*^9, 3.7664927730847645`*^9}, {
   3.7664928092739553`*^9, 3.766492810192498*^9}, {3.766492896700082*^9, 
   3.7664928998845825`*^9}, {3.7664932478397546`*^9, 3.766493271917345*^9}, {
   3.7664933925137396`*^9, 3.7664933930143986`*^9}, {3.7664937682436295`*^9, 
   3.766493777191693*^9}, {3.7664944842194242`*^9, 3.766494529722699*^9}, 
   3.7664945679534664`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 0.73, $CellContext`\[Gamma]$$ = 0.305,
     Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}, {{
       Hold[$CellContext`s$$], 0.9}, 0.5, 1}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$1772520$$ = 
    0, $CellContext`s$1772521$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`s$$ = 0.9, $CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$1772520$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$1772521$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Plot[{(
           Rational[
            1, 2] $CellContext`\[Gamma]$$^(-2)) ((-4) $CellContext`\[Gamma]$$ + 
           2 $CellContext`\[Gamma]$$^2 + 
           2 $CellContext`\[Gamma]$$^3 + ($CellContext`\[Gamma]$$^2 
              Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ((
               2 $CellContext`k) $CellContext`\[Gamma]$$^3) 
             Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - \
$CellContext`\[Gamma]$$^4 
             Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ($CellContext`k^2 \
$CellContext`\[Gamma]$$^4) 
              Abs[-4 + $CellContext`\[Gamma]$$^2]^2 + ((
                2 $CellContext`k) $CellContext`\[Gamma]$$^5) 
              Abs[-4 + $CellContext`\[Gamma]$$^2]^2 - ($CellContext`k^2 \
$CellContext`\[Gamma]$$^6) Abs[-4 + $CellContext`\[Gamma]$$^2]^2)^
            Rational[1, 2]), 1 - $CellContext`k}, {$CellContext`k, 0, 1}, 
         PlotRange -> {0, 1}, PlotStyle -> {{Red, Thick}, {Red, Thick}}], 
        RegionPlot[{(Rational[-1, 2] $CellContext`k) (-2 + 
             2 $CellContext`c + $CellContext`k) - (-1 + \
$CellContext`\[Gamma]$$^2)^(-1) (-1 + $CellContext`\[Gamma]$$ - \
($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
             2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (((-4 + $CellContext`\[Gamma]$$^2)^(-1)/(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 + $CellContext`\[Gamma]$$ - $CellContext`c \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)) (-1 + $CellContext`\
\[Gamma]$$ - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
              2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) - (-1 + $CellContext`\[Gamma]$$^2)^(-1) (-1 + \
$CellContext`\[Gamma]$$ + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 - 
              2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (((-4 + $CellContext`\[Gamma]$$^2)^(-1)/(-1 + \
$CellContext`\[Gamma]$$^2)) (-2 - 
              2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2)) (-1 + $CellContext`\[Gamma]$$ + (-4 + \
$CellContext`\[Gamma]$$^2)^(-1) (-2 - 
               2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + (($CellContext`\[Gamma]$$ (-1 + $CellContext`\
\[Gamma]$$^2)^(-2)) (-1 + $CellContext`\[Gamma]$$ - \
($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
               
               2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))) (-1 + $CellContext`\[Gamma]$$ + (-4 + \
$CellContext`\[Gamma]$$^2)^(-1) (-2 - 
               2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) + 
           Rational[
             1, 2] ((-1 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + $CellContext`\
\[Gamma]$$ - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) (-2 - 
                 2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\
\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))^2 + (-1 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + \
$CellContext`\[Gamma]$$ + (-4 + $CellContext`\[Gamma]$$^2)^(-1) (-2 - 
                  2 $CellContext`c + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2) - ($CellContext`\[Gamma]$$/(-4 + $CellContext`\[Gamma]$$^2)) \
(-2 + $CellContext`\[Gamma]$$ - $CellContext`c $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2))^2) >= 0, 
          Or[
           
           And[-1 - ((-1 + ((
                   2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                   2 $CellContext`c + $CellContext`k)) (
                   1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^
               Rational[
                1, 2]) $CellContext`\[Gamma]$$ + (((($CellContext`k (-2 + 
                   2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                   2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
              Rational[
               1, 2] + $CellContext`s$$ ((-1 + \
$CellContext`\[Gamma]$$^2)/(-$CellContext`\[Gamma]$$ + $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))) >= 
            0, ((-1 + $CellContext`\[Gamma]$$^2)^(-1) (
                1 + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
                Rational[1, 2])) ($CellContext`\[Gamma]$$ - (
                1 + (-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                   1, 2]) $CellContext`\[Gamma]$$ + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                   1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
               Rational[
                1, 2]) + (((-1 - (
                   2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + \
$CellContext`\[Gamma]$$))^(-1)/(-1 + $CellContext`\[Gamma]$$^2)) (-1 + \
$CellContext`k $CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2 - \
$CellContext`k $CellContext`\[Gamma]$$^3 - (((
                   2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$)^2) (
                  1 + $CellContext`\[Gamma]$$)) (-1 + $CellContext`k \
$CellContext`\[Gamma]$$) + (((
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)^2) (
                   1 + $CellContext`\[Gamma]$$)) (-1 + $CellContext`k \
$CellContext`\[Gamma]$$) + 
                2^Rational[
                   1, 2] (((-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)) (-1 + \
$CellContext`\[Gamma]$$^2)) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                    Rational[
                    1, 2] - $CellContext`c ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                    Rational[
                    1, 2] - ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                    Rational[
                    1, 2] $CellContext`\[Gamma]$$^2 + ($CellContext`c \
((($CellContext`k (-2 + 2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                    Rational[1, 2]) $CellContext`\[Gamma]$$^2 - (((
                    2 (-1 + $CellContext`c)) $CellContext`k) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + $CellContext`\[Gamma]$$^2) - ($CellContext`k^2 (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + $CellContext`\[Gamma]$$^2) - $CellContext`\[Gamma]$$ (((($CellContext`k \
(-2 + 2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                    Rational[
                    1, 2] + ($CellContext`c $CellContext`\[Gamma]$$) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                    Rational[1, 2] + ((
                    2 $CellContext`s$$) $CellContext`\[Gamma]$$) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                    Rational[1, 2] - (((
                    2 $CellContext`c) $CellContext`s$$) \
$CellContext`\[Gamma]$$) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                    Rational[1, 2] - ((
                    2 $CellContext`s$$^2) $CellContext`\[Gamma]$$) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                    Rational[
                    1, 2] + (((
                    2 $CellContext`c) $CellContext`s$$^2) $CellContext`\
\[Gamma]$$) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                    Rational[
                    1, 2] + (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 - (2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$)))^
                    Rational[
                    1, 2] $CellContext`\[Gamma]$$) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^Rational[1, 2] - ((
                    2 $CellContext`s$$) $CellContext`\[Gamma]$$^2) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                    Rational[
                    1, 2] + (((
                    2 $CellContext`c) $CellContext`s$$) \
$CellContext`\[Gamma]$$^2) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                    Rational[1, 2] + ((
                    2 $CellContext`s$$^2) $CellContext`\[Gamma]$$^2) \
(((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^
                    Rational[1, 2] - (((
                    2 $CellContext`c) $CellContext`s$$^2) $CellContext`\
\[Gamma]$$^2) (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 - (
                    2 $CellContext`s$$) (-1 + $CellContext`\[Gamma]$$) + (
                    2 $CellContext`s$$^2) (-1 + $CellContext`\[Gamma]$$))) \
(-1 + $CellContext`\[Gamma]$$^2)^2)^Rational[1, 2]))^
                  Rational[
                   1, 2])) (-$CellContext`k + (-1 + \
$CellContext`\[Gamma]$$^2)^(-1) ($CellContext`\[Gamma]$$ - (
                  1 + (-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2]) $CellContext`\[Gamma]$$ + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
                 Rational[
                  1, 2]) + (-1 + $CellContext`\[Gamma]$$^2)^(-1) ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2] + $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$ \
(1 + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
                  Rational[1, 2]))) >= 0], 
           
           And[-1 - ((-1 + ((
                   2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                   2 $CellContext`c + $CellContext`k)) (
                   
                   1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^
               Rational[
                1, 2]) $CellContext`\[Gamma]$$ + (((($CellContext`k (-2 + 
                   2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                   2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
              Rational[
               1, 2] + $CellContext`s$$ ((-1 + \
$CellContext`\[Gamma]$$^2)/(-$CellContext`\[Gamma]$$ + $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))) < 
            0, ((-1 + $CellContext`\[Gamma]$$^2)^(-1) (
                1 + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
                Rational[1, 2])) ($CellContext`\[Gamma]$$ - (
                1 + (-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                   1, 2]) $CellContext`\[Gamma]$$ + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                   1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                    
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
               Rational[
                1, 2]) + (($CellContext`\[Gamma]$$ - $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))^(-2) (-$CellContext`k + \
(-1 + $CellContext`\[Gamma]$$^2)^(-1) ($CellContext`\[Gamma]$$ - (
                   1 + (-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2]) $CellContext`\[Gamma]$$ + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
                  Rational[
                   1, 2]) + (-1 + $CellContext`\[Gamma]$$^2)^(-1) ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2] + $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$ \
(1 + ((-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) (
                    1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) \
(-1 + ((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + $CellContext`\
\[Gamma]$$)))^Rational[
                    1, 2]) $CellContext`\[Gamma]$$ - (((($CellContext`k (-2 + 
                    2 $CellContext`c + $CellContext`k)) \
$CellContext`s$$^2)/(-1 + ((
                    2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
                   Rational[
                    1, 2])))) (-$CellContext`\[Gamma]$$^2 + $CellContext`k \
$CellContext`\[Gamma]$$^3 - (((
                  2 $CellContext`s$$) $CellContext`\[Gamma]$$) (-1 + \
$CellContext`k $CellContext`\[Gamma]$$)) (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + ($CellContext`s$$^2 (-1 + $CellContext`k \
$CellContext`\[Gamma]$$)) (-2 + $CellContext`\[Gamma]$$ + $CellContext`\
\[Gamma]$$^2)^2 + (($CellContext`\[Gamma]$$ - $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))^2 ((-1 + $CellContext`k \
$CellContext`\[Gamma]$$) (
                    1 + (-2 + 
                    2 $CellContext`c + $CellContext`k) \
$CellContext`\[Gamma]$$) - (
                   2 $CellContext`s$$) ((-1 + $CellContext`\[Gamma]$$) (
                    3 + (1 - 4 $CellContext`k + 
                    2 $CellContext`k^2) $CellContext`\[Gamma]$$ + ((-2 + \
$CellContext`k) $CellContext`k) $CellContext`\[Gamma]$$^2) + $CellContext`c (
                    2 - (2 (1 + 
                    2 $CellContext`k)) $CellContext`\[Gamma]$$ + (-1 + 
                    2 $CellContext`k) $CellContext`\[Gamma]$$^2 + (
                    2 $CellContext`k) $CellContext`\[Gamma]$$^3)) + \
($CellContext`s$$^2 (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2)) (
                    2 - (2 $CellContext`k) (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-2 + $CellContext`\[Gamma]$$ + \
$CellContext`\[Gamma]$$^2) + (
                    2 $CellContext`c) (-1 + $CellContext`k (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)))))^Rational[1, 2]) >= 
            0]], -1 - ((-1 + ((
                 2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))^(-1) ((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) (
                 1 + $CellContext`s$$ (-1 + $CellContext`\[Gamma]$$))^2) (-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$)))^
             Rational[
              1, 2]) $CellContext`\[Gamma]$$ + (((($CellContext`k (-2 + 
                 2 $CellContext`c + $CellContext`k)) $CellContext`s$$^2)/(-1 + \
((2 (-1 + $CellContext`s$$)) $CellContext`s$$) (-1 + \
$CellContext`\[Gamma]$$))) (-1 + $CellContext`\[Gamma]$$^2)^2)^
            Rational[
             1, 2] + $CellContext`s$$ ((-1 + \
$CellContext`\[Gamma]$$^2)/(-$CellContext`\[Gamma]$$ + $CellContext`s$$ (-2 + \
$CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2))) >= 0}, {$CellContext`k,
           0, 1}, {$CellContext`c, 0, 1}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 
         1}, {{$CellContext`s$$, 0.9}, 0.5, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{511., {220., 227.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.766468148665219*^9, {3.766492431217326*^9, 3.76649245667419*^9}, {
   3.7664925780565157`*^9, 3.7664925924350557`*^9}, 3.766492773719105*^9, 
   3.766492810785945*^9, 3.7664929005956964`*^9, {3.766493262284115*^9, 
   3.7664932722365246`*^9}, 3.766493394156354*^9, 3.766493777712341*^9, 
   3.76649449880943*^9, 3.7664945302921753`*^9, 3.766494568576795*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Considering", " ", "the", " ", "relevant", " ", "range", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"i", ".", "e", ".", " ", "above"}], " ", "the", " ", "red", " ",
       "thick", " ", "line", " ", "to", " ", "have", " ", "mixed", " ", 
      "strategies"}], ")"}]}], ",", " ", 
   RowBox[{
   "one", " ", "can", " ", "se", " ", "that", " ", "increasing", " ", "s", 
    " ", "towards", " ", "exclusivity", " ", 
    RowBox[{"(", 
     RowBox[{"s", "=", "1"}], ")"}]}], ",", " ", 
   RowBox[{
   "the", " ", "test", " ", "becomes", " ", "more", " ", "difficult", " ", 
    "to", " ", 
    RowBox[{"pass", ".", " ", "Reducing"}], " ", "s", " ", "from", " ", 
    "exclusive", " ", "towards", " ", "lower", " ", "market", " ", "shares"}],
    ",", " ", 
   RowBox[{
   "the", " ", "false", " ", "positive", " ", "region", " ", "reduces", " ", 
    "and", " ", "the", " ", "false", " ", "negative", " ", 
    RowBox[{"increases", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.766493754660965*^9, 3.7664938153974915`*^9}, {
  3.766493849111369*^9, 3.7664938644223433`*^9}, {3.7664939329021807`*^9, 
  3.766493942115568*^9}, {3.7664940137598886`*^9, 3.766494051993574*^9}, {
  3.7664942901176634`*^9, 3.7664943263148327`*^9}}]
}, Closed]]
}, Open  ]]
},
WindowSize->{1264, 583},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.1999999999999, 841.98}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 471, 8, 249, "Title"],
Cell[CellGroupData[{
Cell[1075, 34, 179, 2, 98, "Section"],
Cell[1257, 38, 2090, 44, 478, "Input"],
Cell[3350, 84, 1712, 43, 1006, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[5099, 132, 117, 1, 60, "Section"],
Cell[5219, 135, 491, 12, 268, "Input"],
Cell[CellGroupData[{
Cell[5735, 151, 369, 9, 158, "Input"],
Cell[6107, 162, 1221, 22, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7365, 189, 1048, 29, 372, "Input"],
Cell[8416, 220, 1062, 15, 60, "Output"],
Cell[9481, 237, 1177, 20, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10695, 262, 823, 23, 372, "Input"],
Cell[11521, 287, 965, 14, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12523, 306, 973, 24, 372, "Input"],
Cell[13499, 332, 1335, 24, 60, "Output"],
Cell[14837, 358, 1299, 23, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16173, 386, 1728, 35, 583, "Input"],
Cell[17904, 423, 2089, 40, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20030, 468, 1124, 24, 372, "Input"],
Cell[21157, 494, 1911, 44, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23105, 543, 801, 20, 478, "Input"],
Cell[23909, 565, 262, 4, 60, "Output"],
Cell[24174, 571, 418, 10, 60, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24641, 587, 277, 3, 60, "Section"],
Cell[CellGroupData[{
Cell[24943, 594, 219, 3, 53, "Subsection"],
Cell[25165, 599, 1191, 23, 478, "Input"],
Cell[CellGroupData[{
Cell[26381, 626, 929, 27, 158, "Input"],
Cell[27313, 655, 1573, 32, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28923, 692, 1312, 36, 583, "Input"],
Cell[30238, 730, 1692, 35, 60, "Output"],
Cell[31933, 767, 1986, 48, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33956, 820, 1011, 20, 268, "Input"],
Cell[34970, 842, 1400, 23, 60, "Output"],
Cell[36373, 867, 1372, 22, 131, "Output"],
Cell[37748, 891, 1348, 22, 235, "Output"],
Cell[39099, 915, 1326, 22, 246, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40462, 942, 1001, 30, 268, "Input"],
Cell[41466, 974, 664, 20, 60, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[42179, 1000, 316, 6, 42, "Subsection"],
Cell[42498, 1008, 508, 9, 36, "Input"],
Cell[CellGroupData[{
Cell[43031, 1021, 1126, 27, 83, "Input"],
Cell[44160, 1050, 767, 17, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44964, 1072, 612, 16, 60, "Input"],
Cell[45579, 1090, 645, 12, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46261, 1107, 840, 23, 83, "Input"],
Cell[47104, 1132, 801, 17, 41, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47942, 1154, 644, 17, 106, "Input"],
Cell[48589, 1173, 700, 15, 58, "Output"],
Cell[49292, 1190, 425, 6, 36, "Output"]
}, Open  ]],
Cell[49732, 1199, 680, 16, 83, "Input"],
Cell[CellGroupData[{
Cell[50437, 1219, 562, 15, 60, "Input"],
Cell[51002, 1236, 629, 11, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51668, 1252, 540, 14, 60, "Input"],
Cell[52211, 1268, 641, 15, 56, "Output"]
}, Open  ]],
Cell[52867, 1286, 230, 5, 36, "Input"],
Cell[CellGroupData[{
Cell[53122, 1295, 607, 18, 60, "Input"],
Cell[53732, 1315, 577, 9, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54346, 1329, 1535, 42, 106, "Input"],
Cell[55884, 1373, 698, 12, 36, "Output"],
Cell[56585, 1387, 707, 13, 56, "Output"],
Cell[57295, 1402, 757, 15, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58089, 1422, 1197, 30, 106, "Input"],
Cell[59289, 1454, 791, 18, 56, "Output"],
Cell[60083, 1474, 958, 24, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61078, 1503, 1076, 26, 129, "Input"],
Cell[62157, 1531, 1609, 45, 70, "Output"],
Cell[63769, 1578, 729, 15, 36, "Output"],
Cell[64501, 1595, 916, 22, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65454, 1622, 533, 13, 36, "Input"],
Cell[65990, 1637, 3583, 98, 155, "Output"]
}, Open  ]],
Cell[69588, 1738, 229, 5, 36, "Input"],
Cell[CellGroupData[{
Cell[69842, 1747, 1597, 45, 106, "Input"],
Cell[71442, 1794, 737, 14, 41, "Output"],
Cell[72182, 1810, 2643, 69, 105, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74862, 1884, 1915, 51, 129, "Input"],
Cell[76780, 1937, 3818, 69, 501, "Output"]
}, Open  ]],
Cell[80613, 2009, 621, 13, 60, "Input"],
Cell[CellGroupData[{
Cell[81259, 2026, 5597, 157, 428, "Input"],
Cell[86859, 2185, 25546, 519, 228, "Output"]
}, Closed]],
Cell[112420, 2707, 403, 8, 28, "Input"],
Cell[CellGroupData[{
Cell[112848, 2719, 1345, 36, 152, "Input"],
Cell[114196, 2757, 2575, 70, 100, "Output"],
Cell[116774, 2829, 874, 16, 36, "Output"],
Cell[117651, 2847, 702, 10, 36, "Output"],
Cell[118356, 2859, 696, 10, 36, "Output"]
}, Open  ]],
Cell[119067, 2872, 350, 7, 36, "Input"],
Cell[119420, 2881, 871, 15, 83, "Input"],
Cell[CellGroupData[{
Cell[120316, 2900, 651, 10, 60, "Input"],
Cell[120970, 2912, 972, 20, 56, "Output"],
Cell[121945, 2934, 1116, 25, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123098, 2964, 1386, 34, 106, "Input"],
Cell[124487, 3000, 1600, 41, 86, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126124, 3046, 2277, 54, 175, "Input"],
Cell[128404, 3102, 1616, 49, 81, "Output"],
Cell[130023, 3153, 1514, 47, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131574, 3205, 977, 27, 83, "Input"],
Cell[132554, 3234, 3285, 60, 451, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135876, 3299, 1212, 27, 129, "Input"],
Cell[137091, 3328, 1646, 40, 91, "Output"],
Cell[138740, 3370, 941, 17, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[139718, 3392, 2337, 68, 152, "Input"],
Cell[142058, 3462, 3377, 63, 449, "Output"]
}, Open  ]],
Cell[145450, 3528, 1701, 42, 143, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[147188, 3575, 148, 3, 42, "Subsection"],
Cell[147339, 3580, 1126, 23, 106, "Input"],
Cell[CellGroupData[{
Cell[148490, 3607, 1177, 30, 60, "Input"],
Cell[149670, 3639, 1506, 39, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151213, 3683, 989, 28, 106, "Input"],
Cell[152205, 3713, 1083, 27, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153325, 3745, 2297, 61, 152, "Input"],
Cell[155625, 3808, 3683, 69, 449, "Output"]
}, Open  ]],
Cell[159323, 3880, 68, 1, 36, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[159428, 3886, 289, 4, 42, "Subsection"],
Cell[159720, 3892, 1491, 37, 129, "Input"],
Cell[CellGroupData[{
Cell[161236, 3933, 707, 17, 129, "Input"],
Cell[161946, 3952, 294, 5, 56, "Output"],
Cell[162243, 3959, 448, 11, 56, "Output"],
Cell[162694, 3972, 448, 11, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[163179, 3988, 1100, 28, 129, "Input"],
Cell[164282, 4018, 2164, 41, 583, "Output"]
}, Open  ]],
Cell[166461, 4062, 1113, 23, 129, "Input"],
Cell[CellGroupData[{
Cell[167599, 4089, 1161, 31, 83, "Input"],
Cell[168763, 4122, 2215, 43, 583, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171015, 4170, 1044, 28, 129, "Input"],
Cell[172062, 4200, 4843, 89, 583, "Output"]
}, Open  ]],
Cell[176920, 4292, 221, 5, 36, "Input"],
Cell[CellGroupData[{
Cell[177166, 4301, 1510, 35, 83, "Input"],
Cell[178679, 4338, 2710, 50, 583, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181426, 4393, 1237, 28, 106, "Input"],
Cell[182666, 4423, 5343, 96, 583, "Output"]
}, Open  ]],
Cell[188024, 4522, 491, 15, 60, "Input"],
Cell[CellGroupData[{
Cell[188540, 4541, 1508, 38, 83, "Input"],
Cell[190051, 4581, 134030, 2294, 431, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324118, 6880, 824, 23, 83, "Input"],
Cell[324945, 6905, 66623, 1146, 431, "Output"],
Cell[391571, 8053, 459, 10, 48, "Message"],
Cell[392033, 8065, 461, 10, 48, "Message"],
Cell[392497, 8077, 461, 10, 48, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[392995, 8092, 948, 25, 83, "Input"],
Cell[393946, 8119, 2162, 42, 583, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[396145, 8166, 858, 23, 106, "Input"],
Cell[397006, 8191, 2583, 49, 583, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[399626, 8245, 911, 24, 106, "Input"],
Cell[400540, 8271, 2608, 49, 581, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[403185, 8325, 967, 24, 106, "Input"],
Cell[404155, 8351, 6135, 157, 182, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[410327, 8513, 1038, 28, 83, "Input"],
Cell[411368, 8543, 70571, 1217, 431, "Output"],
Cell[481942, 9762, 461, 10, 48, "Message"],
Cell[482406, 9774, 458, 10, 48, "Message"],
Cell[482867, 9786, 461, 10, 48, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[483365, 9801, 661, 19, 60, "Input"],
Cell[484029, 9822, 69258, 1193, 429, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[553324, 11020, 1366, 36, 83, "Input"],
Cell[554693, 11058, 67740, 1167, 431, "Output"],
Cell[622436, 12227, 459, 10, 48, "Message"],
Cell[622898, 12239, 461, 10, 48, "Message"],
Cell[623362, 12251, 459, 10, 48, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[623858, 12266, 3761, 96, 347, "Input"],
Cell[627622, 12364, 20382, 360, 321, "Output"]
}, Open  ]],
Cell[648019, 12727, 1674, 43, 129, "Input"],
Cell[CellGroupData[{
Cell[649718, 12774, 481, 12, 60, "Input"],
Cell[650202, 12788, 13219, 225, 468, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[663458, 13018, 457, 12, 60, "Input"],
Cell[663918, 13032, 6691, 117, 468, "Output"]
}, Open  ]],
Cell[670624, 13152, 924, 23, 152, "Input"],
Cell[CellGroupData[{
Cell[671573, 13179, 2788, 74, 175, "Input"],
Cell[674364, 13255, 27830, 507, 433, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[702231, 13767, 2328, 64, 221, "Input"],
Cell[704562, 13833, 14796, 270, 433, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[719395, 14108, 3654, 91, 336, "Input"],
Cell[723052, 14201, 10942, 194, 320, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[734055, 14402, 315, 4, 60, "Section"],
Cell[734373, 14408, 1313, 25, 83, "Input"],
Cell[CellGroupData[{
Cell[735711, 14437, 2197, 58, 221, "Input"],
Cell[737911, 14497, 744, 12, 36, "Output"],
Cell[738658, 14511, 956, 20, 36, "Output"],
Cell[739617, 14533, 733, 12, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[740387, 14550, 1185, 26, 106, "Input"],
Cell[741575, 14578, 654, 12, 36, "Output"]
}, Open  ]],
Cell[742244, 14593, 726, 14, 60, "Input"],
Cell[742973, 14609, 666, 12, 60, "Input"],
Cell[CellGroupData[{
Cell[743664, 14625, 940, 22, 83, "Input"],
Cell[744607, 14649, 1153, 28, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[745797, 14682, 947, 22, 83, "Input"],
Cell[746747, 14706, 7037, 121, 468, "Output"]
}, Open  ]],
Cell[753799, 14830, 451, 10, 36, "Input"],
Cell[CellGroupData[{
Cell[754275, 14844, 689, 19, 83, "Input"],
Cell[754967, 14865, 5678, 100, 306, "Output"]
}, Open  ]],
Cell[760660, 14968, 1111, 21, 106, "Input"],
Cell[CellGroupData[{
Cell[761796, 14993, 2325, 64, 175, "Input"],
Cell[764124, 15059, 712, 14, 36, "Output"],
Cell[764839, 15075, 815, 18, 56, "Output"],
Cell[765657, 15095, 534, 7, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[766228, 15107, 2117, 56, 198, "Input"],
Cell[768348, 15165, 5423, 98, 468, "Output"]
}, Open  ]],
Cell[773786, 15266, 512, 12, 60, "Input"],
Cell[CellGroupData[{
Cell[774323, 15282, 1900, 49, 221, "Input"],
Cell[776226, 15333, 2221, 47, 583, "Output"]
}, Open  ]],
Cell[778462, 15383, 617, 13, 60, "Input"],
Cell[CellGroupData[{
Cell[779104, 15400, 315, 8, 36, "Input"],
Cell[779422, 15410, 319, 9, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[779778, 15424, 1788, 47, 129, "Input"],
Cell[781569, 15473, 1879, 55, 58, "Output"],
Cell[783451, 15530, 2527, 48, 431, "Output"],
Cell[785981, 15580, 939, 27, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[786957, 15612, 2237, 64, 175, "Input"],
Cell[789197, 15678, 579, 12, 36, "Output"],
Cell[789779, 15692, 682, 16, 56, "Output"],
Cell[790464, 15710, 401, 5, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[790902, 15720, 1207, 28, 83, "Input"],
Cell[792112, 15750, 1025, 29, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[793174, 15784, 2010, 49, 152, "Input"],
Cell[795187, 15835, 1320, 32, 58, "Output"],
Cell[796510, 15869, 3014, 56, 583, "Output"]
}, Open  ]],
Cell[799539, 15928, 372, 7, 36, "Input"],
Cell[CellGroupData[{
Cell[799936, 15939, 1907, 41, 129, "Input"],
Cell[801846, 15982, 3232, 62, 431, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[805115, 16049, 5838, 144, 635, "Input"],
Cell[810956, 16195, 25907, 447, 393, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[836912, 16648, 622, 10, 60, "Section"],
Cell[CellGroupData[{
Cell[837559, 16662, 3191, 91, 221, "Input"],
Cell[840753, 16755, 2189, 65, 104, "Output"],
Cell[842945, 16822, 2503, 50, 431, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[845485, 16877, 2351, 64, 175, "Input"],
Cell[847839, 16943, 1131, 31, 63, "Output"],
Cell[848973, 16976, 2271, 43, 431, "Output"]
}, Open  ]],
Cell[851259, 17022, 372, 7, 36, "Input"],
Cell[CellGroupData[{
Cell[851656, 17033, 2316, 45, 152, "Input"],
Cell[853975, 17080, 4108, 77, 431, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[858120, 17162, 1759, 45, 152, "Input"],
Cell[859882, 17209, 46835, 825, 431, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[906754, 18039, 4376, 116, 566, "Input"],
Cell[911133, 18157, 33427, 565, 314, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[944609, 18728, 218, 3, 60, "Section"],
Cell[CellGroupData[{
Cell[944852, 18735, 246, 3, 42, "Subsubsection"],
Cell[945101, 18740, 238, 5, 46, "Input"],
Cell[CellGroupData[{
Cell[945364, 18749, 1555, 38, 287, "Input"],
Cell[946922, 18789, 1281, 33, 83, "Output"],
Cell[948206, 18824, 849, 18, 75, "Output"],
Cell[949058, 18844, 922, 21, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[950017, 18870, 1797, 38, 227, "Input"],
Cell[951817, 18910, 2300, 39, 71, "Output"],
Cell[954120, 18951, 2075, 30, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[956232, 18986, 1153, 28, 227, "Input"],
Cell[957388, 19016, 1560, 29, 71, "Output"],
Cell[958951, 19047, 1437, 24, 46, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[960437, 19077, 106, 1, 33, "Subsubsection"],
Cell[960546, 19080, 453, 8, 77, "Input"],
Cell[CellGroupData[{
Cell[961024, 19092, 1468, 35, 137, "Input"],
Cell[962495, 19129, 926, 21, 83, "Output"],
Cell[963424, 19152, 924, 21, 83, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[964385, 19178, 3440, 83, 437, "Input"],
Cell[967828, 19263, 1280, 34, 81, "Output"],
Cell[969111, 19299, 1375, 39, 81, "Output"],
Cell[970489, 19340, 2799, 81, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[973325, 19426, 799, 19, 107, "Input"],
Cell[974127, 19447, 859, 12, 46, "Output"],
Cell[974989, 19461, 859, 12, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[975885, 19478, 785, 17, 107, "Input"],
Cell[976673, 19497, 1562, 42, 88, "Output"],
Cell[978238, 19541, 1720, 48, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[979995, 19594, 930, 20, 107, "Input"],
Cell[980928, 19616, 899, 13, 46, "Output"],
Cell[981830, 19631, 899, 13, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[982766, 19649, 405, 9, 107, "Input"],
Cell[983174, 19660, 712, 15, 77, "Output"],
Cell[983889, 19677, 705, 15, 77, "Output"],
Cell[984597, 19694, 1086, 27, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[985720, 19726, 1176, 30, 137, "Input"],
Cell[986899, 19758, 786, 18, 71, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[987722, 19781, 643, 17, 77, "Input"],
Cell[988368, 19800, 694, 19, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[989099, 19824, 618, 16, 107, "Input"],
Cell[989720, 19842, 1158, 30, 81, "Output"],
Cell[990881, 19874, 1302, 33, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[992220, 19912, 1170, 30, 137, "Input"],
Cell[993393, 19944, 1312, 35, 95, "Output"],
Cell[994708, 19981, 898, 21, 83, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[995643, 20007, 646, 16, 77, "Input"],
Cell[996292, 20025, 4067, 131, 151, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1000408, 20162, 107, 1, 33, "Subsubsection"],
Cell[1000518, 20165, 523, 10, 46, "Input"],
Cell[1001044, 20177, 413, 8, 46, "Input"],
Cell[CellGroupData[{
Cell[1001482, 20189, 1403, 36, 137, "Input"],
Cell[1002888, 20227, 1257, 32, 83, "Output"],
Cell[1004148, 20261, 861, 20, 75, "Output"],
Cell[1005012, 20283, 1141, 30, 83, "Output"]
}, Open  ]],
Cell[1006168, 20316, 402, 8, 46, "Input"],
Cell[CellGroupData[{
Cell[1006595, 20328, 1378, 41, 137, "Input"],
Cell[1007976, 20371, 618, 12, 46, "Output"],
Cell[1008597, 20385, 1203, 31, 71, "Output"],
Cell[1009803, 20418, 707, 16, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1010547, 20439, 854, 25, 107, "Input"],
Cell[1011404, 20466, 555, 9, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1011996, 20480, 1445, 40, 167, "Input"],
Cell[1013444, 20522, 848, 20, 77, "Output"],
Cell[1014295, 20544, 607, 11, 73, "Output"],
Cell[1014905, 20557, 588, 11, 71, "Output"],
Cell[1015496, 20570, 743, 17, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1016276, 20592, 1750, 38, 257, "Input"],
Cell[1018029, 20632, 1630, 45, 88, "Output"],
Cell[1019662, 20679, 750, 15, 46, "Output"],
Cell[1020415, 20696, 939, 22, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1021391, 20723, 1766, 44, 167, "Input"],
Cell[1023160, 20769, 875, 20, 75, "Output"],
Cell[1024038, 20791, 1027, 25, 90, "Output"],
Cell[1025068, 20818, 892, 20, 77, "Output"]
}, Open  ]],
Cell[1025975, 20841, 1275, 29, 137, "Input"],
Cell[CellGroupData[{
Cell[1027275, 20874, 2534, 67, 287, "Input"],
Cell[1029812, 20943, 5703, 162, 227, "Output"],
Cell[1035518, 21107, 3863, 109, 126, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1039418, 21221, 441, 10, 46, "Input"],
Cell[1039862, 21233, 9426, 264, 313, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1049325, 21502, 3037, 76, 317, "Input"],
Cell[1052365, 21580, 3860, 121, 161, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1056262, 21706, 1640, 44, 137, "Input"],
Cell[1057905, 21752, 3791, 69, 607, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1061733, 21826, 1001, 21, 77, "Input"],
Cell[1062737, 21849, 2476, 68, 100, "Output"]
}, Open  ]],
Cell[1065228, 21920, 452, 8, 46, "Input"],
Cell[1065683, 21930, 1710, 42, 137, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[1067430, 21977, 173, 2, 33, "Subsubsection"],
Cell[CellGroupData[{
Cell[1067628, 21983, 2308, 43, 167, "Input"],
Cell[1069939, 22028, 497, 12, 71, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1070473, 22045, 1462, 42, 197, "Input"],
Cell[1071938, 22089, 482, 9, 70, "Output"],
Cell[1072423, 22100, 874, 24, 95, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1073334, 22129, 1006, 25, 107, "Input"],
Cell[1074343, 22156, 2124, 41, 730, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1076504, 22202, 1271, 34, 197, "Input"],
Cell[1077778, 22238, 1038, 29, 55, "Output"],
Cell[1078819, 22269, 628, 14, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1079484, 22288, 1057, 28, 77, "Input"],
Cell[1080544, 22318, 1101, 28, 78, "Output"],
Cell[1081648, 22348, 2507, 48, 547, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1084204, 22402, 367, 5, 33, "Subsubsection"],
Cell[1084574, 22409, 1340, 36, 106, "Input"],
Cell[CellGroupData[{
Cell[1085939, 22449, 1218, 35, 83, "Input"],
Cell[1087160, 22486, 17663, 321, 467, "Output"]
}, Open  ]],
Cell[1104838, 22810, 417, 11, 36, "Input"],
Cell[CellGroupData[{
Cell[1105280, 22825, 2136, 56, 152, "Input"],
Cell[1107419, 22883, 17345, 305, 467, "Output"]
}, Open  ]],
Cell[1124779, 23191, 830, 22, 83, "Input"],
Cell[CellGroupData[{
Cell[1125634, 23217, 6644, 137, 336, "Input"],
Cell[1132281, 23356, 12757, 220, 315, "Output"]
}, Open  ]],
Cell[1145053, 23579, 210, 5, 36, "Input"],
Cell[CellGroupData[{
Cell[1145288, 23588, 499, 13, 60, "Input"],
Cell[1145790, 23603, 892, 26, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1146719, 23634, 2358, 66, 175, "Input"],
Cell[1149080, 23702, 552, 11, 36, "Output"],
Cell[1149635, 23715, 1249, 35, 71, "Output"],
Cell[1150887, 23752, 376, 5, 36, "Output"]
}, Open  ]],
Cell[1151278, 23760, 1243, 29, 83, "Input"],
Cell[CellGroupData[{
Cell[1152546, 23793, 1831, 47, 129, "Input"],
Cell[1154380, 23842, 3493, 65, 653, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1157910, 23912, 2210, 51, 152, "Input"],
Cell[1160123, 23965, 5809, 110, 501, "Output"]
}, Open  ]],
Cell[1165947, 24078, 981, 26, 106, "Input"],
Cell[CellGroupData[{
Cell[1166953, 24108, 7523, 198, 566, "Input"],
Cell[1174479, 24308, 126575, 2114, 503, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1301091, 26427, 9898, 251, 888, "Input"],
Cell[1310992, 26680, 106873, 1773, 319, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1417926, 28460, 759, 10, 60, "Section"],
Cell[1418688, 28472, 1043, 19, 60, "Input"],
Cell[1419734, 28493, 2137, 50, 175, "Input"],
Cell[CellGroupData[{
Cell[1421896, 28547, 1734, 46, 175, "Input"],
Cell[1423633, 28595, 1423, 42, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1425093, 28642, 3296, 81, 221, "Input"],
Cell[1428392, 28725, 1129, 20, 56, "Output"],
Cell[1429524, 28747, 1154, 20, 36, "Output"],
Cell[1430681, 28769, 7462, 213, 293, "Output"],
Cell[1438146, 28984, 1308, 24, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1439491, 29013, 1084, 29, 83, "Input"],
Cell[1440578, 29044, 3377, 104, 150, "Output"],
Cell[1443958, 29150, 486, 9, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1444481, 29164, 2116, 54, 175, "Input"],
Cell[1446600, 29220, 3090, 58, 619, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1449727, 29283, 2964, 77, 198, "Input"],
Cell[1452694, 29362, 3559, 66, 619, "Output"],
Cell[1456256, 29430, 2647, 48, 619, "Output"]
}, Open  ]],
Cell[1458918, 29481, 1387, 31, 129, "Input"],
Cell[1460308, 29514, 283, 6, 36, "Input"],
Cell[CellGroupData[{
Cell[1460616, 29524, 892, 23, 83, "Input"],
Cell[1461511, 29549, 998, 25, 64, "Output"],
Cell[1462512, 29576, 688, 15, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1463237, 29596, 1593, 43, 129, "Input"],
Cell[1464833, 29641, 5661, 94, 619, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1470531, 29740, 2037, 50, 152, "Input"],
Cell[1472571, 29792, 5913, 99, 619, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1478521, 29896, 3004, 66, 129, "Input"],
Cell[1481528, 29964, 7010, 116, 619, "Output"]
}, Open  ]],
Cell[1488553, 30083, 1138, 21, 83, "Input"],
Cell[1489694, 30106, 408, 8, 83, "Input"],
Cell[CellGroupData[{
Cell[1490127, 30118, 3786, 98, 267, "Input"],
Cell[1493916, 30218, 620, 13, 36, "Output"],
Cell[1494539, 30233, 442, 6, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1495018, 30244, 893, 25, 83, "Input"],
Cell[1495914, 30271, 3281, 61, 519, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1499232, 30337, 3596, 99, 175, "Input"],
Cell[1502831, 30438, 4946, 90, 619, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1507814, 30533, 3635, 100, 336, "Input"],
Cell[1511452, 30635, 516, 13, 36, "Output"],
Cell[1511971, 30650, 242, 4, 36, "Output"]
}, Open  ]],
Cell[1512228, 30657, 227, 6, 36, "Input"],
Cell[CellGroupData[{
Cell[1512480, 30667, 2072, 59, 129, "Input"],
Cell[1514555, 30728, 7926, 143, 619, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1522518, 30876, 2823, 81, 244, "Input"],
Cell[1525344, 30959, 345, 10, 36, "Output"],
Cell[1525692, 30971, 167, 3, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1525896, 30979, 3231, 78, 152, "Input"],
Cell[1529130, 31059, 13764, 254, 619, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1542931, 31318, 2932, 80, 129, "Input"],
Cell[1545866, 31400, 27635, 485, 467, "Output"]
}, Open  ]],
Cell[1573516, 31888, 1289, 27, 106, "Input"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
